Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags _
  As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As _
  Integer, ByVal dwExtraInfo As Integer)
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
    Cursor.Position() = New Point(Me.Location.X + 200, Me.Location.Y + 200) _
    'Bewegegt den Cursor zu einer bestimmten Position
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) 'Drückt linke Maustaste
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) 'Lässt linke Maustaste wieder 
    ' los
End Sub

_________________________________________________
VB.Net Einsteiger mit fortgeschrittenem Unwissen.

Beitrag wurde zuletzt am 14.04.13 um 16:24:58 editiert.