do
set s= WScript.CreateObject("WScript.Shell")
WScript.Sleep 3000
s.AppActivate "天天普拉"
s.SendKeys r
loop
天天普拉是一个游戏程序的窗口标题，因为程序启动很慢，所以AppActivate获取窗口标题只能用循环获取，请问有什么办法 等待窗口的的出现获取标题？
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
vbs AppActivate 等待窗口的出现获取标题 ？
标题：vbs AppActivate 等待窗口的出现获取标题 ？
天天普拉是一个游戏程序的窗口标题，因为程序启动很慢，所以AppActivate获取窗口标题只能用循环获取，请问有什么办法 等待窗口的的出现获取标题？
Set s = WScript.CreateObject("WScript.Shell")
Do Until s.AppActivate("天天普拉")
WSH.Sleep 1000
Loop
Do Until s.AppActivate("天天普拉")
WSH.Sleep 1000
Loop
Set s = WScript.CreateObject("WScript.Shell")
Do Until s.AppActivate("天天普拉")
WSH.Sleep 1000
s.SendKeys r
Loop 多谢slore兄。
来源：https://www.cn-dos.net/forum/viewthread.php?tid=46385 · 打印时间 2026-08-11 13:05