Links - /Rechts-Maus-Klick-Funktion VB.NET

Ich versuche, mein eigenes auto-clicker (einstellbar nach Links oder rechts, je nach radio button Auswahl), und ich kann nicht scheinen, um die Maus klicken Sie auf. Um der Lage sein, um die Verzögerung wollte der auto-clicker, ich habe es innerhalb der Timer1 (eine für die linke auf, eine für die Rechte Maustaste). Meine Fragen sind:

a) Wie kann ich die Maus klicken, wenn eine bestimmte Taste gedrückt ist (e.g, F6).

b) Wie kann ich es machen das die Verzögerung von Timer1/Timer2 für jeden Klick.

Für die Aufnahme, ich Wünsche für diese auto-clicker ÜBERALL arbeiten, nicht nur in der form.

  • Können Sie erklären, was ein auto-clicker ist?
  • Ein auto-clicker ist ein Programm, das automatisch klickt die Maus. Hier ist ein Beispiel für eine weniger fortschrittliche auto-clicker. garyshood.com/rsclient/rsclient.exe
InformationsquelleAutor user3568182 | 2014-05-22
  1. 2

    Können Sie verwenden user32.dll lib.

    Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)

    &H2 bedeutet linke Maustaste gedrückt.
    &H4 bedeutet die linke Maus-Taste, bis.

    mouse_event(&H2, 0, 0, 0, 0)
mouse_event(&H4, 0, 0, 0, 0)
    • Danke! Der Klick auf ein Teil fixiert ist. Ich muss nur wissen, wie man die auto-clicker funktioniert sogar, während die form " deaktiviert ist.
    • Alle Probleme wurden gelöst!
    InformationsquelleAutor Francesco Menzani
  2. 0

    Ich könnte mir vorstellen, so etwas würde funktionieren, überprüfen Sie vKey-Liste, um hotkey ändern.

    Oben Klasse:

    Imports System.Threading

    Main-Klasse deklariert:

    Dim ClickTimer As System.Threading.Thread = New System.Threading.Thread(AddressOf DoClicks)
Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Integer
Dim exit_thread As Boolean = False
Dim ClickerHotkey As Integer = &H20 '0x20 = space

    Form_Load:

    ClickTimer.Start()

    Innen Klasse:

    Public Function DoClicks()
        While (Not exit_thread)
            If GetAsyncKeyState(ClickerHotkey) Then
                mouse_event(&H2, 0, 0, 0, 1)
                mouse_event(&H4, 0, 0, 0, 1)
            End If
            Thread.Sleep(15)
        End While
End Function

    Form_OnClose:

    exit_thread = true
    InformationsquelleAutor Hansa Ribe
Schreibe einen Kommentar