一段自动申请QQ的代码

向下

一段自动申请QQ的代码

帖子  Admin 于 周六 七月 24, 2010 10:19 pm

Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/" '打开QQ号码申请页面
WScript.Sleep 3000 '延时10秒,等待页面载入
a.SendKeys "sheng" '这里填写昵称
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 "asdasd" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "asdasdas" '再次输入密码
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 初级代码
avatar
Admin
博士生
博士生

帖子数 : 119
注册日期 : 10-07-20

查阅用户资料 http://0819.gugebb.com

返回页首 向下

返回页首


 
您在这个论坛的权限:
不能在这个论坛回复主题