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
*Topic verschoben*
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
- Public Class Form1
- 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)
- Public Declare Sub mouse_event Lib "user32" Alias "mouse_move" (ByVal duFlags As Long)
- Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16
- Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
- Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- KeyPreview = True
- Timer2.Enabled = True
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- MyMethod()
- End Sub
- Private Sub MyMethod()
- Windows.Forms.Cursor.Position = New System.Drawing.Point(Windows.Forms.Cursor.Position)
- mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 1)
- mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 1)
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- If TextBox1.Text = ("") Then
- MsgBox("Please, put a valid number value", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "ERROR")
- Else
- Timer1.Interval = ((TextBox1.Text) * (1))
- End If
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- TextBox2.Text = TextBox2.Text + 1
- End Sub
- Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
- Dim F3key As Boolean
- F3key = GetAsyncKeyState(Keys.F3)
- If F3key = True Then
- Timer1.Start()
- End If
- End Sub
- End Class
*Topic verschoben*
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()