[问题求助] VBS检测指定标题窗口是否存在

522235677

Dim objShell
Set objShell = CreateObject("WSCript.Shell")
objShell.Appactivate "中国好骚年"
复制代码

如果存在该标题窗口则激活该窗口，否则返回一个错误代码。我是用批处理来调用这个vbs，如果有错误的话我都接收到返回参数

522235677

Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
if colTasks.exists("中国好骚年") then 
msgbox "窗口存在"
wscript.quit
else
msgbox "窗口bu 存在"
wscript.quit
end if
复制代码

这个好像必须得有word才能用

522235677

Set objShell = CreateObject("WSCript.Shell")
objShell.Appactivate "中国好骚年"
ret = objShell.Appactivate("中国好骚年")

    If ret Then
msgbox "窗口存在"
wscript.quit
    Else
msgbox "窗口bu 存在"
wscript.quit
    End if
复制代码

这个代码只要窗口最小化就会提示不存在……