Need Help With Shotgun Hack

i need to make a hotkey for the hack but i dunno what to do ! this is the code i got so far

Code:

Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H1279280, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteAFloat("Warrock", Shotgun1, Text1.Text)
If GetKeyPress(vbKey) And GetKeyPress(vbKey)

please help

and are the addresses right ?
and will it need a timer to?

Wrong addresses
Hotkey code is in the wrong place, and it's incorrect
Weapons uses WriteALong, not WriteAFloat

Code:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyS)
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H1306A70, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("Warrock", Shotgun1, Text1.Text)

This is the correct code.

but when i put them parts in i get a compile error and this part comes up in red

Code:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyS)
Dim Shotgun1 As Long

im rubbish at this

I see. I forgot Then and End If:

Code:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyS) Then
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H1306A70, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("Warrock", Shotgun1, Text1.Text)
End If

Do you know how to make the weapons hack working on VB.Net? I can't get to work Weapons Hack and Stamina Hack on VB.Net

Need Help With Shotgun Hack

Similar Threads

Tags for this Thread