what is wrong with this ??

This codes i got from wr194t

: If GetKeyPress(vbKey5) Then
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &H12A8560, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("Warrock", Shotgun2, 42)

If GetKeyPress(vbKey5) Then
Dim SmokeNade As Long
Dim SmokeNade1 As Long
Call ReadALong("Warrock", &H12A8560, SmokeNade)
SmokeNade1 = SmokeNade + &H4C
Call WriteALong("Warrock", SmokeNade1, 42)

but they dont work anymore in the game ?? why

You're using the same hotkey and values for both hacks, and your address is wrong:

Shotgun:
Smoke Granade:

err... it's WriteAFloat not WriteALong