帮我做个VBS循环检测 标题为 “打开”的窗口，谢谢

yyz219

目标：循环检测 标题为 “打开”的窗口。如果存在，隔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 【表示结束】

复制代码

yyz219

我用了一个很笨的方法（可以使用），希望老师优化一下：

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 【表示结束】

复制代码