Maus simulieren

30/12/2007 - 08:07 von Karsten Sosna | Report spam
HalloNG,
ich suche eine Moglichkeit mit der ich die Maus simulieren kann. Mit
Cursor.Position kann ich schonmal die Postion àndern. Aber wie teile ich
jetzt mit das bspw. die linke Maustaste gedrückt ist?

Danke für jeden Tipp.
Gruß Scotty
 

Lesen sie die antworten

#1 Karsten Sosna
30/12/2007 - 08:48 | Warnen spam
ich suche eine Moglichkeit mit der ich die Maus simulieren kann. Mit
Cursor.Position kann ich schonmal die Postion àndern. Aber wie teile ich
jetzt mit das bspw. die linke Maustaste gedrückt ist?



Gefunden, mit SendMessage geht es.
\\\
Declare Auto Function SendMessage Lib "user32" (ByVal hwnd As IntPtr, ByVal
message As Int32, ByVal wparam As Int32, ByVal lparam As Int32) As Int32
Private Const WM_LBUTTONDOWN As Int32 = &H201
Private Const WM_LBUTTONUP As Int32 = &H202
'...
Dim x As Int32 = 20
Dim y As Int32 = 50
Dim point As Int32 = y << 16
point = point Or x
SendMessage(Me.Handle, WM_LBUTTONDOWN, 0, point)
SendMessage(Me.Handle, WM_LBUTTONUP, 0, point)
///
Gruß Scotty

Ähnliche fragen