VB制作DNF外挂基础
VB制作DNF外挂基础楼主  发表于 2010-8-12 18:34 | 只看该作者 | 倒序看帖 | 打印
有个问题必须首先考虑：使用VB编写的修改器需要VB的执行库才能执行。如果考虑到有些使用者(实际上可能是大部分使用者)没有执行库，那么在最后制作的ZIP压缩档中就必须包含这些庞大的档。在下面的教程里我将制作一个修改器，如果为它再制作一个安装程序，那么整个修改器的体积将超过1MB。其中包括一个很好的安装和反安装程序，但大部分还是VB40032.DLL这个档。
赵祯曹皇后除了以上这点，使用VB制作修改器是非常简单的。一旦制作了多次后，你会发现能很快地制作出一个修改器。而且使用VB制作的修改器能够毫无困难地解决游戏执行时的动态内存分配问题，因此即使是最新的游戏，也可以使用VB制作修改器。在本教程中将不涉及动态内存分配，因为虽然简单，但仍然属于一个高级的选项。
一些背景知识
不象C语音，VB不会自动包括普通的API函数的声明，因此我们必须把他们加入我们的项目文件。在几乎所有的修改器中会使用到6个主要的函数，讨论如下：
1. FindWindow(ClassName, WindowTitle) - FindWindow 返回符合指定的类名( ClassName )和窗口名( WindowTitle )的窗口句柄。对我们来说，可以让 ClassName 为空( Null )，只给出游戏的 WindowTitle。
函数应该这样声明：
Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
2. GetWindowThreadProcessId(WindowHandle, ProcessId) - 在这里我们把 FindWindow
函数中得到的句柄作为参数，来获得进程标识符(ProcessId )。
声明如下：
Declare Function GetWindowThreadProcessId Lib user32 (ByVal hwnd As Long, lpdwProcessId As Long) As Long
3. OpenProcess(DesiredAccess, Inherit, ProcessId) -
这个函数将返回一个我们目标进程的句柄，可以用来对目标进行读写操作。 DesiredAccess参数的值决定了句柄对进程的存取权利，对我们来说，要使用 PROCESS_ALL_ACCESS (完全存取权限)。Inherit 应该总是False。 ProcessId 是从 GetWindowThreadProcessId 函数中取得的。
Declare Function OpenProcess Lib kernel32 (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
4. CloseHandle(ProcessHandle) - 每一个打开的句柄必须呼叫这个函数来关闭。
Declare Function CloseHandle Lib kernel32 (ByVal hObject As Long) As Long
5. WriteProcessMemory(ProcessHandle, Address, value, Sizeofvalue,
BytesWritten) - 把指定的值 value 写入由 Address 指定的目标地址。
Declare Function WriteProcessMemory Lib kernel32 (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
6. ReadProcessMemory(ProcessHandle, Address, value, Sizeofval
ue,
BytesWritten) - 把 Address 指定的目标地址的值存入 value 位置的变量中。
Declare Function WriteProcessMemory Lib kernel32 (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
这些函数一环扣一环，缺一不可。更详细的内容可以参考VB的帮助档。
一个简单的修改器范例
如何使上面介绍的这些函数一起工作，制作出我们需要的修改器呢？下面是一个为Windows的计算器程序制作修改器的例子。这个修改器将读出计算器窗口中显示的数值，并在点击一个按钮后在计算器窗口中显示我们的名字。
首先我们需要到计算器显示窗口中显示值的地址。本教程不是关于如何进行内存搜索，因而我将只作简单的说明：
- 在计算器窗口中输入123456
- 使用你喜欢的任何一种内存地址搜索程序寻字符串123456
- 使用另一个值重复上面的过程直到只返回1个地址
那是制作我们的修改器需要的唯一一个地址。在我的计算器程序里这个地址是40B181 hex, 4239745 dec。用你到的地址替代在下面的代码里使用的这个地址。
现在让我们开始设计修改器的接口：
- 在VB中新建一个项目，加入一个文本框( Textbox )、一个按钮和一个定时器( timer
)。文本框用来显示从计算器窗口取得的字符串，按钮用来把我们的名字传到计算器窗口
- 把窗体( form )的标题( Caption )内容设为 Calculator Trainer
- 把文本框改名为 txtDisplay 并清除 Text 内容
- 把定时器改名为 ReadTimer 并把间隔( interval )设为500
- 把按钮的标题改为 Display Name，按钮的名字改为 btnPasteName
在这个修改器中我们将使用所有6个函数，ReadProcessMemory、WriteProcessMemory、OpenProcess、 GetWindowThreadProcessId、FindWindow 和 CloseHandle。在项目中插入一个新的模块，增加下列代码。(下面的一些行自动换行了，在你的模块中每一句必须在一行里，或使用延长符_)
Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindowThreadProcessId Lib user32 (ByVal hwnd As
Long, lpdwProcessId As Long) As Long
Declare Function OpenProcess Lib kernel32 (ByVal dwDesiredAccess As
Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function WriteProcessMemory Lib kernel32 (ByVal hProcess As
Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As
Long, lpNumberOfBytesWritten As Long) As Long
Declare Function ReadProcessMemory Lib kernel32 (ByVal hProcess As Long,
ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long,
lpNumberOfBytesWritten As Long) As Long
Declare Function CloseHandle Lib kernel32 (ByVal hObject As Long) As Long
下面我们要开始写在定时器窗口中
显示我们名字的代码了。首先我们使用 FindWindow函数取得目标窗口的句柄。把这个返回值保存在一个变量中，并检查它的值是否出错来确保定时器程序正在执行。(FindWindow函数出错时返回0)
Dim hwnd As Long
hwnd = FindWindow(vbNullString, Calculator)
If (hwnd = 0) Then
MsgBox Window not found!
Exit Sub
End If
注意在这里我们传递了一个 Null 值给 FindWindow 函数，而不是 ClassName。因此任何名为 Calculator的窗口都符合条件。如果知道计算器程序窗口的 ClassName，你可以传给它，但这不是必须的。
青藏高原土壤
现在使用得到的窗口句柄来取得进程标识符( ProcessId )。注意 pid 是作为参数传递给函数的，而不是被赋以函数返回值。
Dim pid As Long
GetWindowThreadProcessId hwnd, pid
再利用变量pid得到计算器程序的进程句柄。再次检查函数的返回值，如果是非法数据则退出程序。
Dim pHandle As Long
网上志愿填报pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (pHandle = 0) Then
MsgBox Couldn’t get a process handle!
Exit Sub
End If
在我们的修改器中 WriteProcessMemory 函数是最重要的部分，而且非常容易出错。不妨让我们再仔细讨论一下它的参数。
WriteProcessMemory (ByVal hProcess As Long, ByVal lpBaseAddress As Any,
ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As)
hProcess 是目标进程的句柄，从上面的 OpenProcess 函数中取得的。
lpBaseAddress
是在计算器程序的虚拟内存中将要被修改的地址，也就是使用内存搜索程序到的那个地址。(在我的程序里是&H40B181)lpBuffer 是将要写如上述地址的数据，可以是一个数值、数组、字符串或其它任何数据类型。
nSize 是希望写入 lpBaseAddress 的字节数。这个位置应该与你的数据类型相符。如果写入的是一个长整数( long)，这里应该是4。如果写入的是一个字符串，那么这里应该是字符串的长度。
lpNumberOfBytesWritten 是函数执行返回后，写入目标地址的实际字节数。它能被用来确认函数实际的执行情况。
把我们的数据放到函数中，得到 WriteProcessMemory pHandle, &H40B181, Beans, 5, 0&。我把0传递到lpNumberOfBytesWritten 位置是因为不需要检查两次实际写入的字节数。
最后通过传递进程句柄给 CloseHandle() 函数来关闭由 OpenProcess 打开的句柄。
CloseHandle hProcess
现在将所有的代码输入我们的编辑器中。双击按钮，显示它的代码编辑窗口。代码应该加到名为 btnPasteName 的 Click事件中。(不必输入注释)
Private Sub btnPasteName_Click()
声明一些需要的变量
Dim hwnd As Long 储存 FindWindow 函数返回的句柄
Dim pid As Long 储存进程标识符( Process Id )dnf圣光十字
Dim pHandle As Long 储存进程句柄
首先取得目标窗口的句柄
hwnd = FindWindow(vbNullString, Calculator)
If (hwnd = 0) Then
MsgBox W
indow not found!
Exit Sub
End If
取得进程标识符
GetWindowThreadProcessId hwnd, pid
使用进程标识符取得进程句柄
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (pHandle = 0) Then
MsgBox Couldn’t get a process handle!
Exit Sub
End If
在内存地址中写入名字
WriteProcessMemory pHandle, &H40B181, Beans, 5, 0&
关闭进程句柄
CloseHandle hProcess
End Sub
完毕。现在单击按钮将使计算器窗口文本变为我们键如的名字。(可能需要最小化计算器程序，再还原，以便程序更新显示)
下面将给我们的修改器增加一个新功能。我们将检测计算器程序的窗口显示数据，并在修改器中显示。双击定时器，显示它的代码编辑窗口，然后输入以下代码：
Private Sub ReadTimer_Timer()
声明变数
Dim hwnd As Long 储存 FindWindow 函数返回的句柄
数学名言Dim pid As Long 储存进程标识符
Dim pHandle As Long 储存进程句柄
Dim str As String * 20 存储显示文本
取得目标窗口的句柄
hwnd = FindWindow(vbNullString, Calculator)
If (hwnd = 0) Then Exit Sub
取得进程标识符苏州中考时间2022年具体时间
GetWindowThreadProcessId hwnd, pid
取得进程句柄
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (pHandle = 0) Then Exit Sub
读取内存数据
ReadProcessMemory pHandle, &H40B181, str, 20, 0&
在文本框显示
txtDisplay = str
关闭进程句柄
CloseHandle hProcess
End Sub
在这里出现的新东西是 ReadProcessMemory 函数。从 &H40B181 地址中读出的数据被存入变量 str 中，然后显示在名为txtDisplay 的文本框中。
基础：
本教程中所讲的是非常简单的东西，主要是想起抛砖引玉的目的。最重要的是不断学习，不断实践，了解其它的API并在修改器中使用。练习越多，就会觉得越容易。
好的话帮忙顶一下，谢谢！
刚才查别的资料的时候偶尔看到的，感觉比较适合菜鸟。
还算不上做外挂，顶多算个内存修改器
WriteProcessMemory还是声明为Byval lpBaseAddress As Long, ByVal lpBuffer As Long来的好
然后用VarPtr传变量的指针地址
写nSize的时候，Long之所以要传4，是因为Long类型的变量在内存中占用4个字节，你也可以统统用Len（不过我还是建议你用 API lstrlen，因为nSize是字节数，而非字符数），因为Len也可以用于Long（以及Integer，甚至于用户类型），并且返回值一定是4。
lpNumberOfBytesWritten 将会被设置为真正成功写入内存的字节数（所以你最好传一个变量，而不是ByVal 0&）。
ReadProcessMemory我也建议你如WriteProcessMemory那样声明
因为这样可以减少许多不必要的错误
同样的，lpNumberOfBytesWritten 也将会被设置为真正读入的字节
所以你可以先将一个String变量设置为4000个空格（Space$(4000)）（甚至更多），然后通过CopyMemory VatPtr(str_真正读到的内容),VarPtr(str_Buffer),lpNumberOfBytesWritten（
这个 CopyMemory是声明为ByVal src As Long, ByVal tgt As Long, ByVal nSize As Long的）来获取真正的字节数。
不过，在这儿你不需要这么操作，因为你是可以设置读取的字节数的（nSize参数），而当你使用ReadFile之类的函数时，你会发现这个参数很有用处。
同样的，你也可以传ByVal 0&，但是我仍然不建议你这么做
VarPtr是VB中获取变量名在内存中的地址用的函数（不是变量内容，变量内容你应当使用的是StrPtr而不是VarPtr）
使用VarPtr并且声明为 ByVal *** As Long同样也适用于CopyMemory

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。