果子大哥帮帮忙

刘武

我想了解下openprocess但是参数不了解 你能不能帮我写个findwindows+openprocess获取进程句柄的例子小弟再次谢谢了

诸葛

http://www.jeyuyan.com/viewthread.php?tid=4056
这个里面基本都有，不过例程是2008版本的QQ，对2009无效，需要自己去研究

小磊

期待高手！

刘武

对了补充一下还有个函数叫getwindowthreadprocessID

果子

GetWindowThreadProcessId

http://www.jeyuyan.com/viewthrea ... amp;extra=#pid21831

果子

有时间帮忙发点帖子，我好有时间帮你们写例程{:2_28:}

http://www.jeyuyan.com/viewthread.php?tid=4156

刘武

{:2_131:}   哦 呵呵 谢谢

太子

这个东西是VB 的，   写的是使用findwindows+openprocess来实现的 ，，，

不懂加的QQ我告诉你。我的Q：136751884


广告一下，  师傅我的帐号找回来了，鲁凯啸   我是你徒弟太子。，  鲁凯啸  UP↑ UP↑



Private Declare Function OpenProcess Lib "kernel32" (ByVal _
dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long


这个是AIP的函数，，



lpClassName As String, ByVal lpWindowName As String) As Long
  
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal _
hwnd As Long, lpdwProcessId As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal _
dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal _
hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal _
hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal _
nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal _
hObject As Long) As Long
  
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim hh As Long
Dim pp As Long
Dim pp2 As Long

Private Sub Command1_Click()
dim str as string
str="red alert 2"     '此为游戏窗体名称，视游戏的不同而改变
hh = FindWindow(vbNullString, str)
If hh <> 0 Then
GetWindowThreadProcessId hh, pp
pp2 = OpenProcess(PROCESS_ALL_ACCESS, False, pp)
If pp2 <> 0 Then
WriteProcessMemory pp2, &H4E4B89, &H90, 1, 0   '如果为ADD指令则为WriteProcessMemory pp2, &H4E4B89, &H03, 1, 0
WriteProcessMemory pp2, &H4E4B8A, &H90, 1, 0   '如果为ADD指令则为WriteProcessMemory pp2, &H4E4B8A, &H27, 1, 0

CloseHandle (pp2)
Else
MsgBox "打开进程失败", , "红警修改器"
End If
Else
MsgBox "请先运行红色警戒2", , "红警修改器"
End If
End Sub

太子

findwindows  在E语言里的意思    寻找顶级窗口
openprocess 在E语言里的意思       打开进程           
GetWindowThreadProcessId            在E语言里的意思    取进程线程标识符
Dim hh As Long     在E语言里的意思  就是变量。
hh = FindWindow(vbNullString, str)   在E语言里的意思   变量HH=寻找顶级窗口（游戏的类型 ）
   If hh <> 0 Then    在E语言里的意思  如果的意思
MsgBox "请先运行红色警戒2", , "红警修改器" 就这样  在E语言里的意思  就是信息筐（”请先运行红色警戒2", , "红警修改器“）
这写东西  都很简单，我说起来就不是那样的拉，累死了，有事你加我的Q吧，136751884