[VB]Memory Hacking

Quote

Public Class Form1
   Public Declare Function ReadProcessMemory Lib \"kernel32\" Alias \"ReadProcessMemory\" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
   Public Declare Function WriteProcessMemory Lib \"kernel32\" Alias \"WriteProcessMemory\" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
   Dim myProcesses As Process() = Process.GetProcessesByName(\"sol\")
   Dim processHandle As IntPtr = myProcesses(0).Handle
   Dim zahl As Integer = 30
   Dim adresse As Integer = &HA9AE8
   
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Process.EnterDebugMode()
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       \'\"Read \'n\' Write:
       Dim buffer As Integer
       ReadProcessMemory(processHandle, &HA9AE8, adresse, 4, 0)
       WriteProcessMemory(processHandle, zahl, buffer, 4, 100)
       TextBox2.Text = buffer
   End Sub
End Class