制作自己的修改器.

 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 

 

转载于:https://www.cnblogs.com/xxaxx/archive/2010/01/24/1655472.html