is a sample for you. Its for SuperJump With the Hotkeys Control+ Space
Code:
Private Sub TimerXX_Timer()
Dim spj as Long
Dim spj2 as Long
Call rlong("Warrock", &H1180400, spj)
spj2 = spj + &H178
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then
Call wlong("Warrock", spj2, 1500)
End If
End Sub
But don´t just copy this! Think about it