|
| Autor |
Nachricht |
Kackwurst28_
Newbie
Anmeldedatum: 18.11.2007
Beiträge: 6
|
Sendkey, Linke Maustaste wie?
Verfasst am: 10.03.2008, 20:03 |
|
|
Hi,
Ich brauche eure Hilfe^^
Und zwar brauche ich den Sendkey befehl für die Linke Maustaste.
Ich habe gelesen, dass es so aussehen soll:
SendMouseKey(eigene funktion)
nur was soll in die klammern? ()
Also es soll einfach nur die linke maustaste gecklickt werden
thx schonmal |
|
| |
|
 |
Kackwurst28_
Newbie
Anmeldedatum: 18.11.2007
Beiträge: 6
|
Verfasst am: 14.03.2008, 15:35 |
|
|
*push*
Weiß das niemand?
Würde mich echt freuen, wenn mir jemand den Befehl sagen könnte |
|
| |
|
|
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
|
Verfasst am: 14.03.2008, 15:45 |
|
|
| Code: | Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
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 Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10
Public Enum MouseButtons
LeftMouseButton
RightMouseButton
MiddleMouseButton
End Enum
Public Sub MouseUp(MouseButton As MouseButtons)
Select Case (MouseButton)
Case LeftMouseButton
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
Case MiddleMouseButton
Call mouse_event(MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0)
Case RightMouseButton
Call mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
End Select
End Sub
Public Sub MouseDown(MouseButton As MouseButtons)
Select Case (MouseButton)
Case LeftMouseButton
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Case MiddleMouseButton
Call mouse_event(MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0)
Case RightMouseButton
Call mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
End Select
End Sub
Public Sub MouseClick(MouseButton As MouseButtons)
MouseDown (MouseButton)
MouseUp (MouseButton)
End Sub |
benutzen kannst du das dann so:
| Code: | | MouseClick (LeftMouseButton) |
|
|
| |
|
|
|
|
Registrieren
Login
