set SH = WScript.CreateObject("WScript.Shell")do until SH.appactivate("1 - 记事本") = trueWScript.sleep 200loopmsgbox "WOW"
