Public Class Form1

    Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)

    Private Const mouseclickup = 4 

    Private Const mouseclickdown = 2

    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

 

     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

     End Sub

 

     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

          mouse_event(mouseclickdown, 0, 0, 0, 0)

          mouse_event(mouseclickup, 0, 0, 0, 0) 

     End Sub

 

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

         Timer1.Start() 

     End Sub

 

     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

         Timer1.Stop()

     End Sub

 

     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

     Dim hotkey As Boolean

     hotkey = GetAsyncKeyState(Keys.F1)

     If hotkey = True Then Timer1.Start()

     Dim hotkey1 As Boolean

     hotkey1 = GetAsyncKeyState(Keys.F2)

     If hotkey1 = True Then Timer1.Stop()

     End Sub 

End Class

 

 

gadgets para blogger

elige el color del fonfo

Disfruta de algo de musica mientras estas en autoclicks-bang