Code:
Private Sub Timer15_Timer()
If GetKeyPress(vbKeyNumpad7) Then
Call ReadALong("WarRock", &H24703F4, 24)
End If
End Sub
it reads the adress....
it must write

Code:
Private Sub Timer15_Timer()
If GetKeyPress(vbKeyNumpad7) Then
Call WriteALong("WarRock", &H24703F4, 24)
End If
End Sub
good luck