Superjump VB6 code?
Superjump VB6 code?
Yo guys,
please help me, I am making a hack, but I have adresses and that kind of things. And all hacks work, but when I use super jump, I come under the level! What did I do wrong
Please help me! This is my superjump VB6 code:
Greetings LTKort213.
please help me, I am making a hack, but I have adresses and that kind of things. And all hacks work, but when I use super jump, I come under the level! What did I do wrong
Please help me! This is my superjump VB6 code:Code:
Private Sub timer2_timer()
Dim Superjump As Long
Dim Superjump1 As Long
Call ReadALong("Warrock", &H896E28, Superjump)
Superjump1 = Superjump + &H180
Call WriteALong("Warrock", Superjump1, 2500)
End Sub
Ive got the same problem it works only in emblem.. :S
this should work:
Dim jump As Long
Dim jump1 As Long
Dim jump3 As Single
Call ReadALong("WarRock", &H896E28, jump)
jump1 = jump + &H180
jump3 = Text2.Text
Call WriteAFloat("WarRock", jump1, jump3)
Dim jump As Long
Dim jump1 As Long
Dim jump3 As Single
Call ReadALong("WarRock", &H896E28, jump)
jump1 = jump + &H180
jump3 = Text2.Text
Call WriteAFloat("WarRock", jump1, jump3)
i made it with hotkey ^^ and with text... so you can switch the high....
Private Sub Timer4_Timer()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then
Dim Superjump As Long
Dim Superjump1 As Long
Dim Superjump2 As Single
Call ReadALong("WarRock", &H896E28, Superjump)
Superjump1 = Superjump + &H180
Superjump2 = Text1.Text
Call WriteAFloat("WarRock", Superjump1, Superjump2)
End If
End Sub
Private Sub Timer4_Timer()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then
Dim Superjump As Long
Dim Superjump1 As Long
Dim Superjump2 As Single
Call ReadALong("WarRock", &H896E28, Superjump)
Superjump1 = Superjump + &H180
Superjump2 = Text1.Text
Call WriteAFloat("WarRock", Superjump1, Superjump2)
End If
End Sub
without including readafloat and writeafloat functions in module those codes wont work
so add this to ur module:
so add this to ur module:
Code:
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
OK guys thats cool thnx
This thread is closed for replies.
