取QQkey的时候出现js脚本错误

清风渐微

有没有新的取qqkey的方法 或者屏蔽脚本错误窗口~




补充内容 (2017-4-12 17:27):
发布的时候忘记改悬赏了，帮解决直接转账100精币

补充内容 (2017-4-27 14:38):
已经自己解决了

Israel

可以其他方式获取的

清风渐微

Israel 发表于 2017-4-12 16:55
可以其他方式获取的

什么方式

大兔崽子

.版本 2
.支持库 spec

.程序集 程序集1
.程序集变量 key, 文本型, , "0"
.程序集变量 QQ, 文本型, , "0"

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 账号数组, 文本型, , "0"
.局部变量 ck, 文本型
.局部变量 skey, 文本型

取已登录QQ (账号数组)
调试输出 (账号数组 [1])
ck ＝ 登录取Cookies (账号数组 [1])
调试输出 (ck)
skey ＝ 取Skey (ck)
调试输出 (skey)
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 取已登录QQ, , , 参数返回账号数组
.参数 账号数组, 文本型, 数组, 返回已登录的账号数组
.局部变量 i, 整数型
.局部变量 bata, Key_, , "0"
.局部变量 临时数组, 文本型, , "0"

.计次循环首 (取已登录QQKey (bata), i)
    加入成员 (账号数组, bata .uin)
    加入成员 (QQ, bata .uin)
    加入成员 (key, bata .key)
.计次循环尾 ()

.子程序 取已登录QQKey, 整数型
.参数 参数, Key_, 数组, 自定义数据类型
.局部变量 hWnd, 整数型
.局部变量 This, 对象
.局部变量 Mber, 整数型
.局部变量 InnerText, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 临时文本, 文本型, , "0"
.局部变量 临时数组, Key_

线程_初始化COM库 ()
清除数组 (参数)
.如果真 (This.创建 (“SSOAxCtrlForPTLogin.SSOForPTLogin2”, ) ＝ 假)
    返回 (0)
.如果真结束
This.清除 ()
AtlAxWinInit ()
hWnd ＝ CreateWindowEx (0, “AtlAxWin”, “http://xui.ptlogin2.qq.com/cgi-bin/qlogin”, 0, 0, 0, 0, 0, 0, 0, 0, 0)
.如果真 (hWnd ＞ 0)
    AtlAxGetControl (hWnd, This)
    This.写属性 (“Silent”, 真)
    .循环判断首 ()
        Mber ＝ This.读数值属性 (“ReadyState”, )
        .判断开始 (Mber ＝ 0)
            This.清除 ()
            返回 (0)
        .判断 (Mber ＝ 4)
            跳出循环 ()
        .默认

        .判断结束
        处理事件 ()
    .循环判断尾 (真)
    This.对象型方法 (“Document”, ).读对象型属性 (“parentWindow”, ).逻辑方法 (“execScript”, #KeyJs, “JavaScript”)
    InnerText ＝ 分割文本 (This.对象型方法 (“Document”, ).对象型方法 (“body”, ).读文本属性 (“innerText”, ), “;”, )
    .计次循环首 (取数组成员数 (InnerText), i)
        临时文本 ＝ 分割文本 (InnerText , “|”, )
        .如果真 (取数组成员数 (临时文本) ≥ 3)
            临时数组.uin ＝ 临时文本 [1]
            临时数组.name ＝ 临时文本 [2]
            临时数组.key ＝ 临时文本 [3]
            加入成员 (参数, 临时数组)
        .如果真结束

    .计次循环尾 ()
    This.清除 ()
    SendMessageA (hWnd, 16, 0, 0)  ' 最后销毁窗口
.如果真结束
线程_取消COM库 ()
返回 (取数组成员数 (参数))
线程_取消COM库 ()


.子程序 Key取Cookies, 文本型
.参数 账号, 文本型
.参数 _key, 文本型
.局部变量 url, 文本型
.局部变量 ck, 文本型
.局部变量 skey, 文本型

url ＝ “http://ptlogin2.qq.com/jump?clientuin=” ＋ 账号 ＋ “&clientkey=” ＋ _key ＋ “&keyindex=9&pt_aid=549000912&u1=http%3A%2F%2Fqzs.qq.com%2Fqzone%2Fv5%2Floginsucc.html%3Fpara%3Dizone”
网页_访问 (url, , , , ck, , , 真)
网页_访问 (“http://qzs.qq.com/qzone/v5/loginsucc.html?para=izone”, , , ck)
返回 (ck)

.子程序 登录取Cookies, 文本型, , 返回登陆后的CK
.参数 账号, 文本型, , 登陆账号
.局部变量 ck, 文本型
.局部变量 i, 整数型

.计次循环首 (取数组成员数 (key), i)
    .如果真 (QQ ＝ 账号)
        调试输出 (key )
        ck ＝ Key取Cookies (账号, key )
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
返回 (ck)

.子程序 取Skey, 文本型, , 返回QQ-Skey
.参数 Cookies, 文本型, , 登录后的CK
.局部变量 Skey, 文本型

Skey ＝ 文本_取出中间文本 (Cookies, “ skey=@”, “;”)
返回 (Skey)

Israel

清风渐微 发表于 2017-4-12 16:57
什么方式

你这分 等等看看谁愿意给你

清风渐微

大兔崽子 发表于 2017-4-12 17:04
.版本 2
.支持库 spec

找不到数据类型

huangfeng

1284239237我们qq交流下

漫步设计

大兔崽子 发表于 2017-4-12 17:04
.版本 2
.支持库 spec

错误(4): 没有找到名为“Key_”的数据类型。

清风渐微 发表于 2017-4-12 17:26
找不到数据类型

怎么解决的啊

794532121

大哥  怎么解决的？