用VB制作植物大战僵尸修改器的代码

Question

我已经制作出了一个登陆器，但主要部分（修改游戏的部分）还没做，我想问：怎样用VB搜索到游戏的内存地址并修改。回答后再追加50分！！！
我的修改器，我是初学者，做的不好，不要说我垃圾啊 ，再次说明：我是想自己造一个修改器！

Answer 1

用Cheat Engine可以找的地址，你到网上搜一搜，会有一大堆的。下面是我找的一个地址，阳光的地址，然后进行修改的代码。测试有效！

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 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 GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Private Sub Command1_Click()
Dim hwd As Long
Dim phandle As Long
Dim address As Long
Dim a As Long
a = &H1000
hwd = FindWindow(vbNullString, "植物大战僵尸中文版")
GetWindowThreadProcessId hwd, Pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, Pid)
If phandle Then
ReadProcessMemory ByVal phandle, ByVal &H6A9EC0, ByVal VarPtr(address), 4, 0&
ReadProcessMemory ByVal phandle, ByVal address + &H768, ByVal VarPtr(address), 4, 0&
WriteProcessMemory ByVal phandle, ByVal address + &H5560, ByVal VarPtr(a), 4, ByVal 0& '修改阳光数
End If
CloseHandle phandle
End Sub

Answer 2

1.用GameExpert或金山游侠(最好用Visual Studio 自带调试器)获得内存地址
2.用OpenProcess打开进程
3。用WriteProcessMemory向内存写数据

Answer 3

- -你把最简单的做了，用金山游戏获取游戏数据的内存地址，然后再用VB修改，可以从网上找一个简单的游戏修改器参照！

Answer 4

这个问题明显50分是不够的，200分以上可能有人会帮你做

Answer 5

表示这是不大可能的
拜托你在编写之前先使用其他的游戏修改软件搜索一下好不好……
我试过了 搜索不出来的