clic de souris

Question

Bonjour a tous.

Je continue joyeusement mon apprentissage du vb et je m'attaque aux d&#233;placements de souris.
Je sais maintenant comment placer le curseur ou je veux mais je ne sais pas comment faire pour d&#233;clencher un clic de souris a l'endroit ou j'ai positionn&#233; la souris.

Comment faire pour d&#233;clencher un clic ou un clic droit?
merci d'avance

econs · Answer

Const MOUSEEVENTF_LEFTDOWN = &H2



Const MOUSEEVENTF_LEFTUP = &H4





Public Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long) As Long



Public Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long,
ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal
dwExtraInfo As Long)





Public Sub ClickAt(ByVal X As Long, ByVal Y As Long)



    SetCursorPos X, Y



    Wait 10



    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0



    Wait 10



    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0



End Sub





Public Sub Wait(ByVal milliseconds As Long)



    Dim StartTime As Long, StopTime As Long



    StartTime = timeGetTime



    StopTime = StartTime + milliseconds



    DoEvents



    Do Until timeGetTime > StopTime



        DoEvents



    Loop



End Sub








-------UTILISATION-------



ClickAt 500,500 ' clique au point (500,500) de l'&#233;cran.


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

elpaulo · Answer

oulala quel bordel !!! ya moyen d'avoir une petite explication de comment ca marche tout ca?

elpaulo · Answer

ok donc ca fait un clic a l'endroit choisi.
Mais si je veux faire une double clic? il faut changer quoi?

Clic de souris

3 réponses

Discussions similaires