高校问答天蓝色彩冬天制服:关于获得窗口句柄的问题 VB高手进
来源：百度文库 编辑：高校问答 时间：2024/05/09 07:24:43
我编一个程序,需要获得当前所有窗口的句柄,然后遍历算法
请问高手哥哥 我如何获得当前所有窗口的句柄呢 ?
请问高手哥哥 我如何获得当前所有窗口的句柄呢 ?
'定义模块
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'在窗口中建立一timer(时间控制器),然后在代码窗口输入如下代码:
Private Sub Form_Load()
Timer1.Interval = 500
End Sub
时间控制器的代码如下:
Private Sub Timer1_Timer()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, "计算器") '抓取"计算器"这个窗口名称.
If (hwnd = 0) Then
If MsgBox("你没有打开[计算器]程序！点击“确定”退出。点“取消”继续。", 49, "错误！") = 1 Then End
ElseIf (hwnd <> 0) Then
MsgBox "你已经打开了[计算器]程序.点“确定”退出本程序", , "退出"
End
End If
End Sub