菜鸟写游戏外挂

阳光穿透心脏的1/2处 2022-09-17 15:19 207阅读 0赞

偶与同学玩游戏时，不仅想起作弊，是可以让我所做的操作更少呢？或者改掉程序里的数据呢？就这样我开始写这个的一个程序。向程序发消息，从程序得到消息，然后在程序内存空间找我要的数据，然后再更改。在Windows下做这些事情好像不是很难，但我遇到的问题可以说是一个API就是一个问题，当然最后还是写了一个小模型。现将经验写于此记之，给遇上同样问题的同行以帮助， 并盼望更多的高手以指教。（开发平台：WinXP,VB6,VC6）

#### >>使用Hook（钩子）去拦截游戏进程中的键盘消息 ####

在这个过程中，我为了写一个全局的钩子，所以我得写一个DLL，而这个DLL一定要有一个共享节，不然就不能得到所有GUI进程的键盘消息。在这里我写了好长的时间，我的那个DLL就是不行。后来我找到《Visual Basic Win32 API》上面的源代码，才得以解决。

![None.gif][] //  Set up shared data section in DLL   
![None.gif][] \#pragma  data\_seg("Shared")   
![None.gif][]HHOOK ghHook  =  NULL;  
![None.gif][]HHOOK ghKBHook  =  NULL;  
![None.gif][]HANDLE ghSubclassedForm  =  NULL;  
![None.gif][] int  lMsgID;  
![None.gif][] \#pragma  data\_seg()   
![None.gif][]  
![None.gif][] //  Tell linker to make this section shared and read-write   
![None.gif][] \#pragma  comment(linker, "/section:Shared,rws")   
![None.gif][]

以上就是我写DLL时的共享节，当时我看到书上说可以在编译器上设置/section:Shared,rws参数，但是编译器总是提示EXP中找不到该节，而生成的DLL文件就只能在本进程注入（**SetWindowsHookEx**）。我百思不得其解，后来都怀疑是不是机器有问题呢？最终，我还是以别人写的源代码改写的，才没有问题，我想应该是我编译设置有问题，但是现在我还没有找到，幸好问题得到了解决，我的DLL可以注入到我想注入的GUI进程。

#### >>在VB中写API的一些感悟 ####

在VB下开发已经很长时间了，VB本身的问题还是不成问题了，但是一但要用到API，问题就多了。以下就我个人在用VB时，出错较多的几点说一下。

1、不要太想信API函数声明软件，因为有很多问题就是它引起的，比如在传参数上面，如果出现保护异常，那大部分是因为参数声明有误，比如需要地址的时候，就不能使用传引用，或者直接传变量地址过去，比如**ReadProcessMemory**函数第二个参数不能传地址，因为他代表的就是一个值而已，而API声明软件就认为其是一个地址，将参数声明引用，这样的话，是很容易出问题的。

2、在不太明白参数声明的时候，调用函数的时候一定要带byval调用，像用VarPtr函数得到地址后，就一个要传值，不然程序就得不到正确的结果。

3、在不是很明白VB中的String时，与API交互的时候就不要用。这也是所谓的BSTR，COM中用的，我现在也不太懂。如果需要用字符串的时候，就使用BYTE类型，得到结果后使用StrConv将其转换过来就可以了。《Visual Basic Win32 API》这本书上讲得很清楚，很经典的。当然《Advanced VB》那本书就是很牛的了。

#### >>在读写其它进程空间数据时的问题 ####

如果对Windows进程与内存管理不是很熟悉的时候写这样的程序，真是问题很多啊，而且是在VB这样的环境下面，更是问题多多，几乎是每一个API函数就是一个问题。笔者就是这样子将一个程序写完的，其中的艰辛不言而喻啦。在读内存的时候主要问题就是权限与指针问题，你不要想从WINDOWS那里得到一些错误帮助信息，因为错误之后得到的结果就是“操作成功完成。”，所以一旦出现问题，就不知错在那里。比如在使用ReadProcessMemory函数的时候，如果具有PROCESS\_VM\_READ面不拥用PROCESS\_VM\_OPERATION打开进程（OpenProcess）时，你就甭想得到数据。很多时间你拥有PROCESS\_VM\_WRITE的时候，还是不能得到写进程地址空间的权限，最好就是PROCESS\_ALL\_ACCESS这样的标志打开的进程就比较爽了。但有的还是不能写，而得到该区域的权限与状态（VirtualQueryEx）都提示可写，可就是写不了，我也不知道是什么原因。

![None.gif][] Public   Function  VirtualQueryValue( \_  
![None.gif][]        ByVal hProcess  As   Long , \_  
![None.gif][]        ByVal lpBaseAddr  As   Long , \_  
![None.gif][]        ByVal idxFind  As   Long , \_  
![None.gif][]        ByVal x  As   Long )  As   Long   
![None.gif][]          
![None.gif][]     Dim  mPageSize  As   Long         ' 系统最小页尺寸   
![None.gif][]      Dim  mMinAppAddr  As   Long   
![None.gif][]     Dim  mMaxAppAddr  As   Long   
![None.gif][]  
![None.gif][]     Dim  mbi  As  MEMORY\_BASIC\_INFORMATION  ' 内存基本信息   
![None.gif][]      Dim  sysInfo  As  SYSTEM\_INFO\_ART  
![None.gif][]     Dim  mBaseAddr  As   Long   
![None.gif][]     Dim  mBuffer()  As   Byte   
![None.gif][]  
![None.gif][]     Dim  midxFind  As   Long   ' 找到计数   
![None.gif][]     midxFind  =   0   
![None.gif][]      
![None.gif][]     ' 获得系统信息   
![None.gif][]      Dim  r  As   Long   
![None.gif][]     Call  GetSystemInfo\_ATR(sysInfo)  
![None.gif][]    mPageSize  =  sysInfo.dwPageSize  
![None.gif][]    mMinAppAddr  =  sysInfo.lpMinimumApplicationAddress  
![None.gif][]    mMaxAppAddr  =  sysInfo.lpMaximumApplicationAddress  
![None.gif][]  
![None.gif][]     Dim  lenmbi  As   Long   
![None.gif][]     Dim  i  As   Long   
![None.gif][]     Dim  mNumberOfBytesRead   As   Long   
![None.gif][]     Dim  temp  As   Long   ' 用于从4个BYTE中得到一个LONG数据   
![None.gif][]       
![None.gif][]     ' 用于将内存存储模式转换为实际可读模式   
![None.gif][]      Dim  src( 0   To   3 )  As   Byte   
![None.gif][]     Dim  dst( 0   To   3 )  As   Byte   
![None.gif][]      
![None.gif][]     ' 确定地址范围   
![None.gif][]     lenmbi  =  LenB(mbi)  
![None.gif][]     If  lpBaseAddr  <  mMinAppAddr  Then   
![None.gif][]        mBaseAddr  =  mMinAppAddr  
![None.gif][]     Else   
![None.gif][]        mBaseAddr  =  lpBaseAddr  
![None.gif][]     End   If   
![None.gif][]    r  =  VirtualQueryEx(hProcess, mBaseAddr, mbi, lenmbi)  
![None.gif][]  
![None.gif][]     ' 枚举所有进程地址空间   
![None.gif][]      Do   While  (r)  
![None.gif][]         ' 处理内存信息   
![None.gif][]          If  r  <>  lenmbi  Then   Exit   Do   ' 返回值不正常则终止   
![None.gif][]          If  mbi.dwState  And  MEM\_COMMIT  Then   
![None.gif][]             ' 如果该区域是可读就试着读它   
![None.gif][]              If   0   =  (mbi.dwProtect  And  (PAGE\_EXECUTE  Or  PAGE\_NOACCESS))  Then   
![None.gif][]              
![None.gif][]                 ' 重新定义缓冲区大小   
![None.gif][]                  ReDim  mBuffer( 0   To  mbi.dwRegionSize)  
![None.gif][]                 ' 读内存   
![None.gif][]                 r  =  ReadProcessMemory(hProcess, mBaseAddr, \_  
![None.gif][]                        ByVal VarPtr(mBuffer( 0 )), mPageSize, mNumberOfBytesRead)  
![None.gif][]                 If  mNumberOfBytesRead  <>  mPageSize  Then   
![None.gif][]                    Debug.Print  " Err--ReadProcessMemory: "   &  GetLastErrMsg  
![None.gif][]                 Else   
![None.gif][]                     For  i  =   LBound (mBuffer)  To   UBound (mBuffer)  \-   1  Step  4   
![None.gif][]                         ' 得到源与目标的内存模式拷贝   
![None.gif][]                         CopyMemory src( 0 ), mBuffer(i),  4   
![None.gif][]                        CopyMemory dst( 0 ), x,  4   
![None.gif][]                          
![None.gif][]                         If  ComareByteArr(src, dst,  4 )  Then   
![None.gif][]                             ' 已找到需要的数据   
![None.gif][]                             midxFind  =  midxFind  \+   1   
![None.gif][]                             ' 如果找到了指定索引的数据，则返回   
![None.gif][]                              If  idxFind  =  midxFind  Then   
![None.gif][]                                VirtualQueryValue  =  mBaseAddr  \+  i  
![None.gif][]                                 Exit   Function   
![None.gif][]                             End   If   
![None.gif][]                             ' 如果不是指定索引，则继续   
![None.gif][]                          End   If   
![None.gif][]                     Next  i  
![None.gif][]                 End   If   
![None.gif][]             End   If    ' PAGE\_READWRITE   
![None.gif][]          End   If   
![None.gif][]         ' 向下搜索   
![None.gif][]          On   Error   Resume   Next   
![None.gif][]         If  mBaseAddr  <   0   Then   Exit   Do   ' 超过VB表示范围   
![None.gif][]         mBaseAddr  =  mBaseAddr  \+  mbi.dwRegionSize  
![None.gif][]         ' 如果完成所有地址搜索，则退出   
![None.gif][]          If  mBaseAddr  >  mMaxAppAddr  Then   Exit   Do   
![None.gif][]         On   Error   GoTo   0   
![None.gif][]        DoEvents  
![None.gif][]  
![None.gif][]        r  =  VirtualQueryEx(hProcess, mBaseAddr, mbi, lenmbi)  
![None.gif][]     Loop   
![None.gif][] End Function   
![None.gif][]  
![None.gif][] ' 修改指定内存值   
![None.gif][] Function  VirtualModifyValue(ByVal hProcess  As   Long , \_  
![None.gif][]        ByVal lpAddress  As   Long , ByVal x  As   Long )  As   Long   
![None.gif][]          
![None.gif][]     Dim  r  As   Long , lenmbi  As   Long   
![None.gif][]     Dim  mbi  As  MEMORY\_BASIC\_INFORMATION  
![None.gif][]     Dim  src( 0   To   3 )  As   Byte   
![None.gif][]     Dim  s  As   String   
![None.gif][]    lenmbi  =  LenB(mbi)  
![None.gif][]      
![None.gif][]     ' 查看该区域是否可写   
![None.gif][]     r  =  VirtualQueryEx(hProcess, lpAddress, mbi, lenmbi)  
![None.gif][]     ' 不可写则退出   
![None.gif][]      If   0   <>  (mbi.dwProtect  And  PAGE\_NOACCESS)  Then   Exit   Function   
![None.gif][]     If  mbi.dwState  <>  MEM\_COMMIT  Then   Exit   Function   
![None.gif][]     ' 试图改写内存   
![None.gif][]     CopyMemory src( 0 ), x,  4   
![None.gif][]    VirtualModifyValue  =  WriteProcessMemory(hProcess, ByVal lpAddress, ByVal VarPtr(src( 0 )),  4 , ByVal  0 & )  
![None.gif][] End Function

以上是用VB写的读写内存地址空间的一段代码，我写了好久好久，遇到了好多好多问题最终，因为游戏数据在空间中找不到（也许是加密了吧），而告终，但我还是知道如何修改我自己写的俄罗斯方块的分数了![Image 1][]。以下就重要函数的声明：

![None.gif][] Declare  Function  VirtualQueryEx Lib  " kernel32 "  ( \_  
![None.gif][]   ByVal hProcess  As   Long , \_  
![None.gif][]   ByVal lpAddress  As   Long , \_  
![None.gif][]   ByRef lpBuffer  As  MEMORY\_BASIC\_INFORMATION, \_  
![None.gif][]   ByVal dwLength  As   Long  \_  
![None.gif][])  As   Long   
![None.gif][]  
![None.gif][] Public  Declare  Function  WriteProcessMemory Lib  " kernel32.dll "  ( \_  
![None.gif][]            ByVal hProcess  As   Long , \_  
![None.gif][]            ByVal lpBaseAddress  As   Long , \_  
![None.gif][]            ByRef lpBuffer  As   Long , \_  
![None.gif][]            ByVal nSize  As   Long , \_  
![None.gif][]            ByRef lpNumberOfBytesWritten  As   Long )  As   Long   
![None.gif][]              
![None.gif][] Public  Declare  Function  ReadProcessMemory Lib  " kernel32.dll "  ( \_  
![None.gif][]            ByVal hProcess  As   Long , \_  
![None.gif][]            ByVal lpBaseAddress  As   Long , \_  
![None.gif][]            ByRef lpBuffer  As   Long , \_  
![None.gif][]            ByVal nSize  As   Long , \_  
![None.gif][]            ByRef lpNumberOfBytesWritten  As   Long )  As   Long

以上就是我这次做完这个东东后写的，如果有错误，请与我联系EMAIL: [yhb\_yinhaibo@163.com][yhb_yinhaibo_163.com]

[None.gif]: /images/20220828/f4c57e65350e4949a9c6d0979e9f6983.png
[Image 1]: 
[yhb_yinhaibo_163.com]: mailto:yhb_yinhaibo@163.com