呃 可以通过AppActivate 判断 具体如下：
把以下代码保存为后缀名为1.vbs
do
Set Q = CreateObject("wscript.Shell")
If Q.AppActivate("飘零") = True Then ''判断窗口标题是否为 飘零
msgbox"指定窗口已弹出!"
End If
wscript.sleep 1000
loop
再保存以下代码为2.vbs
a=msgbox("飘",64,"飘零")
先运行1.vbs 再双击2.vbs 你就可以看到效果了....
收藏到网摘：
