今天小編就爲大家分享一篇關於易語言模擬騰訊滑塊條自動驗證的代碼，小編覺得內容挺不錯的，現在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
模擬騰訊滑動自動驗證的代碼
此功能需要加載精易模塊5.6
.版本 2
.支持庫 EThread
.支持庫 BmpOperate
.支持庫 spec
.程序集 窗口程序集1
.程序集變量 圖_原始, 字節集
.程序集變量 圖_塊, 字節集
.程序集變量 圖_模版, 字節集
.程序集變量 初始高度, 整數型
.程序集變量 圖_高度, 整數型
.程序集變量 圖_寬度, 整數型
.子程序 圖片處理, , , 加載圖片，並轉格式
.局部變量 返回文本, 文本型
.局部變量 vsig, 文本型
返回文本 ＝ 網頁_訪問S (“https://ssl.captcha.qq.com/cap_union_new_getsig?aid=549000912&asig=&captype=&protocol=https&clientype=2&disturblevel=&apptype=2&curenv=inner&sess=5QXrJewkDEwg1vPDw8VhkcvqqFlg-iqmUkB2hmpkZr760j54ow_O5Ral9Mvn0FWnd8MNbzjTOfo0q13_o19RgaBSGxg1y7SvtwQtfjQYUmYJXehr0kAIofDGNQoChv6fmDfSHJMR6ecpe3cLGDNPdFwLNjGnT_9nRQTot36qu3sdKPWviiomNZHo7LOzDEe05ovs_u73D60*&theme=&noBorder=noborder&fb=1&showtype=embed&uid=2113494574&cap_cd=xkkVG0XdCXOo-yGWoBCds9jdJ0uWpmRxSEUCS8Y73GUbqzOpFCXCgw**&lang=2052&rnd=566947&rand=0.” ＋ 文本_取隨機數字 (16))
vsig ＝ 文本_取出中間文本 (返回文本, “vsig” ＋ #引號 ＋ “:” ＋ #引號, #引號)
初始高度 ＝ 到整數 (文本_取出中間文本 (返回文本, “inity” ＋ #引號 ＋ “:” ＋ #引號, #引號))
圖_原始 ＝ 網頁_訪問 (“https://ssl.captcha.qq.com/cap_union_new_getcapbysig?aid=549000912&asig=&captype=&protocol=https&clientype=2&disturblevel=&apptype=2&curenv=inner&sess=5QXrJewkDEwg1vPDw8VhkcvqqFlg-iqmUkB2hmpkZr760j54ow_O5Ral9Mvn0FWnd8MNbzjTOfo0q13_o19RgaBSGxg1y7SvtwQtfjQYUmYJXehr0kAIofDGNQoChv6fmDfSHJMR6ecpe3cLGDNPdFwLNjGnT_9nRQTot36qu3sdKPWviiomNZHo7LOzDEe05ovs_u73D60*&theme=&noBorder=noborder&fb=1&showtype=embed&uid=2113494574&cap_cd=xkkVG0XdCXOo-yGWoBCds9jdJ0uWpmRxSEUCS8Y73GUbqzOpFCXCgw**&lang=2052&rnd=566947&rand=0.8316309340056851&vsig=” ＋ vsig ＋ “&img_index=0”)
圖_塊 ＝ 網頁_訪問 (“https://ssl.captcha.qq.com/cap_union_new_getcapbysig?aid=549000912&asig=&captype=&protocol=https&clientype=2&disturblevel=&apptype=2&curenv=inner&sess=5QXrJewkDEwg1vPDw8VhkcvqqFlg-iqmUkB2hmpkZr760j54ow_O5Ral9Mvn0FWnd8MNbzjTOfo0q13_o19RgaBSGxg1y7SvtwQtfjQYUmYJXehr0kAIofDGNQoChv6fmDfSHJMR6ecpe3cLGDNPdFwLNjGnT_9nRQTot36qu3sdKPWviiomNZHo7LOzDEe05ovs_u73D60*&theme=&noBorder=noborder&fb=1&showtype=embed&uid=2113494574&cap_cd=xkkVG0XdCXOo-yGWoBCds9jdJ0uWpmRxSEUCS8Y73GUbqzOpFCXCgw**&lang=2052&rnd=566947&rand=0.8316309340056851&vsig=” ＋ vsig ＋ “&img_index=2”)
圖_模版 ＝ 網頁_訪問 (“https://ssl.captcha.qq.com/cap_union_new_getcapbysig?aid=549000912&asig=&captype=&protocol=https&clientype=2&disturblevel=&apptype=2&curenv=inner&sess=5QXrJewkDEwg1vPDw8VhkcvqqFlg-iqmUkB2hmpkZr760j54ow_O5Ral9Mvn0FWnd8MNbzjTOfo0q13_o19RgaBSGxg1y7SvtwQtfjQYUmYJXehr0kAIofDGNQoChv6fmDfSHJMR6ecpe3cLGDNPdFwLNjGnT_9nRQTot36qu3sdKPWviiomNZHo7LOzDEe05ovs_u73D60*&theme=&noBorder=noborder&fb=1&showtype=embed&uid=2113494574&cap_cd=xkkVG0XdCXOo-yGWoBCds9jdJ0uWpmRxSEUCS8Y73GUbqzOpFCXCgw**&lang=2052&rnd=566947&rand=0.8316309340056851&vsig=” ＋ vsig ＋ “&img_index=1”)
圖片_轉換 (圖_模版, 1, , 圖_模版)
圖片_轉換 (圖_原始, 1, , 圖_原始)
圖片_轉換 (圖_塊, 1, , 圖_塊, )
圖片框2.圖片 ＝ 圖_塊
圖片框3.圖片 ＝ 圖_模版
圖_高度 ＝ 圖片_取高度 (圖_模版)
圖_寬度 ＝ 圖片_取寬度 (圖_模版)
圖片框2.頂邊 ＝ 初始高度
滑動 (圖_原始, 圖_模版, 3000000)
.子程序 _載入圖片按鈕_被單擊
啓動線程 (&圖片處理, , )
.子程序 滑動, , , 滑動的過程
.參數 原始圖, 字節集
.參數 模版圖, 字節集
.參數 閥值, 整數型
.局部變量 原始位圖, 位圖
.局部變量 模版位圖, 位圖
.局部變量 塊位圖, 位圖
.局部變量 a, 整數型
.局部變量 b, 整數型
.局部變量 是否跳出, 邏輯型
.局部變量 模版X, 整數型
.局部變量 連續差異次數, 整數型, 靜態
.局部變量 塊X, 整數型
原始位圖.創建 (圖_寬度, 圖_高度, 24, )
原始位圖.載入數據 (原始圖)
模版位圖.創建 (圖_寬度, 圖_高度, 24, )
模版位圖.載入數據 (模版圖)
塊位圖.創建 (圖片_取寬度 (圖_塊), 圖片_取高度 (圖_塊), 24, )
塊位圖.載入數據 (圖_塊)
.計次循環首 (圖片_取寬度 (圖_塊), a)
.計次循環首 (圖片_取高度 (圖_塊), b)
.如果 (塊位圖.取某點顏色 (a, b) ＝ 9895935)
調試輸出 (“當前塊” ＋ 到文本 (a))
塊X ＝ a
是否跳出 ＝ 真
跳出循環 ()
.否則
是否跳出 ＝ 假
.如果結束
.計次循環尾 ()
.如果真 (是否跳出 ＝ 真)
是否跳出 ＝ 假
跳出循環 ()
.如果真結束
.計次循環尾 ()
.計次循環首 (圖_寬度, a)
.計次循環首 (圖_高度, b)
.如果 (取絕對值 (原始位圖.取某點顏色 (a, b) － 模版位圖.取某點顏色 (a, b)) ＞ 閥值)
連續差異次數 ＝ 連續差異次數 ＋ 1
.如果真 (連續差異次數 ≥ 5)
模版X ＝ a
調試輸出 (“當前模版” ＋ 到文本 (a))
是否跳出 ＝ 真
跳出循環 ()
.如果真結束
.否則
連續差異次數 ＝ 0
.如果結束
.計次循環尾 ()
.如果真 (是否跳出 ＝ 真)
跳出循環 ()
.如果真結束
.計次循環尾 ()
連續差異次數 ＝ 0
圖片框2.左邊 ＝ 模版X － 塊X
信息框 (“滑動結果” ＋ #換行符 ＋ “X:” ＋ 到文本 (圖片框2.左邊) ＋ “,Y:” ＋ 到文本 (初始高度), 0, , )
.子程序 二值化, 字節集, , （無用）本想先二值化處理一下，但是後來發現效果很差，所以放棄了
.參數 原始圖, 字節集
.參數 閥值, 整數型
.局部變量 位圖, 位圖
.局部變量 局_y, 整數型
.局部變量 局_x, 整數型
.局部變量 亮度, 整數型
位圖.創建 (圖_寬度, 圖_高度, 24, )
位圖.載入數據 (原始圖)
.計次循環首 (圖_高度, 局_y)
.計次循環首 (圖_寬度, 局_x)
亮度 ＝ 位與 (位圖.取某點顏色 (局_x － 1, 局_y － 1), 255)
.如果 (亮度 ＜ 閥值)
位圖.置某點顏色 (局_x － 1, 局_y － 1, #黑色)
.否則
位圖.置某點顏色 (局_x － 1, 局_y － 1, #白色)
.如果結束
.計次循環尾 ()
.計次循環尾 ()
返回 (位圖.取位圖數據 ())
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接