本帖最后由 pcl_test 于 2016-10-14 04:02 编辑
原由http://www.bathome.net/thread-23579-1-1.html- 'VBS 查找含有“百度”文字的窗口,激活并提示 By yu2n
- '在5秒内查找含有“百度”文字的窗口,
- ' 若存在,则激活并提示 "找到一个含有“百度”文字的窗口!"
- ' 若不存在,则提示 "找不到含有“百度”文字的窗口!"
- Const sTitle = "百度" ' 查找窗口名称
- Const nTimeOut = 5 ' 指定超时时间
- Dim dtStart, bFind
- dtStart = Now()
- Do While DateDiff("s", dtStart, Now()) < nTimeOut
- WScript.Sleep 200
- If CreateObject("WScript.Shell").Appactivate(sTitle) Then
- bFind = True ' 做标记-已找到
- Exit Do
- End If
- Loop
- If bFind Then
- Msgbox "找到一个含有“百度”文字的窗口!耗时 " & DateDiff("s", dtStart, Now()) _
- & " 秒。", vbSystemModal+vbInformation, WScript.ScriptName
- Else
- Msgbox "找不到含有“百度”文字的窗口!耗时 " & DateDiff("s", dtStart, Now()) _
- & " 秒。", vbSystemModal+vbCritical, WScript.ScriptName
- End If
复制代码 我想搜索条件包含其它字符,例如百度 或 谷歌 或 必应
Const sTitle = "百度 or 谷歌 or 必应" '这样试了不行
该如何写呢。 |