Private Declare Function HetasynsKeyState Lib "user32" (ByVal key As Long) As Integer
Private Sub Timer1_Timer()
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H8B5288, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)
End Sub
Private Sub Timer2_Timer()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKey1) Then
Timer1.Interval = 1
End If
End Sub