京东注册滑块验证码例子

部分代码：

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

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

.子程序 __启动窗口_创建完毕



.子程序 _加载按钮_被单击

启动线程 (&子程序1, , )


.子程序 子程序1
.局部变量 url, 文本型
.局部变量 js, JScript
.局部变量 http, WinHttp
.局部变量 result, 文本型
.局部变量 sessionId, 文本型
.局部变量 e, 文本型
.局部变量 challenge, 文本型
.局部变量 bg, 文本型
.局部变量 x, 整数型
.局部变量 d, 文本型

url ＝ “https://reg.jd.com/reg/person?ReturnUrl=http%3A%2F%2Fwww.jd.com”
http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64; rv:35.0) Gecko/20100101 Firefox/35.0”)
http.Open (#GET, “https://seq.jd.com/jseqf.html?bizId=JD_register_pc&platform=js&version=1”)
http.SetAccept (“*/*”)
http.SetAccept_Language (“zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3”)
http.SetReferer (url)
http.Send ()
result ＝ http.GetBodyUTF8 ()
sessionId ＝ 文本_取中间 (result, “var _jdtdmap_sessionId=” ＋ #引号, #引号)
' 调试输出 (“sessionId：” ＋ sessionId)
e ＝ “7M3BTCZ3ZFFKZMAAWGAPGPSQIM3EJ7CH4RGYUEP4Y7NE44SUE6IFED3NNVYCDY6I4YW4NZ4GZUAS4QTCY2MF4NJIOI”
http.Open (#GET, “https://gia.jd.com/slide/g.html?appId=1604ebb2287&scene=reg&product=embed&e=” ＋ e ＋ “&callback=” ＋ getCallback ())
http.SetAccept (“*/*”)
http.SetAccept_Language (“zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3”)
http.SetReferer (url)
http.Send ()
result ＝ http.GetBodyUTF8 ()
challenge ＝ 文本_取中间 (result, #引号 ＋ “challenge” ＋ #引号 ＋ “:” ＋ #引号, #引号)
bg ＝ 文本_取中间 (result, #引号 ＋ “bg” ＋ #引号 ＋ “:” ＋ #引号, #引号)
' 调试输出 (“challenge：” ＋ challenge, “bg：” ＋ bg)
http.Open (#GET, “https://gias.jd.com/” ＋ bg)
http.SetAccept (“image/png,image/*;q=0.8,*/*;q=0.5”)
http.SetAccept_Language (“zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3”)
http.SetReferer (url)
http.Send ()
滑动验证码图片框.图片 ＝ http.GetBody ()
x ＝ svcrItion (滑动验证码图片框.图片)
X坐标图片框.左边 ＝ x
js.Reset ()
js.AddCode (#slide_2_0)
d ＝ js.Run (“getslide”, 到文本 (x))
' 调试输出 (“d：” ＋ d)
http.Open (#GET, “https://gia.jd.com/slide/s.html?d=” ＋ d ＋ “&c=” ＋ challenge ＋ “&w=364&appId=1604ebb2287&scene=reg&product=embed&e=” ＋ e ＋ “&s=” ＋ sessionId ＋ “&callback=” ＋ getCallback ())
http.SetAccept (“*/*”)
http.SetAccept_Language (“zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3”)
http.SetReferer (url)
http.Send ()
result ＝ http.GetBodyUTF8 ()
调试输出 (result)

.子程序 getCallback, 文本型
.局部变量 js, JScript

返回 (js.Eval (“('jsonp_' + Math.random()).replace('.', '')”))

.子程序 svcrItion, 整数型
.参数 img, 字节集
.局部变量 bitmap, 位图
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 w, 整数型
.局部变量 h, 整数型
.局部变量 s, 整数型
.局部变量 rgb1, 字节集
.局部变量 rgb2, 字节集

图片_转换 (img, #bmp, , img)
bitmap.载入数据 (img)
w ＝ bitmap.取宽度 ()
h ＝ bitmap.取高度 ()
.计次循环首 (w, x)
    .计次循环首 (h, y)
        .如果真 (bitmap.取某点颜色 (x － 1, y － 1) ≠ #黑色)
            bitmap.置某点颜色 (x － 1, y － 1, #白色)
        .如果真结束

    .计次循环尾 ()
.计次循环尾 ()
.计次循环首 (w, x)
    .计次循环首 (h, y)
        s ＝ 1
        .如果真 (bitmap.取某点颜色 (x － 1, y － 1) ＋ bitmap.取某点颜色 (x, y － 1) ＋ bitmap.取某点颜色 (x ＋ 1, y － 1) ＋ bitmap.取某点颜色 (x ＋ 2, y － 1) ＋ bitmap.取某点颜色 (x ＋ 3, y － 1) ＋ bitmap.取某点颜色 (x ＋ 4, y － 1) ＋ bitmap.取某点颜色 (x ＋ 5, y － 1) ＝ #黑色)
            .如果真 (bitmap.取某点颜色 (x － 1, y － 1) ＋ bitmap.取某点颜色 (x － 1, y) ＋ bitmap.取某点颜色 (x － 1, y ＋ 1) ＋ bitmap.取某点颜色 (x － 1, y ＋ 2) ＋ bitmap.取某点颜色 (x － 1, y ＋ 3) ＋ bitmap.取某点颜色 (x － 1, y ＋ 4) ＋ bitmap.取某点颜色 (x － 1, y ＋ 5) ＝ #黑色)
                s ＝ 0
                跳出循环 ()
            .如果真结束

        .如果真结束

    .计次循环尾 ()
    .如果真 (s ＝ 0)
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
返回 (选择 (s ＝ 0, 到整数 (x), 0))

@nliger2015