'iboo48
'http://www.trgct.com

'Formumuza 1 textbox, 1 checkbox, 1 timer ekliyoruz.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF

Private Sub Check1_Click() 'timer komutunu kontrol eder
Timer1.Interval = 10 'timerın ne kadar süre ile tekrar edileceğini ayarlar.(1000 intervel = 1 saniye)
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub

Private Sub Timer1_Timer() 'freeze işlemini gerçekleştirebilmek için timer kullanıyoruz.

On Error Resume Next
Dim hWnd As Long, pID As Long, hProcess As Long
hWnd = FindWindow(vbNullString, " ") 'pencere adı
GetWindowThreadProcessId hWnd, pID
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pID)

Dim pointer As Long
pointer = &H 'bulduğumuz pointer 
 
Dim buffer As Long
Dim adres As Long
Dim offset As Long

offset = &H 'offset değeri

If ReadProcessMemory(hProcess, ByVal pointer, buffer, 4, 0) <> 0 Then
adres = CLng(buffer) + offset
End If

offset = &H 'nekadar offset değeri bulduysak aşağıdaki işlemi okadar tekrarlamalıyız.
If ReadProcessMemory(hProcess, ByVal adres, buffer, 4, 0) <> 0 Then
adres = CLng(buffer) + offset
End If

buffer = CLng(Text1.Text) 'Valueyi textboxdaki değerle değiştirir.
If (WriteProcessMemory(hProcess, ByVal adres, buffer, 4, 0&)) = 1 Then
End If

CloseHandle (hProcess)

End Sub