Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- Randomize()
- Dim speedDown As New Random
- Dim min As Decimal
- Dim max As Decimal
- min = 1000 / FlatTrackBar2.Value
- max = 600 / FlatTrackBar1.Value
- Timer1.Interval = speedDown.Next(max, min)
- mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
- Timer5.Start()
- End Sub
- Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
- Randomize()
- Dim speedUp As New Random
- Timer5.Interval = speedUp.Next(20, 100)
- If MOUSEEVENTF_LEFTDOWN Then
- mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement