Code mit einem Hotkey Aktivieren und Deaktivieren

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Marcus Gräfe.

    Code mit einem Hotkey Aktivieren und Deaktivieren

    Guten Tag

    Ich bin gerade dabei mir einen Auto Clicker zu Coden.
    Bis jetzt geht auch alles aber mein Problem ist das ich nicht weiß wie ich den Clicker mit z.B F3 Aktivieren und mit druck auf die selbe Taste wieder Deaktivieren kann.
    Ich bin bis jetzt so weit das der Clicker mit einem Druck auf die F3 Taste startet aber dann hallt nicht mehr aus geht.
    Ich würde mich über Ideen oder Hilfe freuen.

    Mfg.Tasax

    Code

    VB.NET-Quellcode

    1. Public Class Form1
    2. 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)
    3. Public Declare Sub mouse_event Lib "user32" Alias "mouse_move" (ByVal duFlags As Long)
    5. Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16
    7. Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
    8. Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    12. KeyPreview = True
    14. Timer2.Enabled = True
    16. End Sub
    18. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    19. MyMethod()
    20. End Sub
    21. Private Sub MyMethod()
    22. Windows.Forms.Cursor.Position = New System.Drawing.Point(Windows.Forms.Cursor.Position)
    23. mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
    24. mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 1)
    25. End Sub
    27. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    28. If TextBox1.Text = ("") Then
    29. MsgBox("Please, put a valid number value", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "ERROR")
    30. Else
    31. Timer1.Interval = ((TextBox1.Text) * (1))
    32. End If
    33. End Sub
    35. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    36. TextBox2.Text = TextBox2.Text + 1
    37. End Sub
    39. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    41. Dim F3key As Boolean
    42. F3key = GetAsyncKeyState(Keys.F3)
    44. If F3key = True Then
    45. Timer1.Start()
    46. End If
    48. End Sub
    49. End Class


    *Topic verschoben*

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    1. Statt den allgemeinen CodeTags bitte die VB.Net CodeTags verwenden.
    2.

    VB.NET-Quellcode

    1. If F3key = True Then
    2. Timer1.Start()
    3. End If
    Das ist wohl der Knackpunkt, da Dein Einschalter. Statt also nur das Einschalten einzuprogrammieren, mach

    VB.NET-Quellcode

    1. If F3key Then ClickerIsActivated = Not ClickerIsActivated
    2. If ClickerIsActivated Then
    3. Timer1.Start
    4. Else
    5. Timer1.Stop
    6. End If

    3. AutoClicker? Cheater?!?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    AutoClicker klingt nicht legal, daher schließe ich das Thema.

    Weiterhin empfehle ich dir die Lektüre dieses Threads, damit der nächste Thread von dir nicht schon wieder im VBA-Forum landet:     [Allgemein] VB.NET, VB6, VBA, VBS — Mit welcher Sprache programmiere ich eigentlich?
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

Facebook
Telefonspende