set a = CreateObject("WScript.Shell")
msgbox "这行和下行代码可以去掉，只是让你有所准备,2秒后开始!"
WScript.sleep 2000
for i=0 to 10
a.SendKeys "1"
a.SendKeys "{ENTER}"
WScript.sleep 29000
a.SendKeys "2"
a.SendKeys "{ENTER}"
WScript.sleep 29000
next
代码循环11次,要更多次就修改数字10~~
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024