i'll release it anyways since there havent been much trainers with superjump cause its not easy in vb
superjump - whats wrong
but i like it in mine -.-
or u will say: u dont know, how to make in VB? :P
i just need it in my trainer.. course public is risic.. and: much risic - no fun
please help me just with code :P
or u will say: u dont know, how to make in VB? :P
i just need it in my trainer.. course public is risic.. and: much risic - no fun
please help me just with code :P
i dont know how to make it in vb really. i was trying 
oh 
please try it and say me :P
please try it and say me :Pi did i did but im a rookie at vb so i dont know how to do such things
u. ammo is hard in vb too...
u. ammo is hard in vb too...
hey man ... dun wanna offend you but ... STFU plz , all have tried to get the goddamned superjump in VB, use search, and u will find out that NO ONE figured out how 2 do it
why hard.. can i do writealong instead of float..?
writealong will write a long as the function name says lol. and u need to write a float
one position kill:
super jump
attach debugger
breakpoint
super jump
attach debugger
breakpoint
Code:
Call ReadALong("Warrock", &H896E28, value)
Value1 = value + &H180
Call WriteALong("Warrock", Value1, 2000)
nope.. it wont work ^^..
write is a data u like to set,,, like stamina to max...
write is a data u like to set,,, like stamina to max...
Yo dude, I got i't staight Out of my source code why would i't not work?
i have superjump workin in my vb6 code.i posted a tut in the general section,here it is http://www.mpgh.net/forum/showthread.php?t=9914
and if your too lazy to goto that page here is the code for yuor module and read/write functions
'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.
and if your too lazy to goto that page here is the code for yuor module and read/write functions
'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.
ok srry for the mishapp but this code needs
dim jump as long
dim jump as long
it works fine
This thread is closed for replies.
