企业🤖AI Agent构建引擎,智能编排和调试,一键部署,支持私有化部署方案 广告
## **描述** 根据pid获得窗体。 ## **语法** GetWindowByPID(*PID [, intWaitSeconds = 10[, hWndAll[, windowVisible = AllWindow]]]*) **该语法中有下列命名参数:** | 参数 | 描述 | | --- | --- | | PID | 必须的。 Long类型,表示经常标识。 | | intWaitSeconds | 可选的。Long 类型,表示等待超时时间。如果忽略,缺省值是 10,它表明最多等待10秒钟 | | hWndAll| 可选的。String类型。注意,此函数是byRef(传地址)方式,由外部传入一个变量,函数得到的所有句柄都将存到这个变量中,以便您在下面的程序中使用。 | | windowVisible | 可选的。enumWindowVisible类型,表示指定所需要获得的窗口可见属性。如果忽略,缺省值是 AllWindow,它表明不管什么状态(可见&不可见)的窗口都获取。关于enumWindowVisible类型的介绍请参考下面“**enumWindowVisible类型的设置值**”表的介绍。 | **enumWindowVisible类型的设置值:** | 设置 | 描述 | | --- | --- | | HiddenWindow | 隐藏的窗口 | | DisplayedWindow | 显示的窗口 | | AllWindow| 以上两种窗口都包含 | ## **返回值** | clsWindow | | --- | | 返回值为本身,方便连写 | ## **示例** > 说明:无需打开记事本,直接运行下面代码测试。 ``` Dim w As New clsWindow Dim lndPID As Long lndPID = Shell("notepad.exe", 1) 'shell函数执行成功后会返回pid。你可以可以从任务管理器里找到记事本的pid然后传入 MsgBox w.GetWindowByPID(lndPID).Caption ```