Deutsch
|
BHop vb.net | #1 |
|
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 | ||
