[Tut] Duals Scorpions hack

ill show u how make a dual scorpions hack with VB6
Make 2buttons and 1 timer
double click on button1 and write Timer1.Enabled = True
duoble click on button2 and vrite Timer1.Enabled = False
Then change they names in box named CAPTION
Then Duoble click on timer and write this code
Code:
If getkeypress (vbKey5) Then
Dim Shotgun2 As Long
Dim Shotgun3 As Long
SendKeys "{1}"
Call readalong("Warrock", &H13773A0, Shotgun2)
Shotgun3 = Shotgun2 + &H4C
Call writealong("Warrock", Shotgun3, 30)
SendKeys "{w}+{shift}"
End If


Ok Hotkey is 5 YOU can change it..
Code:
If getkeypress (vbKeyYOUR NUMBER OR LETTER) Then

Thats all now press FILE>Make Project1.exe

Woot thats is your first Dual Scorps Hack

is this dealing shotgun damage? or dual scorpions?

cant wait till next update 4 warrock hacks

plz post for VB8

getkeypress<<< keep getting error on that sub or commasnd not found

i get errors with the SendKeys "{w}+{shift}"

this is a simple weapon hack, you need a damage hack if you want to kill anyone

Do i change End Sub to End if?