用VB6与VBNET快速制作游戏修改器,外挂与获取模块基址.docVIP

这篇说说VB6/VB.net怎么快速制作游戏修改器。 首先要说的是由于VB6不支持64位的修改，而现在的游戏内容和容量越来越大，电脑硬件配置越来越高端。32位游戏已经满足不了现在的游戏的开发环境要求而会慢慢向64位过渡。所以我在这里重点说VB.Net,VB6的方法我就不详细说了，只一笔带过。 首先是VB.NET的游戏修改器制作方法。先运行VB.NET,新建一个项目，，再选中新建一个窗体，再在右边的资源管理器中双击“MY Project”，进入左边选项的第二项点击进入，再点左边最下方的选项，找到并改目标程序为支持任何位数的游戏的CPU类型即可，最后回到fm1，新建1个textbox1，2个button键和1个timer（这控件默认在组件项最下一个,timer项的enabled属性改为“true”，interval项建议为100（0.1秒刷新一次））即可。，。 以下为VB.NET做的修改器代码，请各位自己操作。 考虑到让小白新手和看代码如看天书的朋友方便阅读，我把定义名都改了一下，老手莫喷。以下为全代码，直接复制粘贴即可使用 Public Class Form1 '以64位WIN7的媒体播放机 WINDOWS MEIDA PLAYER 做示范?? ? Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal A As String, ByVal B As String) As Long? ? Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal A As Long, ByRef B As Long) As Long? ? Public Declare Function OpenProcess Lib "kernel32" (ByVal A As Long, ByVal B As Long, ByVal C As Long) As Long? ? Public Declare Function CloseHandle Lib "kernel32" (ByVal A As Long) As Long? ? Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal A As Long, ByVal B As Long, ByRef C As Long, ByVal D As Long, ByVal E As IntPtr) As Long? ? Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal A As Long, ByVal B As Long, ByRef C As Long, ByVal D As Long, ByRef E As IntPtr) As Long? ? Dim fw As String? ? Dim pid As Long? ? Dim hp As Long? ? Public Sub W(ByVal A As Long, ByVal B As Long, ByVal C As Long, ByVal D As Long) '定义写入? ? ? ? WriteProcessMemory(A, B, C, D, IntPtr.Zero)? ? ? ? CloseHandle(A)? ? End Sub? ? Public Function R(ByVal A As Long, ByVal B As Long, ByVal D As Long) As Long '定义读取? ? ? ? Dim Value As IntPtr? ? ? ? ReadProcessMemory(A, B, Value, D, IntPtr.Zero)? ? ? ? R = Value? ? ? ? CloseHandle(A)? ? End Function‘以上为定义内容，不要变动。以下为实际操作内容，请根据修改内容自己添加和修改 ? ? ? Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick? ? ? ? fw = FindWindow(Nothing, "Windows Media Player") '程序窗口名? ? ? ? GetWindowThreadProcessId(, pid)? ? ? ? hp =