Superjump VB6 code?

[ltkort213]

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:

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

Greetings LTKort213.

[dikkind]

Ive got the same problem it works only in emblem.. :S

[kingkicker8]

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)

[ZeaS]

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

[dezer]

without including readafloat and writeafloat functions in module those codes wont work
so add this to ur 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

[ltkort213]

OK guys thats cool thnx