回复看到后 直接复制保存 然后另存为VBS格式的 就OK了
[ post]Set a=WScript.CreateObject("WScript.shell")
a.run "
http://newreg.qq.com/" '
WScript.Sleep 3000 ' 设置延迟时间
a.SendKeys "123" ' QQ昵称
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "xiaofei" ' 这里可以修改密码
a.SendKeys "{TAB}"
WScript.Sleep 200 这里可以修改密码
a.SendKeys "xiaofei" '
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
[/post]