.版本 2
.子程序 開始截圖, 邏輯型, 公開, 截圖成功返回真，圖片被自動保存到剪貼板。失敗或放棄截圖則返回假。
.參數 是否截取鼠標, 邏輯型, 可空
.參數 調節框顏色, 整數型, 可空, 默認：Red=10，Green=100，Blue=130 
.參數 矩形信息框顏色, 整數型, 可空, 默認黑色
.參數 矩形信息字體顏色, 整數型, 可空, 默認黑色
.子程序 取剪貼板位圖, 字節集, 公開

.版本 2
.支持庫 edroptarget
.支持庫 shellEx
.支持庫 eImgConverter
.支持庫 iext
.支持庫 EThread
.支持庫 spec
.支持庫 HtmlView
.程序集 窗口程序集_啟動窗口
.程序集變量 request_id, 文本型
.程序集變量 壓縮率, 整數型
.程序集變量 路徑, 文本型
.程序集變量 a, 整數型
.子程序 __啟動窗口_創建完畢
拖放對象1.注冊拖放控件 (取窗口句柄 ())
a ＝ 注冊熱鍵 (取窗口句柄 (), 標簽1.取窗口句柄 (), 0, #F4鍵)
文件_刪除 (取運行目錄 () ＋ “\123.jpg”)
壓縮率 ＝ 滑塊條1.位置
編輯框1.內容 ＝ 讀配置項 (取運行目錄 () ＋ “\表格配置.ini”, “配置”, “Token”, )
.子程序 _拖放對象1_得到文件
.參數 接收到的文件路徑, 文本型
路徑 ＝ 接收到的文件路徑
轉換到JPG (接收到的文件路徑, 取運行目錄 () ＋ “\123.jpg”, 假, 壓縮率, 真, 0)
處理事件 ()
圖片框1.圖片 ＝ 讀入文件 (取運行目錄 () ＋ “\123.jpg”)
透明標簽1.標題 ＝ 到文本 (取字節集長度 (圖片框1.圖片))
.子程序 _滑塊條1_位置被改變
壓縮率 ＝ 滑塊條1.位置
轉換到JPG (路徑, 取運行目錄 () ＋ “\123.jpg”, 假, 壓縮率, 真, 0)
處理事件 ()
圖片框1.圖片 ＝ 讀入文件 (取運行目錄 () ＋ “\123.jpg”)
透明標簽1.標題 ＝ 到文本 (取字節集長度 (圖片框1.圖片))
.子程序 _標簽1_反饋事件, 整數型
.參數 參數一, 整數型
.參數 參數二, 整數型
.局部變量 jpg, 字節集
.如果真 (參數一 ＝ a)
  .如果真 (開始截圖 ())
    滑塊條1.禁止 ＝ 真
    路徑 ＝ 取運行目錄 () ＋ “\1234.jpg”
    寫到文件 (路徑, 剪輯板_取圖片 (取窗口句柄 ()))
    處理事件 ()
    圖片_轉換 (讀入文件 (取運行目錄 () ＋ “\1234.jpg”), 2, 取運行目錄 () ＋ “\123.jpg”, jpg)
    處理事件 ()
    圖片框1.圖片 ＝ 讀入文件 (取運行目錄 () ＋ “\123.jpg”)
    透明標簽1.標題 ＝ 到文本 (取字節集長度 (圖片框1.圖片))
  .如果真結束
.如果真結束
.子程序 _按鈕1_被單擊
編輯框1.可視 ＝ 假
.如果真 (取字節集長度 (圖片框1.圖片) ＝ 0)
  _啟動窗口.標題 ＝ “拖入圖片再轉換”
  返回 ()
.如果真結束
.如果真 (取字節集長度 (圖片框1.圖片) ＞ 150000)
  .如果真 (信息框 (“當前圖片較大，轉換時間較長”, 1, , _啟動窗口) ＝ #取消鈕)
    返回 ()
  .如果真結束
.如果真結束
按鈕1.禁止 ＝ 真
滑塊條1.禁止 ＝ 假
圖片框2.可視 ＝ 真
_啟動窗口.標題 ＝ “正在上傳圖片”
啟動線程 (&上傳圖像, , )
.子程序 上傳圖像
.局部變量 地址, 文本型
.局部變量 數據, 文本型
.局部變量 圖片, 文本型
.局部變量 Json, 類_json
.局部變量 str, 文本型
.局部變量 返回, 文本型
.局部變量 jpg, 字節集
圖片框2.圖片 ＝ 讀入文件 (“C:\Users\wyz\Desktop\ICO\timg (1).gif”)
圖片 ＝ 編碼_URL編碼 (編碼_BASE64編碼 (圖片框1.圖片), 真, 真)
地址 ＝ “https://aip.baidubce.com/rest/2.0/solution/v1/form_ocr/request?access_token=” ＋ 編輯框1.內容
數據 ＝ “image=” ＋ 圖片 ＋ “&”
返回 ＝ 到文本 (網頁_訪問 (地址, 1, 數據))
.如果真 (尋找文本 (返回, “Access token expired”, , 假) ≠ -1)
  _啟動窗口.標題 ＝ “訪問令牌已過期”
  圖片框2.可視 ＝ 假
  按鈕1.禁止 ＝ 假
.如果真結束
.如果真 (尋找文本 (返回, “Access token invalid or no longer valid”, , 假) ≠ -1)
  _啟動窗口.標題 ＝ “訪問令牌無效或不再有效”
  圖片框2.可視 ＝ 假
  按鈕1.禁止 ＝ 假
.如果真結束
Json.解析 (返回)
str ＝ Json.取通用屬性 (“result[0].request_id”, 真)
request_id ＝ 文本_替換 (str, , , , #引號, “”)
.如果真 (request_id ≠ “”)
  _啟動窗口.標題 ＝ “正在處理，請稍等”
  啟動線程 (&分析圖像, , )
.如果真結束
.子程序 分析圖像
.局部變量 地址1, 文本型
.局部變量 數據1, 文本型
.局部變量 選擇, 文本型
.局部變量 返回1, 文本型
.局部變量 Json1, 類_json
.局部變量 str1, 文本型
地址1 ＝ “https://aip.baidubce.com/rest/2.0/solution/v1/form_ocr/get_request_result?access_token=” ＋ 編輯框1.內容
數據1 ＝ “request_id=” ＋ request_id ＋ “&result_type=excel&”
返回1 ＝ 到文本 (網頁_訪問 (地址1, 1, 數據1))
返回1 ＝ 編碼_URL解碼 (返回1, 真)
調試輸出 (返回1)
.如果真 (尋找文本 (返回1, “未開始”, , 假) ≠ -1)
  程序_延時 (3000)
  啟動線程 (&分析圖像, , )
  返回 ()
.如果真結束
.如果真 (尋找文本 (返回1, “進行中”, , 假) ≠ -1)
  程序_延時 (3000)
  啟動線程 (&分析圖像, , )
  返回 ()
.如果真結束
.如果真 (尋找文本 (返回1, “image recognize error”, , 假) ≠ -1)
  _啟動窗口.標題 ＝ “不屬于表格圖像”
  圖片框2.可視 ＝ 假
  按鈕1.禁止 ＝ 假
  返回 ()
.如果真結束
Json1.解析 (返回1)
str1 ＝ 文本_替換 (Json1.取通用屬性 (“result.result_data”, 真), , , , #引號, “”)
_啟動窗口.標題 ＝ “圖像分析完成”
按鈕1.禁止 ＝ 假
圖片框2.可視 ＝ 假
超文本瀏覽框1.地址 ＝ str1
文件_刪除 (取運行目錄 () ＋ “\123.jpg”)
文件_刪除 (取運行目錄 () ＋ “\1234.jpg”)
.子程序 __啟動窗口_被雙擊, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
編輯框1.可視 ＝ 真
.子程序 _圖片框1_被雙擊, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
.如果真 (取字節集長度 (圖片框1.圖片) ＝ 0)
  返回 ()
.如果真結束
載入 (窗口1, , 假)
.子程序 __啟動窗口_將被銷毀
文件_刪除 (取運行目錄 () ＋ “\123.jpg”)
文件_刪除 (取運行目錄 () ＋ “\1234.jpg”)
.子程序 _編輯框1_內容被改變
寫配置項 (取運行目錄 () ＋ “\表格配置.ini”, “配置”, “Token”, 編輯框1.內容)