[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 帮我做个VBS循环检测 标题为 “打开”的窗口,谢谢

目标:循环检测 标题为 “打开”的窗口。如果存在,隔2秒后继续检测;如果不存在,则,结束“打开收藏夹用.exe进程,再退出本身
********************************************************************************************
已经有的不能够循环检测的vbs:
  1. '【检测有无 标题为 “打开” 的窗口】【(有:退出)(无:结束 “打开收藏夹用.exe” 进程,退出)】
  2. '******************************************************************************************************************
  3. '                                      【两行表示:出现错误不提示】
  4. On Error Resume Next
  5. Set objShell=CreateObject("Wscript.Shell")
  6. '
  7. '******************************************************************************************************************
  8. if CreateObject("Word.Application").Tasks.exists("打开") then
  9. '【窗口存在】
  10. Createobject("wscript.shell").run "cmd.exe /c taskkill /f /im WINWORD.EXE /t",0       rem 【关闭“WINWORD.EXE”】
  11. '【退出】
  12. wscript.quit
  13. else
  14. '【窗口 不 存在】
  15. Createobject("wscript.shell").run "cmd.exe /c taskkill /f /im 打开收藏夹用.exe /t",0  rem 【关闭“打开收藏夹用.exe”】
  16. Createobject("wscript.shell").run "cmd.exe /c taskkill /f /im WINWORD.EXE /t",0       rem 【关闭“WINWORD.EXE”】
  17. '【退出】
  18. wscript.quit
  19. end if       rem 【表示结束】
复制代码
我是小白,希望老师多多帮助

我用了一个很笨的方法(可以使用),希望老师优化一下:
  1. '【检测有无 标题为 “打开” 的窗口】【(有:3秒后再检测)(无:结束 “打开收藏夹用.exe” 进程,退出)】
  2. '******************************************************************************************************************
  3. '                                      【两行表示:出现错误不提示】
  4. On Error Resume Next
  5. Set objShell=CreateObject("Wscript.Shell")
  6. '
  7. '******************************************************************************************************************
  8. if CreateObject("Word.Application").Tasks.exists("打开") then
  9. '【窗口存在】
  10. Createobject("wscript.shell").run "cmd.exe /c taskkill /f /im WINWORD.EXE /t",0       rem 【关闭“WINWORD.EXE”】
  11. wscript.sleep 3000                                                                    rem 【延时3000毫秒】
  12. Createobject("wscript.shell").run "cmd.exe /c D:\记事本的收藏夹\用记事本打开收藏夹\检测“打开”窗口.vbs",0 '【循环】
  13. '【退出】
  14. wscript.quit
  15. else
  16. '【窗口 不 存在】
  17. Createobject("wscript.shell").run "cmd.exe /c taskkill /f /im 打开收藏夹用.exe /t",0  rem 【关闭“打开收藏夹用.exe”】
  18. Createobject("wscript.shell").run "cmd.exe /c taskkill /f /im WINWORD.EXE /t",0       rem 【关闭“WINWORD.EXE”】
  19. '【退出】
  20. wscript.quit
  21. end if       rem 【表示结束】
复制代码
我是小白,希望老师多多帮助

TOP

返回列表