Need Help With Shotgun Hack

[x0hack0x]

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

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?

[wr194t]

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

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.

[x0hack0x]

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

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

im rubbish at this

[wr194t]

I see. I forgot Then and End If:

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

[ivopereira]

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