1.qq申请器

qq申请器

       我有 源码

       Set a=WScript.CreateObject("WScript.shell")

       a.run "/" '打开QQ号码申请页面

       WScript.Sleep '延时秒，申请q申等待页面载入

       a.SendKeys "百度路人" '这里填写昵称

       a.SendKeys "{ TAB}"

       WScript.Sleep

       a.SendKeys "{ DOWN}"

       a.SendKeys "{ TAB}"

       WScript.Sleep

       a.SendKeys "{ DOWN}"

       a.SendKeys "{ TAB}"

       WScript.Sleep

       a.SendKeys "{ DOWN}"

       WScript.Sleep

       a.SendKeys "{ TAB}"

       WScript.Sleep

       a.SendKeys "{ TAB}"

       WScript.Sleep

       a.SendKeys "" '这里是器源请器源码1668密码

       a.SendKeys "{ TAB}"

       WScript.Sleep

       a.SendKeys "" '再次输入密码

       WScript.Sleep

       a.SendKeys "{ TAB}"

       WScript.Sleep

       a.SendKeys "{ TAB}"

       WScript.Sleep

       a.SendKeys "{ TAB}"

       WScript.Sleep

       a.SendKeys "{ TAB}"

       复制到记事本 文件名为“QQ申请器。VBS”

       这就不怕有毒啦