某站滑块阴影图识别缺口X坐标源码

某站滑块阴影图识别缺口X坐标源码

@q936171457

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

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

.子程序 __启动窗口_创建完毕, , , ' 本源码来自三叶资源网(www.sanye.cx)

' {"errcount":0,"data":84,"result":true,"errorInfo":[]}  识别通过

.子程序 _按钮1_被单击
.局部变量 cookies, 文本型
.局部变量 str, 文本型
.局部变量 json, 类_json
.局部变量 array, 文本型
.局部变量 code, 文本型
.局部变量 img, 字节集
.局部变量 y, 文本型
.局部变量 code1, 文本型
.局部变量 X, 整数型
.局部变量 time, 文本型
.局部变量 c, 整数型
.局部变量 成功, 整数型



' 写的有点毛糙，大神勿怼

.' 计次循环首 (100, c)

    cookies ＝ “visid_incap_1914427=xDCo59CPR96hlXv0kU8tCihSmFwAAAAAQUIPAAAAAADP8TbswG8+529hrYyiyKVI; UqZBpD3n3iPIDwJU=v1XrUxg++CshL; ASP.NET_SessionId=noypzogfc1sewnmzbx1ps2i2; CashID=jtod3x46; incap_ses_382_1914427=/9DNTqIPxzCme9YzmCNNBTaWmVwAAAAALtXKmRrFDS6TJUmWZDXa7w==; ___utmvc=IgCmNuYS/LCboxzTkfsH0GVIvp2PvpmKNFnOhqQbRWeokh8aRlTJYo9N82VpvtJf81G2jTJVSTo+8l8XV+dDhhhWT4eJw7ho6zzqxg5wTitmY/tC9EHFZ3ReW5HvEE+cWEbZX+HW3BxwwbHvsCqmK4j+v07+V+FKcVPde7DwiSOJwI/PthOpw74KlKI7HQ6TWJefEuMbhw/pDnP35mjgdn6HkToHBiph1IcAQar/39aNrA1RFR5tIDG1AyN6mIpcgw2eixwe7iILirLKxLYN3w9wmzt7xGpn5ngCXGQavqPo4pyfycSTH01Y1PG4laU8R6CAk6tcIbu+u4BMsZKJbV8CViYuAYjjq8wISNTgM8VtVUUTkmsN8Qt6nrWFGGFH3jkXCrdNtzNJ8nm/Dul5C59Lef1564gS0uSOIaY2ro7HxdFLhnVD/hINAGUkQ9lLIYJt7cC8AwosKir1HUHzja4gw9u/gOK12//O34ArU32qv66chRCk7boZ6g/jBA3iY8c5ewjnOdpfnDvT+y1i3YsS2Rcmy7luR7ISvgXb8qqwjXRJLRLzignkHv7zxBcOT0dWRfaPNEoCFvm03GC9bCSWLi6T/F/SRjhP1TwGplE65iwf0yRaJeNChW9sR8pZgpQxoWv+QGfymoJ2BnflUobU+V3quQ8QJf0HiUte1uuq/2qdtUssYgGz7jV/LMfkHSZ4QxEo3uvWZMk230z23Eh94Lcr1RXwHJg6z3xlgULNA00fdQwTeaDSG/2IwU5oYuy2u2vKByVlzsLUr2wNslUC4pFBqrydss2RnYDeQq0Fp7h6LvsUT7YTzlqCLbARXDR0K1JvOXABqnzcBURgW2ALIc1DTr7OeI3d34e4bYadEUaLTI3epPzjuwl2rw4bG1Lmdw95XVk+W01Hmd2x8B6GrPssTuBeVsEeteumspczH0DH8iXOZ280DUmbJZ+kCVyPW3Mba2kNzFv5WJpWiRRKjnNZdYERXcdgEB3ERHtYniCFz2qq22hZk3i4MGznZOv3+9Kmq8Hz9UoadffH6kV6kGN5DeudBxt8D2ZZwDYqpXovokpz1Z7dr7qj5jo9T2OVya8poa06JK7cU1smza4lmOJCQ6xP42KdUCtvkIJ2d7Qweb4Gjl07fTCnpTa/y5IG8TCfhbxsZxcfkG2FkxTVfyWL26Fj/T8CTUuoKQvsjfQvhwuxLGRpZ2VzdD04ODcxMyxzPTg5NmU4ZDc2OTZhYjg4ODc2MDljN2M5Zjg2OTI5Y2E5NmE4OTgyNzk4ODkyNmI4MjZhOGI4YWE4YTA3NTliYjI3OTc5NmE5MTgzNzg2ZTcw”


    ' 这个cookies会变化 获取不出来图片 重新抓包带入一下cookies就行 网址：https://www.jj733.net/register.html  并非广告~~

    str ＝ 到文本 (网页_访问 (“https://www.jj733.net/interface/zh-CN/account/slideverificationcode.json?action=getcode”, 1, “spec=300*200”, cookies, , #常量3))
    ' ’调试输出 (str)

    json.解析 (str)
    array ＝ json.取通用属性 (“array”)
    code ＝ 文本_取右边 (json.取通用属性 (“normal”), “data:image/jpg;base64,”)
    ' code1 ＝ 文本_取右边 (json.取通用属性 (“small”), “data:image/png;base64,”)
    y ＝ json.取通用属性 (“y”)
    调试输出 (y)
    图片框2.图片 ＝ 编码_BASE64解码 (code)
    ' 图片框4.图片 ＝ 编码_BASE64解码 (code1)
    图片框1.图片 ＝ 图形排序 (图片框2.图片, array)


    图片框3.图片 ＝ 取回图片 (图片框1.图片, 到整数 (y))
    X ＝ 识别坐标 (图片框3.图片, 到整数 (y))
    置随机数种子 ()


    str ＝ 编码_URL解码 (到文本 (网页_访问 (“https://www.jj733.net/interface/zh-CN/account/slideverificationcode.json?action=check”, 1, “point=” ＋ 到文本 (X) ＋ “&timespan=1190&datelist=3%2C1553512132246%7C11%2C1553512132269%7C29%2C1553512132285%7C41%2C1553512132302%7C53%2C1553512132318%7C64%2C1553512132335%7C77%2C1553512132352%7C93%2C1553512132368%7C108%2C1553512132386%7C122%2C1553512132402%7C131%2C1553512132419%7C136%2C1553512132435%7C139%2C1553512132452%7C142%2C1553512132485%7C144%2C1553512132503%7C148%2C1553512132519%7C152%2C1553512132535%7C157%2C1553512132552%7C163%2C1553512132568%7C169%2C1553512132586%7C174%2C1553512132601%7C177%2C1553512132618%7C180%2C1553512132638%7C182%2C1553512132652%7C183%2C1553512132668%7C185%2C1553512132702%7C186%2C1553512132725”, cookies, , #常量1)), 真)
    调试输出 (str)
    .如果真 (寻找文本 (str, #常量2, , 假) ≠ -1)
        成功 ＝ 成功 ＋ 1
        调试输出 (“识别次数：” ＋ 到文本 (c) ＋ “||成功次数：” ＋ 到文本 (成功))
    .如果真结束


.计次循环尾 ()


.子程序 识别坐标, 整数型
.参数 img, 字节集
.参数 gd1, 整数型
.局部变量 wt, 位图
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 上次颜色, 字节集
.局部变量 颜色, 字节集
.局部变量 差值, 整数型
.局部变量 上次X, 整数型
.局部变量 最终X, 整数型
.局部变量 上次最终X, 整数型
.局部变量 次数, 整数型
.局部变量 跳出, 逻辑型
.局部变量 XX, 整数型
.局部变量 ii, 整数型
.局部变量 颜色1, 字节集
.局部变量 差值1, 整数型
.局部变量 颜色3, 字节集



wt.载入数据 (bmp (img))
上次颜色 ＝ 到字节集 (0)

.计次循环首 (wt.取高度 (), y)

    .计次循环首 (wt.取宽度 (), x)
        颜色 ＝ 到字节集 (wt.取某点颜色 (x － 1, y － 1))

        .如果真 (取差异度 (颜色, 上次颜色) ＞ 20)


            差值 ＝ x － 1 － 上次X
            ' 调试输出 (差值)

            .如果真 (差值 ＞ 29 且 差值 ＜ 35)
                最终X ＝ 上次X


                ' 调试输出 (最终X)
                .判断开始 (最终X ＝ 上次最终X)
                    次数 ＝ 次数 ＋ 1
                    ' 调试输出 (次数)
                    调试输出 (最终X)

                    .如果真 (次数 ＞ 2)

                        ' 调试输出 (wt.取某点颜色 (最终X, 20))
                        颜色1 ＝ 到字节集 (wt.取某点颜色 (最终X － 5, 16))
                        颜色3 ＝ 到字节集 (wt.取某点颜色 (最终X, 16))
                        调试输出 (取差异度 (颜色1, 颜色3))
                        .如果 (取差异度 (颜色1, 颜色3) ＜ 15)
                            跳出 ＝ 真
                            XX ＝ 最终X － 10
                            跳出循环 ()
                        .否则
                            跳出 ＝ 真
                            XX ＝ 最终X
                            跳出循环 ()
                        .如果结束

                    .如果真结束

                .默认
                    次数 ＝ 0
                .判断结束
                上次最终X ＝ 最终X
            .如果真结束
            上次X ＝ x － 1
        .如果真结束
        上次颜色 ＝ 颜色
    .计次循环尾 ()
    .如果真 (跳出)
        跳出循环 ()
    .如果真结束


.计次循环尾 ()

.计次循环首 (200, ii)
    wt.置某点颜色 (XX, ii, #红色)
.计次循环尾 ()
图片框3.图片 ＝ wt.取位图数据 ()

调试输出 (XX)
返回 (XX)


.子程序 取差异度, 双精度小数型
.参数 颜色1, 字节集
.参数 颜色2, 字节集
.局部变量 y1, 双精度小数型
.局部变量 u1, 双精度小数型
.局部变量 v1, 双精度小数型
.局部变量 y2, 双精度小数型
.局部变量 u2, 双精度小数型
.局部变量 v2, 双精度小数型

y1 ＝ 0.299 × 颜色1 [1] ＋ 0.587 × 颜色1 [2] ＋ 0.114 × 颜色1 [3]
u1 ＝ -0.14713 × 颜色1 [1] － 0.28886 × 颜色1 [2] ＋ 0.436 × 颜色1 [3]
v1 ＝ 0.615 × 颜色1 [1] － 0.51498 × 颜色1 [2] － 0.10001 × 颜色1 [3]
y2 ＝ 0.299 × 颜色2 [1] ＋ 0.587 × 颜色2 [2] ＋ 0.114 × 颜色2 [3]
u2 ＝ -0.14713 × 颜色2 [1] － 0.28886 × 颜色2 [2] ＋ 0.436 × 颜色2 [3]
v2 ＝ 0.615 × 颜色2 [1] － 0.51498 × 颜色2 [2] － 0.10001 × 颜色2 [3]
返回 (求平方根 ((y1 － y2) × (y1 － y2) ＋ (u1 － u2) × (u1 － u2) ＋ (v1 － v2) × (v1 － v2)))


.子程序 取回图片, 字节集
.参数 图片, 字节集
.参数 高度y, 整数型
.局部变量 wt, 位图
.局部变量 lswt, 位图

wt.载入数据 (bmp (图片))

lswt.创建 (300, 40, wt.取位深度 (), )

wt.复制到 (0, 高度y, 300, 40, lswt, 0, 0, )


返回 (lswt.取位图数据 ())



.子程序 bmp, 字节集
.参数 img, 字节集
.局部变量 jbo, 对象

jbo.创建图片对象 (img)

img ＝ jbo.取回图片 ()
jbo.清除 ()
返回 (img)

.子程序 图形排序, 字节集
.参数 图片, 字节集
.参数 key, 文本型
.局部变量 wt, 位图
.局部变量 lswt, 位图
.局部变量 xF, 整数型, , "0"
.局部变量 arr, 文本型, , "0"
.局部变量 i, 整数型

wt.载入数据 (bmp (图片))

lswt.创建 (wt.取宽度 (), wt.取高度 (), wt.取位深度 (), )

arr ＝ 分割文本 (key, “,”, )

清除数组 (xF)
.计次循环首 (取数组成员数 (arr), i)
    加入成员 (xF, 到整数 (arr [i]))
.计次循环尾 ()
调试输出 (xF)

.计次循环首 (取数组成员数 (xF), i)
    .如果 (i ≤ 10)
        .判断开始 (xF [i] ≤ 9)
            wt.复制到 (30 × (i － 1), 0, 30, 100, lswt, xF [i] × 30, 0, )

        .默认
            wt.复制到 (30 × (i － 1), 0, 30, 100, lswt, xF [i] × 30 － 300, 100, )

        .判断结束

    .否则
        .判断开始 (xF [i] ≤ 9)
            wt.复制到 (30 × i － 330, 100, 30, 100, lswt, xF [i] × 30, 0, )
        .默认
            wt.复制到 (30 × i － 330, 100, 30, 100, lswt, xF [i] × 30 － 300, 100, )
        .判断结束

    .如果结束

.计次循环尾 ()

返回 (lswt.取位图数据 ())