set WshShell = CreateObject("WScript.Shell")
do
if WshShell.AppActivate("窗口名") = true then
Wscript.sleep 100
WshShell.sendkeys "0000"
Wscript.sleep 100
WshShell.sendkeys "~"
end if
Wscript.sleep 300
loop
窗口名改为你那个弹出窗口的名字
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024