制作自己的修改器.

 1 Option Explicit 
 2 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
 3 Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long 
 4 Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 
 5 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 
 6 Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long 
 7 Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 
 8 Private Const PROCESS_ALL_ACCESS = &H1F0FFF 
 9 Private hProcess As Long 
10 '下面的函数用于查找游戏 
11 Function FindGame() As Boolean 
12 Dim PID As Long, Gamehwnd As Long 
13 FindGame = False 
14 Gamehwnd = FindWindow(vbNullString, "蜘蛛") '查找游戏的句柄 
15 If (Gamehwnd = 0) Then '如果找不到(例如游戏未运行)就退出函数 
16 MsgBox "没有找到蜘蛛游戏" 
17 Exit Function 
18 End If 
19 GetWindowThreadProcessId Gamehwnd, PID '取得进程ID 
20 hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, PID) '以全部权力打开进程 
21 If (hProcess = 0) Then '打开进程失败 
22 MsgBox "没有打开进程" 
23 Exit Function 
24 End If 
25 FindGame = True '成功!! 
26 End Function 
27 '回到VB的窗口设计模式,在窗体上放上两个按钮和一个文本框 
28 '一个按钮为"读取"一个为"写入",分别用于读取和写入数据 
29 '把Text1的Text设为空白 
30 Private Sub Command1_Click() 
31 Dim retV%, r& 
32 'Dim retV%, r&=Dim retV As Integer, r As Long 
33 If FindGame Then 
34 r = ReadProcessMemory(hProcess, &H1011F20, retV, 2, 0) '这里重要,&H1011F20为内存地址. 
35 If r = 0 Then 
36 MsgBox "读取内存不成功!" 
37 Else 
38 Text1 = retV 
39 End If 
40 End If 
41 End Sub 
42 
43 Private Sub Command2_Click() 
44 Dim r& 
45 If FindGame Then 
46 r = WriteProcessMemory(hProcess, &H1011F20, CInt(Val(Text1)), 2, 0) 
47 '参数与上面的基本相同 
48 'cInt(Val(Text1))是防止输入的过程有误,,例如,输入了字母,,如果不处理程序就会出错 
49 If r = 0 Then 
50 MsgBox "写内存不成功!" 
51 Else 
52 MsgBox "OK" 
53 End If 
54 End If 
55 End Sub
56