批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[问题求助] [已解决]vbs判断指定标题的窗口并激活该窗口

本帖最后由 522235677 于 2013-4-9 19:00 编辑

判断所有的窗口中是否含有“百度”标题的窗口,
如果没有则一直循环查找,直到查到到有这个窗口后,
然后把就把这窗口激活,就是把这个窗口调到最上方,然后自动按下回车键
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

  1. set ws=createobject("wscript.shell")  
  2. ws.appactivate "记事本"
  3. ws.sendkeys "{enter}"
复制代码
这个可以激活窗口,但是不知道怎么修改让他一直检测,我加do 和loop后,然后就不管在哪窗口上都狂按回车键。

TOP

本帖最后由 yu2n 于 2015-4-18 20:25 编辑

在5秒内查找含有“百度”文字的窗口,若存在,则激活并提示 "找到一个含有“百度”文字的窗口!",提示后退出。
  1. 'VBS 查找含有“百度”文字的窗口,激活并提示 By yu2n
  2. '在5秒内查找含有“百度”文字的窗口,
  3. '  若存在,则激活并提示 "找到一个含有“百度”文字的窗口!"
  4. '  若不存在,则提示 "找不到含有“百度”文字的窗口!"
  5. Const sTitle = "百度"   ' 查找窗口名称
  6. Const nTimeOut = 5      ' 指定超时时间
  7. Dim dtStart, bFind
  8. dtStart = Now()
  9. Do While DateDiff("s", dtStart, Now()) < nTimeOut
  10.   WScript.Sleep 200
  11.   If CreateObject("WScript.Shell").Appactivate(sTitle) Then
  12.     bFind = True  ' 做标记-已找到
  13.     Exit Do
  14.   End If
  15. Loop
  16. If bFind Then
  17.   Msgbox "找到一个含有“百度”文字的窗口!耗时 " & DateDiff("s", dtStart, Now()) _
  18.     & " 秒。", vbSystemModal+vbInformation, WScript.ScriptName
  19. Else
  20.   Msgbox "找不到含有“百度”文字的窗口!耗时 " & DateDiff("s", dtStart, Now()) _
  21.     & " 秒。", vbSystemModal+vbCritical, WScript.ScriptName
  22. End If
复制代码
1

评分人数

『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

Appactivate很不可靠,为了编写个机房注册autocad和3dmax的小vbs,我只有启用大漠组件来写vbs了,推荐你也使用。

TOP

回复 3# yu2n
学习了,正好用上,感谢!

TOP

返回列表