全自动申请qq号vbs代码

全自动申请qq号vbs代码
2011年08月25日
  下面代码可以实现qq号自动申请,用不到5秒钟哦,不是糊弄你,不信自己试试
  说是代码,其实是一种简单vbs脚本源码,打字很累,废话不多说,源码如下:
  ..................................................................................................................................
  Dim a
  Set a=WScript.CreateObject("WScript.shell")
  a.run ("http://reg.qq.com/") '打开qq号码申请页面
  WScript.Sleep 5000 '延时5秒,等待页面载入
  a.SendKeys "1139778197"
  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 "1139778197" '这里是密码 (me的qq号,以后自己改密码)
  a.SendKeys "{TAB}"
  WScript.Sleep 200
  a.SendKeys "1139778197" '再次输入密码
  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文件,别告诉我你不会,自己百度,这里介绍我用的方法:
  我比较喜欢用的是用dos,cmd下用“copy con 快速申请qq.vbs”命令,以键盘为输入端建立空文档,再把上面的东西复制进去就可以了!!再不会的q我!
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值