lorenzoviva
Messages postés18Date d'inscriptionvendredi 12 octobre 2007StatutMembreDernière intervention26 octobre 2008 22 nov. 2007 à 21:16
oui mais moi j'ai un probleme j'arrive pas a l'inserer dans une function
ex ( ne fonctionne pas )
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Public Declare Function SetCursorPos Lib "user32" _
( _
ByVal X As Long, _
ByVal Y As Long _
) As Long
Declare Sub mouse_event Lib "user32" _
( _
ByVal dwFlags As Long, _
ByVal dx As Long, _
ByVal dy As Long, _
ByVal cButtons As Long, _
ByVal dwExtraInfo As Long _
)
' x et y sont les valeurs en pixels sur ton screen
' par ex, pour une définition en 800/600, si tu veux cliquer au centre ' x 400 et y 300
Sub clic(ByVal x As Integer, ByVal y As Integer)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer = 0
Dim b As Integer = 0
Dim c As Integer = 0
Dim d As Integer = 0
Dim f As Integer = 0
Dim g As Integer = 0
Dim h As Integer = 0
Dim i As Integer = 0
Dim j As Integer = 0
Dim k As Integer = 0
Dim zz As Integer = 0