模块中:
Option Explicit

Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Public Declare Function ReadProcessMemory Lib "kernel32.dll" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByRef lpBuffer As Any, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long

Public Const PROCESS_ALL_ACCESS = &H1F0FFF

我得到一个游戏的地址,005C9AED我要将他的二进制数值修改成58 47 75 6E,我在VB中用如下命令
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If hProcess Then
Dim byts(0 To 3)    As Byte
          byts(0) = &H58:        byts(1) = &H47
          byts(2) = &H75:      byts(3) = &H6E
          WriteProcessMemory hProcess, ByVal &H5C9AED, ByVal VarPtr(byts(0)), 4, ByVal 0
CloseHandle hProcess
End If
试图将他修改,本以为不会有什么问题,但是进入游戏后却另我大失所望,----------跟修改前一样,完全没有
效果. 然后我用CE跳转到这个地址005C9AED,发现跟修改前一样,值一点变化也没有.然后我在CE里面
直接修改这个地址的值为58 47 75 6E,进入游戏,却发现成功了.请问为什么用VB修改失败了,用同样的命令
WriteProcessMemory hProcess, ByVal &H4BA724, ByVal VarPtr(byts(0)), 4, ByVal 0
修改地址:004BA724,却成功,而且用CE修改两个地址都成功.我的VB代码哪里出问题了吗?