'【检测有无 标题为 “打开” 的窗口】【（有：退出）（无：结束 “打开收藏夹用.exe” 进程，退出）】
'******************************************************************************************************************
'                                      【两行表示：出现错误不提示】
On Error Resume Next
Set objShell=CreateObject("Wscript.Shell")
'
'******************************************************************************************************************
if CreateObject("Word.Application").Tasks.exists("打开") then
'【窗口存在】
Createobject("wscript.shell").run "cmd.exe /c taskkill /f /im WINWORD.EXE /t",0       rem 【关闭“WINWORD.EXE”】
'【退出】
wscript.quit
else
'【窗口 不 存在】
Createobject("wscript.shell").run "cmd.exe /c taskkill /f /im 打开收藏夹用.exe /t",0  rem 【关闭“打开收藏夹用.exe”】
Createobject("wscript.shell").run "cmd.exe /c taskkill /f /im WINWORD.EXE /t",0       rem 【关闭“WINWORD.EXE”】
'【退出】
wscript.quit
end if       rem 【表示结束】
复制代码

'【检测有无 标题为 “打开” 的窗口】【（有：3秒后再检测）（无：结束 “打开收藏夹用.exe” 进程，退出）】
'******************************************************************************************************************
'                                      【两行表示：出现错误不提示】
On Error Resume Next
Set objShell=CreateObject("Wscript.Shell")
'
'******************************************************************************************************************
if CreateObject("Word.Application").Tasks.exists("打开") then
'【窗口存在】
Createobject("wscript.shell").run "cmd.exe /c taskkill /f /im WINWORD.EXE /t",0       rem 【关闭“WINWORD.EXE”】
wscript.sleep 3000                                                                    rem 【延时3000毫秒】
Createobject("wscript.shell").run "cmd.exe /c D:\记事本的收藏夹\用记事本打开收藏夹\检测“打开”窗口.vbs",0 '【循环】
'【退出】
wscript.quit
else
'【窗口 不 存在】
Createobject("wscript.shell").run "cmd.exe /c taskkill /f /im 打开收藏夹用.exe /t",0  rem 【关闭“打开收藏夹用.exe”】
Createobject("wscript.shell").run "cmd.exe /c taskkill /f /im WINWORD.EXE /t",0       rem 【关闭“WINWORD.EXE”】
'【退出】
wscript.quit
end if       rem 【表示结束】
复制代码