Need Help With Shotgun Hack
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
please help 
and are the addresses right ?
and will it need a timer to?
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)
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)
but when i put them parts in i get a compile error and this part comes up in red
im rubbish at this 
Code:
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyS) Dim Shotgun1 As Long
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 
Similar Threads
- 3Last post
- 12Last post
- 4Last post
- 4Last post
- 4Last post