shotgun hack error

i wanna make a shotgun hack but i get a error i cant find what ive done wrong can u plz help me

i got 1 butten whit this is
Timer4.enabled=true

i got interval 1
and otehr thing false

and this in the timer :

Private Sub Timer4_Timer()
If hotkey(vbKeyF6) Then
Dim SHOTGUN1 As Long
Dim SHOTGUN2 As Long
SendKeys "{2}"
Call vaak("Warrock", &H13941F0, SHOTGUN1)
SHOTGUN2 = SHOTGUN1 = &H4C
Call gerbuik("Warrock", SHOTGUN2, 42)
SendKeys "{w}+{shift}"
End If
End Sub



i hope u can help me
boyd45 (newbie hacker)

Try this:
Timer4:
If getkeypress(vbKeyF6) Then
Dim SHOTGUN1 As Long
Dim SHOTGUN2 As Long
SendKeys "{2}"
Call ReadALong("Warrock", &H13941F0, SHOTGUN1)
SHOTGUN2 = SHOTGUN1 = &H4C
Call WriteALong("Warrock", SHOTGUN2, 42)
SendKeys "{w}+{shift}"
End If
End Sub

This would be right.