OldSchoolHack

Register / Login English
deutschDeutsch
englishEnglish
New Posts Advanced Search

BHop vb.net

icon Thread: [Coding] BHop vb.net

Join Date: Jul 2015

Posts: 1

 Hallo,
Ich habe einen kleinen bhop Hack für csgo geschrieben.
Doch leider funktioniert der nicht kann mit jmd weiterhelfen? 

SOURCE:

Public Class Form1
    Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Long, ByVal Size As Long, ByRef BytesWritten As Long) As Long
    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

    'Offsets
    Dim PlayerBase As Integer = &HA77D3C
    Dim FlagOFF As Integer = &H100

    'Dims
    Dim exit_thread As Boolean = False
    Dim TB As System.Threading.Thread = New System.Threading.Thread(AddressOf BHop)
    Dim CSP As Process()
    Dim olfs As Integer
    Public cLocalPlayer As Single
    Public flag As Single


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim u As String = "client.dll"
        Dim x As String = "csgo"
        CSP = Process.GetProcessesByName(x)
        If Process.GetProcessesByName("csgo").Length > 0 Then
            For Each [Module] As System.Diagnostics.ProcessModule In CSP(0).Modules
                If [Module].ModuleName = u Then
                    olfs = [Module].BaseAddress
                End If
            Next
            BHop.Start()
        End If
    End Sub
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        exit_thread = True
    End Sub

    Function BHop()
        While (Not exit_thread)
            ReadProcessMemory(CSP(0).Handle, olfs + PlayerBase, cLocalPlayer, 4, 0)
            ReadProcessMemory(CSP(0).Handle, cLocalPlayer + FlagOFF, flag, 4, 0)

            If GetAsyncKeyState(Keys.Space) Then

                If flag > 257 Then
                    SendKeys.Send(Keys.Space)
                Else

                End If

            End If
            Threading.Thread.Sleep(10)
        End While
    End Function

End Class

hansbergerFeld is offline