[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 ^^

It's not really a tutorial, just a code....

You should post the steps you have taken through the whole proces.

you have to add that module to theredeyes module and it will work

nope.. THIS code dont work.. but if u think a min u can correct it ^^
miney work well after correct

w/e man it works fine for me,i dont understand why your havin problems,its a copy and paste.what is so hard about that.

u hadent define jump...

u just have to add

dim jump as long

oh well i had that at the top with the code,but im glad you got it,woot woot

IF your having anymore problems hit me up on msn cobra9590@hotmail.com