davidmaillard
Messages postés20Date d'inscriptiondimanche 4 janvier 2004StatutMembreDernière intervention28 juin 2011
-
7 nov. 2009 à 19:40
davidmaillard
Messages postés20Date d'inscriptiondimanche 4 janvier 2004StatutMembreDernière intervention28 juin 2011
-
7 nov. 2009 à 19:58
Bonjour
Voilas je voudrais simulé le click gauche de ma souris.
J'ai récupérer le code avec une fonction api, mais j'ai un petit soucis.
Pour appeler le click, je fait apel a une fonction click ou il faut préciser la position ou l'on veut le click X et Y.
Alors cela marche pour X, mais Il me met la souris toujours a Y= 0
Je vous met le code
**************************************************************************************
Public Class Form1
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 _
)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
' 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)
' On place le curseur
SetCursorPos(x, y)
' On simule le clic
mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, x, y, 0, 0)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Windows.Forms.Cursor.Position = New Point(610, 536)
Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X - 225, Windows.Forms.Cursor.Position.Y + 274)