[align=justify] Private Declare Function GetAsyncKeyState Lib "user32.dll" (vKey As Keys) As Short
Private Declare Sub mouse_event Lib "user32.dll" (dwFlags As Integer, dx As Integer, dy As Integer, dwData As Integer, dwExtraInfo As Integer)
Private Declare Auto Sub keybd_event Lib "user32.dll" (bVk As Byte, bScan As Byte, dwFlags As Long, dwExtraInfo As Long)
'--------------------------------------------------------------------------------------------------------------
Private Sub hareket_Tick(sender As Object, e As EventArgs) Handles hareket.Tick
Label1.Text = Control.MousePosition.X
Label2.Text = Control.MousePosition.Y
TextBox1.Text = "(" & Label1.Text & ", " & Label2.Text & ")"
Dim a
Dim Rastgelekonum As New Random
Dim Olusturulankonum As Integer = Rastgelekonum.Next(0, Screen.PrimaryScreen.Bounds.Width)
a = New Drawing.Point(Olusturulankonum, 350)
Cursor.Position = a
mouse_event(&H2, 0, 0, 0, 1)
mouse_event(&H4, 0, 0, 0, 1)
End Sub
'--------------------------------------------------------------------------------------------------------------
Private Sub key_Tick(sender As Object, e As EventArgs) Handles key.Tick
If GetAsyncKeyState(Keys.F2) Then
hareket.Start()
End If
If GetAsyncKeyState(Keys.F3) Then
hareket.Stop()
End If
End Sub
End Class