first you can use openprocess api to get process handle
next you can use readprocessmemory & writeprocessmemory to get address value & write value
i made a function about openprocess
Public Function OpenProcessBypName(ByVal pName As String) As IntPtr
Dim process As Process = process.GetProcessesByName(pName)(0)
If Not process.MainWindowHandle.Equals(IntPtr.Zero) Then
hProc = OpenProcess(&H1F0FFF, False, proces*****)
End If
OpenProcessBypName = hProc
End Function
how to use:
for example game process name is kingdom.exe
you just paste: Dim hProc as intptr = OpenProcessBypName("kingdom")
then you can get the process handle
Get address Value:
dim Value as integer = 0
ReadProcessMemory(hProc, &H12345678, Value, 4, False)
msgbox Value.Tostring
Write address value:
WriteProcessMemory(hProc,&H12345678, 123, 4, 0)
&h12345678 = address
123 = value
that just for no pointer address
if your address is pointer address
you must read address + offset
for example:
Write Pointer:
Dim Offset As IntPtr = 0
Dim Offset1 As IntPtr = 0
ReadProcessMemory(hProc, &HF7306C, Offset, 4, 0)
ReadProcessMemory(hProc, Offset + &H28, Offset1, 4, 0)
WriteProcessMemory(hProc, Offset1 + &H908, 0, 4, 0)
Read Pointer:
Dim Offset As IntPtr = 0
Dim Offset1 As IntPtr = 0
Dim Value As Integer = 0
ReadProcessMemory(hProc, &HF7306C, Offset, 4, 0)
ReadProcessMemory(hProc, Offset + &H28, Offset1, 4, 0)
ReadProcessMemory(hProc, Offset1 + &H908, Value, 4, 0)
Msgbox Value.Tostring