Visual Basic Bunnyhop

Yes it is visual basic, and yes im not that good coder,
i just want sombody to help my with this piece of code.

The problem i have is that it doesnt jump.

Code:

 If GetAsyncKeyState(Keys.Space) Then
            ReadProcessMemory(cs(0).Handle, dll + playerbase + localplayer, m_fflags, 4, 0)
            If m_fflags = onground Then
                MsgBox("Jump")

            End If

        End If

onground = 257
all offsets are from today

Originally Posted by csg0hacker

Yes it is visual basic, and yes im not that good coder,
i just want sombody to help my with this piece of code.

The problem i have is that it doesnt jump.

Code:

 If GetAsyncKeyState(Keys.Space) Then
            ReadProcessMemory(cs(0).Handle, dll + playerbase + localplayer, m_fflags, 4, 0)
            If m_fflags = onground Then
                MsgBox("Jump")

            End If

        End If

onground = 257
all offsets are from today

But you are not even writing to it jump .-.

Write<int>(Client + offset_ForceJump, 5)
Sleep(20) should be good
and after sleep
Write<int>(Client + offset_ForceJump, 4)

So it should be something like this.

Code:

If GetAsyncKeyState(Keys.Space) Then
       ReadProcessMemory(cs(0).Handle, dll + playerbase + localplayer, m_fflags, 4, 0)
       If m_fflags = 257 Then
               Write<int>(Client + offset_ForceJump, 5)
               Sleep(20)
               Write<int>(Client + offset_ForceJump, 4)
       End If
End If

Idk how you use Sleep and WriteProcessMemory in VB, but should be something like this. (:

This is how I do it in c#, should be pretty easy to convert to VB

Code:

            if (Smurf.KeyUtils.KeyIsDown(_bunnyJumpKey))
                Smurf.Memory.Write(Smurf.ClientBase + Offsets.Misc.Jump, Smurf.LocalPlayer.InAir ? 4 : 5);

u can use my code

Module Bhop
Public Sub Bhop()
While True
Dim pLocalPlayer = Mem.ReadInt(bClient + Offsets.oLocalPlayer, 4)
Dim Flags = Mem.ReadInt(pLocalPlayer + Offsets.oFlags, 4)

If GetAsyncKeyState(Keys.Space) And Flags = 257 Then
Mem.WriteInt(bClient + Offsets.OffsetJump, 4, 5)
Else
Mem.WriteInt(bClient + Offsets.OffsetJump, 4, 4)
End If
End While
End Sub
End Module

Seems multiple have helped and user has been online with no update/bump.

/Closed.

Visual Basic Bunnyhop

Similar Threads

Tags for this Thread