Dim ProcIDProcID = Process.GetCurrentProcess.Id
TextBox1.Text = ProcID.ToString
Yardımcı olduğunu için teşekkür ederim bu değil. Birden fazla oyunları var olduğu WriteInteger işlev çalışmıyor. sadece PID yazarak yukarı bahsettiğimi örnek:
Private Declare Function WriteProcessMemory1PID 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 Public Sub WriteIntegerPID(ByVal PID As Integer, ByVal Address As Integer, ByVal Value As Integer, Optional ByVal nsize As Integer = 4)
Dim MyP As Process = Process.GetProcessById(PID)
Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP.Id)
If hProcess = IntPtr.Zero Then
'MessageBox.Show("İşlem Başarılı Olamadı! " & ProcessName & "!")
Exit Sub
End If
Dim hAddress, vBuffer As Integer
hAddress = Address
vBuffer = Value
WriteProcessMemory1PID(hProcess, hAddress, CInt(vBuffer), nsize, 0)
End SubWriteIntegerPID(4256, &H6F5218, "999999") 'WriteIntegerPID(PID, Pointer, Value)
