用TXT文本档申请QQ号
家因有你

非洲旅行團中尉

版主

一係唔发威,一发威就龙咁威

贴子 12999

精华 0

积分 6959

信用 9

竞猜 4

魅力 299

威望 4

现金 29591 CZB

银行 614 CZB

黄金 0

比特币 0

注册时间 2004-02-06

发表于：2011-03-01 13:03:33   |  显示全部帖子   |  本帖随机奖励楼主：0 CZB   |  转账至  家因有你 大 中 小
我n久前就在网号工具哪里发过了
楼主
编辑   |    引用    回帖
关闭    高亮    置顶   |    移动    回收站   |    -6删主题    删主题    |   
家因有你

非洲旅行團中尉

版主

一係唔发威,一发威就龙咁威

贴子 12999

精华 0

积分 6959

信用 9

竞猜 4

魅力 299

威望 4

现金 29591 CZB

银行 614 CZB

黄金 0

比特币 0

注册时间 2004-02-06

发表于：2011-03-01 14:03:06   |  显示全部帖子   |  转账至  家因有你 大 中 小
Set a=WScript.CreateObject("WScript.shell")
a.run "http://reg.qq.com/" '
WScript.Sleep 3000 '                              这个时间调大一点啊,电脑慢的很关键
a.SendKeys "u99" '  
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 "11111111." '  
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "11111111." '  
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"
WScript.Sleep 300
a.SendKeys "{TAB}"
沙发
编辑   |    引用    回帖
关闭    高亮    置顶   |    移动    回收站   |    -6删帖    删帖    |