Simuler un click gauche de souris (souris droitier)

Question

Voila en fait j aimerais pouvoir simuler un click gauche de souris et je sais pas si une fonction existe.
De plus et si possible il faudrait ke je puisse choisir ou cliker car c'est apres avoir fait un AppActivate ...
Qqun peut m aider ou m expliker koi prendre?
Merci d avance


---------------------------------------------------------------------------------------------
          Il vaut mieux poser une question et passer pour b&#234;te que le rester toute sa vie

fohaf · Answer

il faut utiliser une api:

Private 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)
Private Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long)


'constantes:
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2


Public Function Souris(X, Y)


        'on active la position du curseur
        SetCursorPos X, Y
        'on clique sur le bouton
        Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, X, Y, 0, 0) '
        'on relache la bouton
        Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, X, Y, 0, 0)
        
End Function

Teclis01 · Answer

J aurais bien aim&#233; kelkes commentaires supplementaires...
Et tu met ou les coordonn&#233;es ou la souris doit etre ?
C un peu brutal du code comme ca je trouve ...
Au pire je trouverais qd je serais chez moi si l api existe sous vb5...
Teclis


---------------------------------------------------------------------------------------------
          Il vaut mieux poser une question et passer pour b&#234;te que le rester toute sa vie

cs_MasterHack · Answer

Salut, je confirmes la solution si desus

Life is short...Learn more Copy Rights <> Rights to Copy

fohaf · Answer

Tu copies le code dans un module.

Ensuite, quand tu veux simuler un click gauche &#224; la position (X,Y) de l'&#233;cran, tu appelle la fonction Souris(X,Y).

Le reste du code sert &#224; d&#233;clarer l'API. Les constantes ne sont pas
toutes utiles, mais tu peux t'en servir si tu veux simuler d'autres
&#233;v&#232;nements souris.

Pour plus d'info tu peux aller chercher sur les sites d&#233;di&#233;s aux APIs

mastersioux · Answer

je comprend pas car lorsque je simule le clic souris le débogueur il est pas content. il me dit en visant ça : |Call mouse_event(MOUSEEVENTF_LEFTDOWN + &MOUSEEVENTF_ABSOLUTE, X, Y, 0, 0)| :
"Un appel à la fonction PInvoke 'myfirstapplication!myfirstapplication.my_first_MDIParent1::mouse_event' a déséquilibré la pile. Cela peut se produire, car la signature PInvoke managée ne correspond pas à la signature cible non managée. Vérifiez que la convention d'appel et les paramètres de la signature PInvoke correspondent à la signature non managée cible."

Alors j'aimerai savoir pourquoi ça a déséquilibré la pile ... ?
Merci d'avance

cs_claudiusse · Answer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call Souris(100, 200)
    End Sub

Simuler un click gauche de souris (souris droitier)

6 réponses

Discussions similaires