VB获取指定窗口的子程序句柄

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

'这是定义获得窗口句柄的API函数

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,lParam As Any) As Long '这句是定义向获得窗口句柄发送按键消息的API函数

例子:你先建一个工程

form1caption="12345

画一个command1 名字为 "确定1"

事件

Private Sub Command1_Click()

msgbox MeHwnd '显示确定按钮的句柄

End Sub

生成12345exe

关闭VB6

打开VB6

再建一个工程 代码如下：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function PostMessage& Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_LBUTTONDOWN = &H201

Private Const WM_LBUTTONUP = &H202

Private Const MK_LBUTTON = &H1

Dim hpwnd As Long, hcwnd As Long

Dim iResult As Long

Private Sub Command1_Click()

hpwnd = FindWindow(vbNullString, "12345")

hcwnd = FindWindowEx(hpwnd, 0, vbNullString, "确定")

SetForegroundWindow hcwnd

iResult = SendMessage(hcwnd, WM_LBUTTONDOWN, 0, 0&)

iResult = SendMessage(hcwnd, WM_LBUTTONUP, 0, 0&)

End Sub

然后先运行 事先生成好的12345exe

再运行后建的那个

你单击确定 就会使12345exe的确定按钮被单击 返回它的hwnd

我的方法是先找到12345exe的主窗口 然后根据主窗口的句柄获得其确定按钮的句柄 再使用sendmessage 发送模拟鼠标左键单击

VB控件的句柄 一般可用mehwnd 方法获得

CMD下查看进程 如果打不开任务管理器和注册表编辑器的话必须这么做，能直接打开任务管理器然后结束它更好）能直接打开任务管理器和注册表的话直接打开。

开始菜单－运行－输入CMD命令打开CMD窗口；

输入命令tasklist回车查看一下

有进程如：svohostexe(虽然他禁用了任务管理器,但在CMD下用tasklist命令还是可以查看到进程信息的)。

二、 cmd下结束进程的方法 2008-10-30 14:09 1 taskkill (s / system, u / username, p / password, fi / fitel , pid / processid, im /imagename, /f /t/S system 指定要连接到的远程系统/U [domain\]user 指定应该在哪个用户上下文执行这个命令。/P [password] 为提供的用户上下文指定密码。如果忽略，提示输入/F 指定要强行终止进程/FI filter 指定筛选进或筛选出查询的任务/PID process id 指定要终止的进程的PID/IM image name 指定要终止的进程的图像名/T Tree kill: 终止指定的进程和任何由此启动的子进程实例：Taskkill /s server /u administrator /p /f /im hldsexe强行终止server上的hldsexe(正在运行的CS服务器）2 ntsd在一台正常的专业版XP里，打开cmd,出现命令提示窗口。首选用tasklist或是任务管理器或是其他软件查出想要结束进程的ID，然后利用ntsd -c q -p PID就可以搞定这个进程了。

要让我说理由，我对这个说不大清楚，网上找了一下资料说

ntsd -c q -p PID

PID说的是进程的进程号。进程号可以在任务管理器里查

debug权限是向方便开发人员提供的一个调试,只有系统开发人员使用此命令

运行ntsd自动就获得了debug权限，从而能杀掉大部分的进程。

这样也就是说，理论上除了System、SMSSEXE和CSRSSEXE不能杀，因为ntsd依赖它们。你看情况给我最优吧。

以上就是关于VB获取指定窗口的子程序句柄全部的内容，包括:VB获取指定窗口的子程序句柄、cmd命令怎么获取某个具体的进程pid、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！