7,765
社区成员
发帖
与我相关
我的任务
分享这段VBS代码有什么问题?
Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/"
WScript.Sleep 3000
a.SendKeys "xiaoyu"
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{DOWN}"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "aa123456"
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "aa123456"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"
我要快速建QQ号 可老提示两次密码输入不一样。
a.run "http://newreg.qq.com/"
WScript.Sleep 3000
a.SendKeys "xiaoyu"
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{DOWN}"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "aa123456"
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "aa123456"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"
我要快速建QQ号 可老提示两次密码输入不一样。
...全文
请发表友善的回复…
发表回复
lb_bn 2010-07-10
- 打赏
- 举报
要输验证码的。
