|
发表于 2013-1-26 16:19:53
|
显示全部楼层
四川省成都市
打开记事本 输入以下代码
Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/" '打开QQ号码申请页面
WScript.Sleep 3000 '延时10秒,等待页面载入
a.SendKeys "张改" '这里填写昵称
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 "aa123456" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "aa123456" '再次输入密码
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 默认的一般是TXT(文本文档)
有兴趣的可以去百度百科学VBS语言 虽然和BASIC语言不太一样 对高二一开始的数学也有帮助
找不到后缀名的 随便打开一个文件夹 工具→文件夹选项→查看→把隐藏已知文件类型的扩展名上的勾 去掉
不懂的MMM我
还有 提示一下 申请QQ的时候把输入法关了 最好是用IE申请 |
|