VB如何替换内存地址的值?
来源:百度知道 编辑:UC知道 时间:2024/09/24 13:38:12
主要是使用ReadProcessMemory,WriteProcessMemory这两个函数。一个读一个写。
我这里有一段代码,自己写的,可供参考,仅供学习!
在VB.NET写通过,VB6。0应该也可以。
'API常量
Public Const PROCESS_ALL_ACCESS As Integer = 2035711
'获取连连看游戏窗口句柄
Dim QQllkhwnd As Integer
QQllkhwnd = FindWindow(vbNullString, "QQ连连看")
'判断连连看游戏是否打开
If QQllkhwnd <> 0 Then
'连连看游戏线程ID
Dim ProcessId As Integer
'根据连连看游戏窗口句柄获取对对碰游戏线程ID
l = GetWindowThreadProcessId(QQllkhwnd, ProcessId)
'判断是否获取连连看游戏线程ID
If l <> 0 Then
'根据线程ID打开连连看游戏线程
Dim hRemoteProcess As Integer = OpenProcess(PROCESS_ALL_ACCESS, CInt(True), ProcessId)
'判断是否打开连连看游戏线程
If hRemoteProcess <> 0 Then
'通过读取几个字节来看看是否是可以修改的版本