shotgun hack error

[boyd45]

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)

[badcobra10]

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.

[boyd45]

ok i will try

[badcobra10]

Tell if it work.
And Change "ReadALong" and "WriteALong" to it what your module show.

[boyd45]

yeah i know that

[boyd45]

look when im playing and i press the hotkey it gives me an error
my hack closes then wehn i roll i get myt shotgun in the error
i can choose debug and end
when i press debug i see this

screenshot: dont work atm

i get this:
Private Sub Timer6_Timer()
If meteen(vbKey6) Then
Dim SHOTGUN1 As Long
Dim SHOTGUN2 As Long
SendKeys "{2}"
Call hadje("Warrock", &H1395200, SHOTGUN1)
SHOTGUN2 = SHOTGUN1 + &H4C
Call nietverwacht("Warrock", SHOTGUN2, 42)
SendKeys "{w} + {shift}" <<<<<< this is yellow
End If
End Sub