[tut] superjump code in vb6

[cjg333]

'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.

[kingkicker8]

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

[smartie]

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

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

[cjg333]

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

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

[kingkicker8]

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

[cjg333]

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.

[kingkicker8]

u hadent define jump...

u just have to add

dim jump as long

[cjg333]

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

[cjg333]

dam hell yea i forgot to put Dim jump As Long,srry
im glad you got it,woot woot

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