用VB编写游戏修改器图文教程

用VB编写游戏修改器图文教程[size=+3]※前言※这篇教程是针对不会编程的人写的，语言及技术上力求尽量简单，SO在大虾的眼里一定超简单:)。

目前我们用的动态修改器都有提供保存修改地址的功能，更甚者金山游侠2002还有生成可执行文件修改器的功能。

不过用这些修改器修改不太灵活，比如：如果你要修改的地方有几千处，难道你还一一的改？但如果自己编写的话就可以让电脑代劳^0^(下面会讲到)。

另一方面把自己的修改成果以修改器的形式和别人分享，会使自己(修改)所付出的劳动更有意义。

我写这篇文章不是要教读这篇文章的人成为VB高手(我也没这个能力)，所以有些问题我不会讲的很清楚，对于读者来说也不必过分注意一些技术细节，很多东西你照着做就行了。

另外此教程只是针对游戏中地址固定的游戏，如果游戏中地址不固定(动态分配)，那就需要用到汇编知识了，修改动态地址的游戏不在教程的讨论范围内[size=+3]※基础篇※在讲如何编写前有必要讲一下基础的VB语法，以使你能看懂后面写的代码:3下面是本教程将会用到的语句：=================================================================== ==========Dim 名称as 类型说明：上面的语句是一个声明变量的语句，所谓变量简单的说就是一个‘容器’，用来存放‘数值’，而声明变量就是告诉系统建立一个‘容器’。

‘类型’是用来告诉系统这个‘容器’有多大。

例如：Dim eyesonline As Long '建立一个名为eyesonline的容器(变量)，并且这个变量在内存中占用4个字节。

=================================================================== ===========If 条件Then程序语句1End If或If 条件Then程序语句1Else程序语句2End If说明：上面的语句的意思是，如果(所给的)‘条件’成立，就执行‘程序语句1’(注：程序语句1可以是多个语句的组合，程序语句2也一样)，如果‘条件’不成立，(Else)将执行‘程序语句2’。

例如If eyesonline = 253 Then '注意这行的‘=’是比较是否相等的意思，在‘条件’语句中‘=’就是这个意思，如果相等则‘条件’成立，如果不相等则‘条件’不成立eyesonline = 874 '而这一行及下面一行的‘=’是将874或233这个数存入eyesonline这个变量中Elseeyesonline = 233End If=================================================================== =For i=1 To X程序语句3Next i说明：这个语句是个循环语句，它的作用是让电脑连续X次执行程序语句3。

=================================================================== =eyesonline(参数1,参数2,参数3,....参数N)说明：这是一个名为eyesonline的函数，在使用时要填入相应的参数。

参数间要用‘,’隔开。

在VB中有时函数不一定要带有‘()’(准确的说是不能带)，下面你会看到，这里说一下以防你看到会奇怪，我也是才知道，呵呵=================================================================== =[size=+3]※分析篇※程序：我们要用自己做的程序来修改另外一个程序(进程)，但是我们的程序怎样知道哪个程序(VG S)是我们要修改的呢。

这里要用到一个工具软件：spy++。

先起动VGS然后再起动spy++见图一：我们可以从列表中找到VGS的进程(上图中选中的那项)然后在VGS的进程选项上单击右键，在弹出的菜单中选Properties....这项见图二、三在图三中红框中的信息就是我们所需要的(复制下来)，只要将这个信息告诉我们的程序，它就知道要修改的程序(VGS)在哪里。

游戏：本教程中要改的游戏是《前线任务--决择》在这个游戏中武器装备分四类，先找出一个武器的数量的地址，通过观察游戏运行的内存可以看出，游戏中四类装备分别存放在四个区域，每类装备的数据基本上连续放在一块的，每个武器有两个值是我们要改的：‘数量’，‘可用/不可用’(简称y/n)，‘数量’要改为9，‘y/n’要改为1比如：手持武器的第一个武器的‘数量’起始地址是404D7BA，‘y/n’的地址是404D7BC，第一个武器的‘数量’与第二个武器的‘数量’地址相差C，第一个武器的‘y/n’与第二个武器的‘y/ n’也相差C。

手持武器有27个，知道差值及武器的数量，我们就可以用一个循环让程序自动修改了：For i=1 To 27WriteProcessMemory hOK, ByVal a1, temp1, 1, 0a1 = a1 + &HCWriteProcessMemory hOK, ByVal a2, temp2, 1, 0a2 = a2 + &HCNext iWriteProcessMemory是一个往目标进程的内存地址中写入数值的函数，第一个参数是要修改的进程的句柄(也就是门牌号)，第二个参数是保存有地址的变量，第三个参数保存有要填入数值的变量，第四个参数是要写入的字节数，第五个参数我也不太清楚:D设为0就行了[size=+3]※行动※首先我们要打开VB新建一个标准工程。

见图四、五点击菜单栏中的‘工程->添加模块’新建一个模块将以下代码复制到里面Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVa l lpClassName As String, ByVal lpWindowName As String) As LongPublic Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As LongPublic Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Lon gPublic Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpN umberOfBytesWritten As Long) As LongPublic Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long)As Long或者你可以用APILOAD这个程序生成以上代码见图六然后双击图五中的我所标出的4将界面切换回到窗体设计界面上。

我们要用到三个控件:图五中的1、2、3，分别将其拖到窗体上(图五5)然后适当改变他们的大小以适应你的要求。

我们将要用到三个控件分别是：Label控件图五1、CommandButton控件图五2、Chec kBox控件图五3Label控件要用的属性有：CaptionCommandButton控件要用的属性有:CaptionCheckBox控件要用的属性有:Value、Caption先选中要设置的控件，然后在图五6的区域设置。

找到相关的属性选一个或填入值即可。

Label控件可以用来显示一些文字，如你的名字。

设置Caption属性CommandButton控件是个按钮，用户按下后会执行一些代码，设置Caption属性可以在控件上显示一些文字，用来说明这个按钮有什么用。

CheckBox控件是用来作开关用的。

设置Caption属性，写入说明文字让使用者知道这个开关有什么作用。

设置Value属性为Checked，让程序起动时它就是开的。

下图是设计好的图片图七、八：设计好界面后就可以双击(窗体上的)CommandButton控件产生一个Click事件Private Sub Command1_Click()自定义代码区End Sub见图九：在Click事件的自定代码区写入我们的代码，当程序运行时，用户按下按钮就会执行自定义代码区的代码。

以下是我写的代码：Private Sub Command1_Click()Dim temp1 As LongDim temp2 As LongDim hwnd As LongDim hOK As LongDim ID As Long '声明变量hwnd = FindWindow("CVGS Double-Secret-Probation Mutex", vbNullString) '获得VGS的窗口句柄，并将句柄保存在hwnd变量中If hwnd = False Then '测试hwnd变量，如果VGS没有起动MsgBox ("VGS没有打开") '则提示用户打开程序MsgBox()这个函数的作用是弹出一个小窗口显示""中的字符Exit Sub '退出Click事件ElseGetWindowThreadProcessId hwnd, ID '获得VGS进程的ID，并保存在ID变量中hOK = OpenProcess(PROCESS_ALL_ACCESS, 0, ID) '以获得编辑VGS进程的全部权限，反OpenProcess函数将反回一个值并保存在hOK变量中If hOK = 0 Then '测试有没有获得修改权限MsgBox ("没有找开修改权限")Exit SubElse '如果获得修改权限将执行以下代码'开关1If Check1.Value = Checked Then '如果Check1被打开，则执行下面的语句Dim a1 As Long, a2 As Long, b1 As Long, b2 As Long '声明变量Dim c1 As Long, c2 As Long, d1 As Long, d2 As Long '声明变量a1 = &H404D7BA '将地址404D7BA存入变量a1，加&H表示404D7BA是个十六的数值a2 = &H404D7BCb1 = &H404D9B2b2 = &H404D9B4c1 = &H404DABAc2 = &H404DABCd1 = &H404D90Ad2 = &H404D90Ctemp1 = &H9temp2 = &H1Dim i As IntegerFor i = 1 To 27WriteProcessMemory hOK, ByVal a1, temp1, 1, 0a1 = a1 + &HCWriteProcessMemory hOK, ByVal a2, temp2, 1, 0 a2 = a2 + &HCNext iFor i = 1 To 20WriteProcessMemory hOK, ByVal b1, temp1, 1, 0 b1 = b1 + &HCWriteProcessMemory hOK, ByVal b2, temp2, 1, 0 b2 = b2 + &HCNext iFor i = 1 To 25WriteProcessMemory hOK, ByVal c1, temp1, 1, 0 c1 = c1 + &HCWriteProcessMemory hOK, ByVal c2, temp2, 1, 0 c2 = c2 + &HCNext iFor i = 1 To 12WriteProcessMemory hOK, ByVal d1, temp1, 1, 0 d1 = d1 + &HCWriteProcessMemory hOK, ByVal d2, temp2, 1, 0 d2 = d2 + &HCNext iEnd If'开关2If Check2.Value = Checked ThenDim a001 As Long, a002 As Long, a003 As Long Dim b001 As Long, b002 As Long, b003 As Long Dim c001 As Long, c002 As Long, c003 As Long a001 = &H406A514a002 = &H406A548a003 = &H406A57Cb001 = &H406A5ACb002 = &H406A5E4b003 = &H406A618c001 = &H406A64Cc002 = &H406A680c003 = &H406A6B4temp1 = &HAtemp2 = &HBWriteProcessMemory hOK, ByVal a001, temp2, 1, 0 WriteProcessMemory hOK, ByVal a002, temp1, 1, 0 WriteProcessMemory hOK, ByVal a003, temp1, 1, 0 WriteProcessMemory hOK, ByVal b001, temp2, 1, 0 WriteProcessMemory hOK, ByVal b002, temp1, 1, 0 WriteProcessMemory hOK, ByVal b003, temp1, 1, 0 WriteProcessMemory hOK, ByVal c001, temp2, 1, 0 WriteProcessMemory hOK, ByVal c002, temp1, 1, 0 WriteProcessMemory hOK, ByVal c003, temp1, 1, 0End IfMsgBox ("complete!")End IfEnd IfCloseHandle (hOK)End Sub写完上面的代码(或你自己的代码)后就可以编译生成程序，选"文件->生成***.EXE" 然后运行试试。