易語言自動識別快遞公司查件免驗證碼的代碼

今天小編就爲大家分享一篇關於易語言自動識別快遞公司查件免驗證碼的代碼，小編覺得內容挺不錯的，現在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧

常量數據表

.版本 2
.常量 快遞單號前, "<文本長度: 13>", , [{"comCode":"
.常量 快遞單號後, "<文本長度: 9>", , ","id":""

快遞查詢自動識別快遞公司無驗證碼

此功能需要加載精易模塊5.6

.版本 2
.程序集 窗口程序集_啓動窗口
.子程序 __啓動窗口_創建完畢
.子程序 _查詢按鈕_被單擊
.局部變量 提交網址, 文本型
.局部變量 返回數據, 文本型
.局部變量 快遞單號, 文本型
.局部變量 數據, 文本型
.局部變量 i, 整數型
.局部變量 json, 類_json
快遞信息編輯框.內容 ＝ “”
快遞狀態標籤.標題 ＝ “”
提交網址 ＝ “http://www.kuaidi100.com/autonumber/auto?num=” ＋ 快遞編號編輯框.內容
返回數據 ＝ 編碼_utf8到gb2312 (網頁_訪問S (提交網址, , ))
快遞單號 ＝ 文本_取出中間文本 (返回數據, #快遞單號前, #快遞單號後)
數據 ＝ 編碼_utf8到gb2312 (網頁_訪問S (“http://www.kuaidi100.com/query?type=” ＋ 快遞單號 ＋ “&postid=” ＋ 快遞編號編輯框.內容))
json.解析 (數據)
.判斷開始 (json.成員數 (“data”) ＝ 0)
  快遞狀態標籤.標題 ＝ “抱歉，暫無查詢記錄”
.默認
  快遞狀態標籤.標題 ＝ json.取通用屬性 (“data[0].context”, )
  .計次循環首 (json.成員數 (“data”), i)
    系統_處理事件 ()
    快遞信息編輯框.加入文本 (json.取通用屬性 (“data[” ＋ 到文本 (i － 1) ＋ “].time”, ) ＋ #換行符)
    快遞信息編輯框.加入文本 (json.取通用屬性 (“data[” ＋ 到文本 (i － 1) ＋ “].context”, ) ＋ #換行符)
    快遞信息編輯框.加入文本 (json.取通用屬性 (“data[” ＋ 到文本 (i － 1) ＋ “].location”, ) ＋ #換行符)
    快遞信息編輯框.加入文本 (“*********************************************” ＋ #換行符)
  .計次循環尾 ()
.判斷結束

運行結果：

總結

以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接