neowrs
Newbie cheater
![]() Reputation: 0
Joined: 07 Oct 2015
Posts: 15
|
 Posted: Sun Dec 13, 2015 5:58 pm Post subject: [VB.NET] Thanks Fixed by luck >> it's impossible to sc |
 |
|
it's impossible to scan aob
i tried a lot before post it and search a lot
finally working but the problem it work with some aob and some not i don't know the reason
with this one not work 83 C1 08 E8 8B 45 75 21 0F CB
| Code: | #Region "Function"
Public Function AobScan(Pattern As Byte()) As IntPtr
Dim Game As Process = Process.GetProcessById(CInt(Me.ProcessID))
If Game.Id = 0 Then
Return IntPtr.Zero
End If
MemoryRegion = New List(Of MEMORY_BASIC_INFORMATION)()
MemInfo(Game.Handle)
For i As Integer = 0 To MemoryRegion.Count - 1
Dim buff As Byte() = New Byte(MemoryRegion(i).RegionSize - 1) {}
ReadProcessMemory(Game.Handle, MemoryRegion(i).BaseAddress, buff, MemoryRegion(i).RegionSize, 0)
Dim Result As IntPtr = Scan(buff, Pattern)
If Result <> IntPtr.Zero Then
Return New IntPtr(MemoryRegion(i).BaseAddress.ToInt32() + Result.ToInt32())
End If
Next
Return Int
#End Region |
Button
| Code: | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If GetProcessId("Client") = False Then
Exit Sub
Else
AOBSCAN("Client", "Client.bin", New Byte() {&H8B, &HFE, &H1, &H80, &H90, &HF, &H85, &HC0, &H75, &H21}, New Byte() {&HFF, &HFF, &HFF, &HFF, &HFF, &H0, &H0, &H0, &H0, &HFF})
End If
End Sub |
i hope there way
Thanks Fixed by luck
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
