FU8989 当前离线
六级士官
qzwqzw (活着就是幸福)当前离线
贵宾
TOP
canyuexiaolang (vebjbr2wq)当前离线
荣誉版主
yslyxqysl 当前离线
5566ljlj 当前离线
少尉
Set a=WScript.CreateObject("WScript.Shell") a.Run "1.XLS" WScript.Sleep 5000 While a.AppActivate ("1.XLS")=True a.SendKeys "^s" WScript.Sleep 180000 Wend WScript.Quit复制代码