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

更新時間：2018年12月03日 15:13:44 作者：易語言源碼教程

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

常量數(shù)據(jù)表

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

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

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

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

運行結(jié)果：