kv20 How do I cheat?
Reputation: 0
Joined: 16 May 2007 Posts: 4
|
Posted: Fri Jun 15, 2007 6:14 am Post subject: vb dbk32.dll |
|
|
Module
Public Declare Function MakeWritable Lib "dbk32.dll" (ByVal address As Long, ByVal Size As Long, ByVal copyonwrite As Boolean) As Boolean
Public Declare Function WritePhysicalMemory Lib "dbk32.dll" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Boolean
Public Declare Function ReadPhysicalMemory Lib "dbk32.dll" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesRead As Long) As Boolean
Public Declare Function GetPhysicalAddress Lib "dbk32.dll" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByRef address As Long) As Boolean
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
source
Private Sub Form_Load()
handle = FindWindow(vbNullString, "calc")
End Sub
Private Sub Command1_Click()
Dim CEpHandle As Long
Dim longAddress As Long
Dim longNewAddress As Long
Dim asd As Long
Dim sdf As Long
CEpHandle = handle
asd = ?????
sdf = ?????
longAddress = ??????
longNewAddress = ????
WritePhysicalMemory CEpHandle, asd, sdf, longAddress, longNewAddress
End Sub
?????? in source ?
|
|