鸟网登录例子源码

顶象和图片验证 都是对接的平台。

.版本 2
.支持库 spec
.支持库 EThread

.程序集 窗口程序集_启动窗口

.子程序 登录zcx

.计次循环首 (100, )
    登录 (编辑框1.内容, 编辑框2.内容)
.计次循环尾 ()

.子程序 登录
.参数 user, 文本型
.参数 pass, 文本型
.局部变量 cookies, 文本型
.局部变量 Str, 文本型
.局部变量 appKey, 文本型
.局部变量 token, 文本型
.局部变量 c, 文本型
.局部变量 失败原因, 文本型
.局部变量 url, 文本型
.局部变量 body, 文本型
.局部变量 loginhash, 文本型
.局部变量 formhash, 文本型
.局部变量 seccodehash, 文本型
.局部变量 seccodeverify, 文本型
.局部变量 图片验证码, 字节集
.局部变量 cookies2, 文本型
.局部变量 代理ip, 文本型

代理ip ＝ 到文本 (网页_访问_对象 (“http://t.11jsq.com/index.php/api/entry?method=proxyServer.generate_api_url&packid=0&fa=0&fetch_key=&groupid=0&qty=1&time=1&pro=&city=&port=1&format=txt&ss=1&css=&dt=1&specialTxt=3&specialJson=&usertype=2”))
.计次循环首 (5, )
    cookies ＝ “”
    Str ＝ 到文本 (网页_访问_对象 (“https://www.birdnet.cn/member.php?mod=logging&action=login&referer=”, , , cookies, , , , , , , 代理ip))
    loginhash ＝ 文本_取出中间文本 (Str, “class=#引号rfm#引号 id=#引号loginanswer_row_”, #引号)
    formhash ＝ 文本_取出中间文本 (Str, “name=#引号formhash#引号 value=#引号”, #引号)
    seccodehash ＝ 文本_取出中间文本 (Str, “<span id=#引号seccode_”, #引号)
    appKey ＝ 文本_取出中间文本 (Str, “appKey: #引号”, #引号)
    url ＝ “https://www.birdnet.cn/misc.php?mod=seccode&update=26225&idhash=” ＋ seccodehash

    图片验证码 ＝ 网页_访问_对象 (url, , , cookies)
    图片框1.图片 ＝ 图片验证码
    .如果 (识云_图形码 (图片验证码, , seccodeverify, 失败原因))
        url ＝ “https://www.birdnet.cn/misc.php?mod=seccode&action=check&inajax=1&modid=member::logging&idhash=” ＋ seccodehash ＋ “&secverify=” ＋ seccodeverify
        Str ＝ 到文本 (网页_访问_对象 (url, , , cookies, , , , , , , 代理ip))
        .如果真 (寻找文本 (Str, “invalid”, , 假) ＝ -1)
            跳出循环 ()
        .如果真结束
        编辑框3.加入文本 (“图片打码失败:” ＋ seccodeverify ＋ #换行符)

    .否则
        编辑框3.加入文本 (“图片打码失败:” ＋ 失败原因 ＋ #换行符)
    .如果结束

.计次循环尾 ()
编辑框3.加入文本 (“验证码:” ＋ seccodeverify)
程序_延时 (1000)
.如果 (识云_顶象 (appKey, “2”, 代理ip, “https://www.birdnet.cn/”, token, c, 失败原因))
    cookies2 ＝ “_dx_app_” ＋ appKey ＋ “=” ＋ c ＋ “;” ＋ “_dx_captcha_vid=” ＋ token
    cookies ＝ 网页_Cookie合并更新ex (cookies, cookies2)
    url ＝ “https://www.birdnet.cn/member.php?mod=logging&action=login&loginsubmit=yes&loginhash=” ＋ loginhash ＋ “&inajax=1”
    body ＝ “formhash=” ＋ formhash ＋ “&referer=https%3A%2F%2Fwww.birdnet.cn%2F&username=” ＋ user ＋ “&password=” ＋ 校验_取md5 (到字节集 (pass)) ＋ “&questionid=0&answer=&seccodehash=” ＋ loginhash ＋ “&seccodemodid=member%3A%3Alogging&seccodeverify=” ＋ seccodeverify ＋ “&dx_verify_token=” ＋ token ＋ “%3A” ＋ c ＋ “&captcha_id=myCaptcha&cookietime=2592000”
    Str ＝ 到文本 (网页_访问_对象 (url, 1, body, cookies, , , , , , , 代理ip))
    编辑框3.加入文本 (“登录结果:” ＋ Str ＋ #换行符)
    调试输出 (Str)

.否则
    编辑框3.加入文本 (“顶像打码失败:” ＋ 失败原因 ＋ #换行符)
.如果结束

按钮1.禁止 ＝ 假

.子程序 __启动窗口_创建完毕
.局部变量 积分, 文本型

识云_登录 (“624be7ce0ad209461c4f048c0d7dc1bb”, “4EA83D951990D8BF07A68EC3E50F9156”, 积分)
编辑框3.加入文本 (“剩余:” ＋ 积分 ＋ #换行符)

.子程序 _按钮1_被单击

按钮1.禁止 ＝ 真
启动线程 (&登录zcx, , )

@h6435749