
Private Sub Timer1_Timer()
Call WriteALong("Warrock", &H943A54, 0)
Call WriteALong("Warrock", &H943A55, 0)
Call WriteALong("Warrock", &H943A56, 0)
Call WriteALong("Warrock", &H943A57, 0)
Call WriteALong("Warrock", &H943A58, 0)
Call WriteALong("Warrock", &H943A59, 0)
End Sub
Private Sub Command1_Click() Timer1.Interval = 1 End Sub
Private Sub Command2_Click() Timer1.Interval = 0 End Sub
Private Sub Timer2_Timer() "Hotkey for the On Button If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyF1) Then "(Strg + F1) Timer1.Interval = 1 End If End Sub
Private Sub Timer3_Timer() "Hotkey for the Off Button If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyF2) Then "(Strg + F2) Timer1.Interval = 0 End If End Sub



!!YOU ONLY HAVE TO COPY IT!! 


