[Visual Basic 2008] MausKlick Simulation [Hilfe]

[Cash²]

Hey,
also ich möchte einen MausKlick simulieren und habe es auch schon in google gesucht, aber ich finde nichts passendes bzw. unvollständige Beiträge.

- linker Mausklick
- rechter Mausklick


Für Antworten bin ich sehr dankbar.

Gruß
Cash²

[scenebase]

	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

Zum aufrufen:

Rechts klick:
Call mouse_event(MOUSEEVENTF_RIGHTDOWN, MousePosition.X, MousePosition.Y, 0, 0)

Links klick:
Call mouse_event(MOUSEEVENTF_LEFTDOWN, MousePosition.X, MousePosition.Y, 0, 0)

[Cash²]

Kann man das nicht irgendwie über den Befehl

SendKeys.Send("{*}")

* = Ausgewählte Taste

machen?
Oder ist das nur für die Tastatur?

Und wo soll/kann ich den KlickPunkt festlegen?

[buFFy!]

PostMessage und SendMessage gehen nicht?

[Cash²]

Post Message, SendMessage?

[HardCore.1337]

Beides sind Grundfunktionen aus der Windows API

[Cash²]

Weiteres Problem, wenn ich jetzt diesen Code nehme

 Windows.Forms.Cursor.Position = New Point(X, Y)

bewegt sich zwar der cursor zu dem Punkt, aber macht keinen LinksKlick, ist das auch so gedacht?

[Elite-1337]

Das setzt nur die Position der Maus. Den klick muss man danach noch durchführen

[Cash²]

Originally Posted by Elite-1337

Das setzt nur die Position der Maus. Den klick muss man danach noch durchführen

Ja und das ist auch meine Frage. xD

[buFFy!]

Originally Posted by Cash²

Ja und das ist auch meine Frage. xD

Tasten Senden: SendInput, PostMessage, SendMessage
Maus bewegen: PostMessage und SendMessage.

[Cash²]

Originally Posted by u-coRe

Tasten Senden: SendInput, PostMessage, SendMessage
Maus bewegen: PostMessage und SendMessage.

Bezieht sich "TastenSenden" nur auf die Tastatur oder auch Maus?
Bitte keine Microsoft Seiten Angaben, da versteh ich sowieso nichts (Anfänger).

[buFFy!]

Auch auf die Maus

[Nosferatu.]

ich habe hier was gefunden, evtl hilft es dir ja:

Ich habs in google gefunde, und so wie es aussieht könntest du es sicher gebrauchen.

Module WinFromPoint

    Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
    ByVal hwnd As IntPtr, _
    ByVal wMsg As Int32, _
    ByVal wParam As Int32, _
    ByVal lParam As Int32) As Int32

    Public Declare Function WindowFromPoint Lib "user32" ( _
    ByVal stPoint As Point) As IntPtr

    Public Const WM_LBUTTONDOWN = &H201
    Public Const WM_LBUTTONUP = &H202

    Public Sub DoClick()

        Dim MyPoint As Point
        MyPoint.X = 50
        MyPoint.Y = 50

        Dim ptHwnd As IntPtr = WindowFromPoint(MyPoint)

        Dim retVal As Int32 = PostMessage(ptHwnd, WM_LBUTTONDOWN, 0, 0&)

        retVal = PostMessage(ptHwnd, WM_LBUTTONUP, 0, 0&)

    End Sub

End Module

[waldi_]

Originally Posted by Cash²

Weiteres Problem, wenn ich jetzt diesen Code nehme

 Windows.Forms.Cursor.Position = New Point(X, Y)

bewegt sich zwar der cursor zu dem Punkt, aber macht keinen LinksKlick, ist das auch so gedacht?

Du schreibst zuerst iwo oben das:

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

//Rechts klick:
//Call mouse_event(MOUSEEVENTF_RIGHTDOWN, MousePosition.X, MousePosition.Y, 0, 0)

//Links klick:
//Call mouse_event(MOUSEEVENTF_LEFTDOWN, MousePosition.X, MousePosition.Y, 0, 0)

und dann wo der befehl hinkommt:

Windows.Forms.Cursor.Position = New Point(X, Y)
	Call mouse_event(MOUSEEVENTF_RIGHTDOWN, MousePosition.X, MousePosition.Y, 0, 0)

[Cash²]

Call wird als Fehler unterstrichen.