4个API函数:
FindWindow '获取指定窗口的句柄
GetWindowTreadProcessId '获取其进程ID
OpenProcess '打开处理进程
WriteProcessMemory '写入内存
9 个解决方案
#1
请问有没有人有这一方面的知识,能够正确的使用这几个API函数?谢谢!
#2
关注。
#3
什么关注?
#4
以下是我在剑侠情缘2下作的锁内力,只能用于当前等级,升级后就不能用了
请各位大哥帮帮忙!
Private Sub Check1_Click()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
hwnd = FindWindow(vbNullString, "Sword Window")
If (hwnd = 0) Then
MsgBox "Window 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, &H5A9080‘(这个就是内力值的内存地址), "aa"‘(这个就是我改后的内力值), 8, 0&
CloseHandle hProcess
End Sub
请各位大哥帮帮忙!
Private Sub Check1_Click()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
hwnd = FindWindow(vbNullString, "Sword Window")
If (hwnd = 0) Then
MsgBox "Window 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, &H5A9080‘(这个就是内力值的内存地址), "aa"‘(这个就是我改后的内力值), 8, 0&
CloseHandle hProcess
End Sub
#5
哈哈,原来是这么用啊,拜谢了。
#6
搜索以前的帖子
我记得有人发布过游戏修改器的源程序
我记得有人发布过游戏修改器的源程序
#7
请问谁有游戏修改器的源程序?谢谢
#8
http://www.csdn.net/expert/topic/698/698746.xml?temp=1.453799E-02
http://www.csdn.net/expert/topic/698/698746.xml?temp=1.453799E-02
#9
up
#1
请问有没有人有这一方面的知识,能够正确的使用这几个API函数?谢谢!
#2
关注。
#3
什么关注?
#4
以下是我在剑侠情缘2下作的锁内力,只能用于当前等级,升级后就不能用了
请各位大哥帮帮忙!
Private Sub Check1_Click()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
hwnd = FindWindow(vbNullString, "Sword Window")
If (hwnd = 0) Then
MsgBox "Window 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, &H5A9080‘(这个就是内力值的内存地址), "aa"‘(这个就是我改后的内力值), 8, 0&
CloseHandle hProcess
End Sub
请各位大哥帮帮忙!
Private Sub Check1_Click()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
hwnd = FindWindow(vbNullString, "Sword Window")
If (hwnd = 0) Then
MsgBox "Window 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, &H5A9080‘(这个就是内力值的内存地址), "aa"‘(这个就是我改后的内力值), 8, 0&
CloseHandle hProcess
End Sub
#5
哈哈,原来是这么用啊,拜谢了。
#6
搜索以前的帖子
我记得有人发布过游戏修改器的源程序
我记得有人发布过游戏修改器的源程序
#7
请问谁有游戏修改器的源程序?谢谢
#8
http://www.csdn.net/expert/topic/698/698746.xml?temp=1.453799E-02
http://www.csdn.net/expert/topic/698/698746.xml?temp=1.453799E-02
#9
up