Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Dim Health As Integer = &H1A4B159
Dim displayHealth As Integer
Dim proc As Process = Process.GetCurrentProcess
For Each proc In Process.GetProcesses
If proc.MainWindowTitle = "BlackOps" Then
ReadProcessMemory(proc.Handle.ToInt32(), Health, displayHealth, 4, 0)
End If
Next
Label14.Text = (displayHealth)
End Sub
If proc.MainWindowTitle = "BlackOps" Then
If proc.MainWindowTitle = "Call of Duty©: BlackOps" Then
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Dim RBuff1 As Long
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX16.Click
Dim BlackOpsLookUp As Process() = Process.GetProcessesByName("BlackOps")
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, BlackOpsLookUp(0).Id)
ReadProcessMemory(processHandle, &H1A4B15C, RBuff1, 4, Nothing)
Label14.Text = (RBuff1)
End Sub
Dim processHandle As IntPtr = OpenProcess(&H10, 0, BlackOpsLookUp(0).Id)