1,488
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim hwnd As Long
Dim pid As Long
Dim pro As Long
hwnd = FindWindow(vbNullString, "与 郑松 交谈中")
If hwnd = 0 Then
MsgBox ("没有找到该窗口")
Exit Sub
End If
GetWindowThreadProcessId hwnd, pid
MsgBox (pid)
pro = OpenProcess(1, False, pid) '把参数0改成1
MsgBox (pro)
End Sub