Discussion :

[fred92g]

bonjour comme le dit le titre j ai un probleme de souris avec mon code le probleme et que le code utilise ma souris du pc du coup quand le programme tourne je peu plus utiliser mon pc voici mon code j aurai besoin que la souris soit propre au vbnet et pas qu il utilise celle de mon pc.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
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)
 
         Const MOUSEEVENTF_LEFTDOWN = &H2
         Const MOUSEEVENTF_LEFTUP = &H4
 
 
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
 
        Dim localPoint As New Point(WebBrowser1.Width \ 2 + 220, Panel1.Height \ 2 - 120)
        Cursor.Position = WebBrowser1.PointToScreen(localPoint)
        mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
 
    End Sub

[PixelJuice]

Et comme ça ,ça marche ? En mettant directement les coordonnées du click sans bouger ta souris.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
 
        mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP,WebBrowser1.Width \ 2 + 220 , Panel1.Height \ 2 - 120, 0, 0)
 
    End Sub

[fred92g]

non fonctionne pas je c est pas ou sa clique non plus pas de repert

[fred92g]

UP