[tut] superjump code in vb6

'ok add this to your module.

Public Function ReadAFloat(gamewindowtext As String, address As Long, valbuffer As Single)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If

GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If

ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function



Public Function WriteAFloat(gamewindowtext As String, address As Long, value As Single)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long

hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If

GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If

WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

--------------------------------------------------------------------------
'and this is how you write a float,

Dim jump1 As Long
Dim jump3 As Single

'...

Call ReadALong("WarRock", &H896E28, jump) ' Read a value from memory - I assume the value being read is a pointer
jump1 = jump + &H180 ' Add 384 (&H180) to the pointer
jump3 = 2000 ' Assign the value to be written
Call WriteAFloat("WarRock", jump1, jump3) ' write a floating point value

if this helps give me rep.

kay.. good tut, but it wont work ^^.. got the modul and:

Private Sub Timer16_Timer()
If GetAsyncKeyState(119) <> 0 Then
Dim jump1 As Long
Dim jump3 As Single
Call ReadALong("WarRock", &H896E28, jump1)
jump1 = jump + &H180
jump3 = Text2.Text
Call WriteAFloat("WarRock", jump1, jump3)
End If
End Sub


wont work.. lol.

EDIT: in readalong, your thing were jump not jump1 .. but its not defined ^^