只需一段代码就行了。知道的朋友别喷我。
以下是代码
=======================================================================
Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/" '打开QQ号码申请页面
WScript.Sleep 3000 '延时10秒,等待页面载入
a.SendKeys "QQ:
406073039" '这里填写昵称
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 "wunai521" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "wunai521" '再次输入密码
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
======================================================================
在桌面上新建个文本档案,把这段代码复制进去。点击另存为文件名任意,但是要在文件名后面输入.vbs
期待下次分享吧。
[ 此帖被猴岛管理员丶道在2012-08-25 06:23重新编辑 ]