多应用+插件架构,代码干净,二开方便,首家独创一键云编译技术,文档视频完善,免费商用码云13.8K 广告
## **描述** 设置根据窗体类名得到窗口句柄,可以指定等待几秒检测指定类名的窗体是否出现,默认是等待10秒,允许使用正则表达式。 ## **语法** GetWindowByClassNameEx(*strClassName[, intWaitSeconds= 10[, hWndAll[, isUseRegExp = False[, checkPid[, windowVisible = AllWindow]]]]]*) **该语法中有下列命名参数:** | 参数 | 描述 | | --- | --- | | strClassName | 必须的。String类型,表示要查找的窗口的类名,可以只写一部分,不过为了窗口查找准确建议还是写完整类名,如果要对此参数进行正则控制可将第4个参数isUseRegExp设置为True。 | | intWaitSeconds | 可选的。Long 类型,表示等待超时时间。如果忽略,缺省值是 10,它表明最多等待10秒钟 | | hWndAll| 可选的。String类型。注意,此函数是byRef(传地址)方式,由外部传入一个变量,函数得到的所有句柄都将存到这个变量中。 | | isUseRegExp| 可选的。Boolean类型,表示是否使用正则匹配模式。如果忽略,缺省值是False。 | | checkPid | Optional 可选的。Variant类型,表示指定的进程pid。如果忽略,缺省值是 "",表示未指定。 | | windowVisible | 可选的。enumWindowVisible类型,表示指定所需要获得的窗口可见属性。如果忽略,缺省值是 AllWindow,它表明不管什么状态(可见&不可见)的窗口都获取。关于enumWindowVisible类型的介绍请参考下面“**enumWindowVisible类型的设置值**”表的介绍。 | **enumWindowVisible类型的设置值:** | 设置 | 描述 | | --- | --- | | HiddenWindow | 隐藏的窗口 | | DisplayedWindow | 显示的窗口 | | AllWindow| 以上两种窗口都包含 | ## **返回值** | clsWindow | | --- | | 返回值为本身,方便连写 | ## **示例** > 说明:打开记事本,直接运行下面代码测试。 ``` Dim w As New clsWindow MsgBox w.GetWindowByClassNameEx("Notepad").Caption MsgBox w.GetWindowByClassNameEx("Notep.*?", , , True).Caption Dim s As String w.GetWindowByClassNameEx "\d", , s, True '将当前系统中所有含数字的窗口句柄都搜集放入s MsgBox s ```