易語(yǔ)言通過(guò)百度ocr接口識(shí)別圖片記錄微信轉(zhuǎn)賬金額的方法是什么

.版本 2
.程序集 程序集1
.子程序 取內(nèi)容, 文本型
.參數(shù) 封包, 文本型
.局部變量 a, 整數(shù)型
.局部變量 b, 整數(shù)型
.局部變量 ls, 文本型
.如果真 (尋找文本 (封包, “[]”, , 假) ≠ -1 或 尋找文本 (封包, “head”, , 假) ≠ -1 或 封包 ＝ “”)
  輸出調(diào)試文本 (封包)
  返回 (“”)
.如果真結(jié)束
a ＝ 尋找文本 (封包, “[”, , 假)
.如果真 (a ≠ -1)
  a ＝ a ＋ 2
  b ＝ 倒找文本 (封包, “]”, , 假)
  .如果真 (b ≠ -1)
    b ＝ b － 1
    ls ＝ 取文本中間 (封包, a, b － a)
    ls ＝ 子文本替換 (ls, #引號(hào) ＋ “,” ＋ #引號(hào), “\u000d\u000a”, , , 真)
  .如果真結(jié)束
.如果真結(jié)束
返回 (asciiConvertNative (ls))
.子程序 asciiConvertNative, 文本型, , 將Ucs2碼轉(zhuǎn)換為Ansi碼 (返回轉(zhuǎn)換后的文本)
.參數(shù) 文本, 文本型, , 欲轉(zhuǎn)換的Ucs2碼
.局部變量 p, 文本型
.局部變量 對(duì)象, 對(duì)象
.局部變量 js, 文本型
js ＝ “function asciiConvertNative(s) {” ＋ #換行符 ＋ “var asciicode = s.split(” ＋ #引號(hào) ＋ “\\u” ＋ #引號(hào) ＋ “);” ＋ #換行符 ＋ “var nativeValue = asciicode[0];” ＋ #換行符 ＋ “for (var i = 1; i < asciicode.length; i++) {” ＋ #換行符 ＋ “var code = asciicode[i];” ＋ #換行符 ＋ “nativeValue += String.fromCharCode(parseInt(” ＋ #引號(hào) ＋ “0x” ＋ #引號(hào) ＋ “ + code.substring(0, 4)));” ＋ #換行符 ＋ “if (code.length > 4) {” ＋ #換行符 ＋ “nativeValue += code.substring(4, code.length);” ＋ #換行符 ＋ “}” ＋ #換行符 ＋ “}” ＋ #換行符 ＋ “return nativeValue;” ＋ #換行符 ＋ “}”
對(duì)象.創(chuàng)建 (“ScriptControl”, )
對(duì)象.寫(xiě)屬性 (“Language”, “JScript”)
對(duì)象.通用方法 (“Eval”, js)
p ＝ 對(duì)象.通用方法 (“Run”, “asciiConvertNative”, 文本, , , , ).取文本 ()
返回 (p)
.子程序 彗星URL編碼, 文本型, , 返回已編碼的URL
.參數(shù) Bin_URL, 文本型
.局部變量 局部_數(shù)據(jù), 字節(jié)集
.局部變量 i, 整數(shù)型
.局部變量 ii, 文本型
局部_數(shù)據(jù) ＝ 到字節(jié)集 (Bin_URL)
.計(jì)次循環(huán)首 (取字節(jié)集長(zhǎng)度 (局部_數(shù)據(jù)), i)
  .如果 (到整數(shù) (局部_數(shù)據(jù) [i]) ≥ 48 且 到整數(shù) (局部_數(shù)據(jù) [i]) ≤ 57 或 到整數(shù) (局部_數(shù)據(jù) [i]) ≥ 65 且 到整數(shù) (局部_數(shù)據(jù) [i]) ≤ 90 或 到整數(shù) (局部_數(shù)據(jù) [i]) ≥ 65 且 到整數(shù) (局部_數(shù)據(jù) [i]) ≤ 90 或 到整數(shù) (局部_數(shù)據(jù) [i]) ≥ 97 且 到整數(shù) (局部_數(shù)據(jù) [i]) ≤ 122)
    ii ＝ ii ＋ 字符 (局部_數(shù)據(jù) [i])
  .否則
    ii ＝ ii ＋ “%” ＋ 取十六進(jìn)制文本 (局部_數(shù)據(jù) [i])
  .如果結(jié)束
.計(jì)次循環(huán)尾 ()
返回 (ii)
.子程序 Base64編碼, 文本型, , BASE64編碼處理(返回編碼后的文本)
.參數(shù) 待編碼數(shù)據(jù), 字節(jié)集, , 待編碼字節(jié)集
.局部變量 余數(shù)
.局部變量 臨時(shí), 字節(jié)型, , "3"
.局部變量 變量
.局部變量 集合, 字節(jié)集
.局部變量 長(zhǎng)度, 整數(shù)型
.局部變量 字符, 字節(jié)集
.局部變量 i
長(zhǎng)度 ＝ 取字節(jié)集長(zhǎng)度 (待編碼數(shù)據(jù))
.如果真 (長(zhǎng)度 ＜ 1)
  返回 (“”)
.如果真結(jié)束
余數(shù) ＝ 長(zhǎng)度 ％ 3
.如果真 (余數(shù) ＞ 0)
  待編碼數(shù)據(jù) ＝ 待編碼數(shù)據(jù) ＋ 取空白字節(jié)集 (3 － 余數(shù))
.如果真結(jié)束
長(zhǎng)度 ＝ 取字節(jié)集長(zhǎng)度 (待編碼數(shù)據(jù))
字符 ＝ 取空白字節(jié)集 (長(zhǎng)度 × 4 ÷ 3)
i ＝ 1
集合 ＝ 到字節(jié)集 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”)
.變量循環(huán)首 (1, 長(zhǎng)度, 3, 變量)
  臨時(shí) [1] ＝ 待編碼數(shù)據(jù) [變量]
  臨時(shí) [2] ＝ 待編碼數(shù)據(jù) [變量 ＋ 1]
  臨時(shí) [3] ＝ 待編碼數(shù)據(jù) [變量 ＋ 2]
  字符 [i] ＝ 集合 [右移 (臨時(shí) [1], 2) ＋ 1]
  字符 [i ＋ 1] ＝ 集合 [左移 (位與 (臨時(shí) [1], 3), 4) ＋ 右移 (臨時(shí) [2], 4) ＋ 1]
  字符 [i ＋ 2] ＝ 集合 [左移 (位與 (臨時(shí) [2], 15), 2) ＋ 右移 (臨時(shí) [3], 6) ＋ 1]
  字符 [i ＋ 3] ＝ 集合 [位與 (臨時(shí) [3], 63) ＋ 1]
  i ＝ i ＋ 4
.變量循環(huán)尾 ()
.如果真 (余數(shù) ＞ 0)
  長(zhǎng)度 ＝ 取字節(jié)集長(zhǎng)度 (字符)
  .如果 (余數(shù) ＝ 1)
    字符 [長(zhǎng)度 － 1] ＝ 取代碼 (“=”, )
    字符 [長(zhǎng)度] ＝ 取代碼 (“=”, )
  .否則
    字符 [長(zhǎng)度] ＝ 取代碼 (“=”, )
  .如果結(jié)束
.如果真結(jié)束
返回 (到文本 (字符))

.版本 2
.支持庫(kù) shell
.支持庫(kù) iext
.程序集 窗口程序集_啟動(dòng)窗口
.程序集變量 微信句柄, 整數(shù)型
.程序集變量 阿信, 類(lèi)_識(shí)圖
.程序集變量 handwork, 整數(shù)型
.程序集變量 總收入, 整數(shù)型
.程序集變量 領(lǐng)包回復(fù), 文本型
.程序集變量 自動(dòng)回復(fù), 文本型
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
.如果真 (文件是否存在 (取特定目錄 (#系統(tǒng)桌面) ＋ “Config.ini”) ＝ 假)
  寫(xiě)配置項(xiàng) (取特定目錄 (#系統(tǒng)桌面) ＋ “Config.ini”, “恭喜發(fā)財(cái)”, “領(lǐng)包回復(fù)”, “已確定收款，即將充值”)
  寫(xiě)配置項(xiàng) (取特定目錄 (#系統(tǒng)桌面) ＋ “Config.ini”, “恭喜發(fā)財(cái)”, “自動(dòng)回復(fù)”, “您好，有什么可以幫助您的”)
.如果真結(jié)束
' 讀取句柄
微信句柄 ＝ 進(jìn)程_名取句柄 (“WeChat.exe”)
handwork ＝ GetDesktopWindow ()
' 調(diào)試輸出 (微信句柄)
.如果真 (微信句柄 ＝ -1)
  選擇框1.選中 ＝ 假
.如果真結(jié)束
' 讀取配置
領(lǐng)包回復(fù) ＝ 讀配置項(xiàng) (取特定目錄 (#系統(tǒng)桌面) ＋ “Config.ini”, “恭喜發(fā)財(cái)”, “領(lǐng)包回復(fù)”, “已確定收款，即將充值”)
自動(dòng)回復(fù) ＝ 讀配置項(xiàng) (取特定目錄 (#系統(tǒng)桌面) ＋ “Config.ini”, “恭喜發(fā)財(cái)”, “自動(dòng)回復(fù)”, “您好，有什么可以幫助您的”)
.子程序 百度云OCR識(shí)別圖片, 文本型, , 論壇大佬轉(zhuǎn)載的帖子 忘記誰(shuí)了...
.參數(shù) 圖片, 字節(jié)集, , png、gif、jpg圖片，尺寸不宜過(guò)大
.局部變量 XML對(duì)象, 對(duì)象
.局部變量 源代碼, 字節(jié)集
.如果真 (XML對(duì)象.創(chuàng)建 (“Microsoft.XMLHTTP”, ) ＝ 假)
  返回 (“”)
.如果真結(jié)束
XML對(duì)象.方法 (“open”, “POST”, “http://biji.baidu.com/inotes/api/hackathonocr”, 假, )
XML對(duì)象.方法 (“setRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
XML對(duì)象.方法 (“send”, “text=data%3Aimage%2Fpng%3Bbase64%2CiVBORw0KGg&sig=47E%2BgkykZJ8HIncF%2BXugDwalZmI2mtP%2F3jy6nVZNCDUAAAAAAAAAAAAAAAAAAAAA&body=data%3Aimage%2Fpng%3Bbase64%2C” ＋ 彗星URL編碼 (Base64編碼 (圖片)))
處理事件 ()
返回 (取內(nèi)容 (XML對(duì)象.讀文本屬性 (“responseText”, )))
.子程序 備注識(shí)別, , , 備注識(shí)別備注識(shí)別備注識(shí)別
.局部變量 返回位置_備注, 精易_坐標(biāo)
.局部變量 區(qū)域截圖_備注, 字節(jié)集
.局部變量 返回文本_備注, 文本型
.如果真 (選擇框2.選中 ＝ 真)
  ' 首次激活自動(dòng)回復(fù)
  剪輯板_置文本 (自動(dòng)回復(fù))
  鍵盤(pán)_組合按鍵 (#V鍵, #Ctrl鍵, , )
  鍵盤(pán)_單擊 (#回車(chē)鍵, 1)
  處理事件 ()
  鍵盤(pán)_單擊 (#回車(chē)鍵, 1)
.如果真結(jié)束
.如果真 (選擇框3.選中 ＝ 真)
  播放音樂(lè) (#提示音, )
.如果真結(jié)束
' 截圖
返回位置_備注 ＝ 阿信.找圖_從句柄 (, #備注標(biāo)識(shí), , )
區(qū)域截圖_備注 ＝ 圖片_屏幕區(qū)域截圖 (返回位置_備注.橫 ＋ 50, 返回位置_備注.縱 － 15, 180, 30)
圖片框1.圖片 ＝ 區(qū)域截圖_備注
' Ocr識(shí)別
返回文本_備注 ＝ 百度云OCR識(shí)別圖片 (區(qū)域截圖_備注)
返回文本_備注 ＝ 子文本替換 (返回文本_備注, “,”, “”, , , 真)
返回文本_備注 ＝ 子文本替換 (返回文本_備注, “!”, “”, , , 真)
返回文本_備注 ＝ 刪全部空 (返回文本_備注)
' 調(diào)試輸出 (返回文本_備注)
編輯框1.內(nèi)容 ＝ 返回文本_備注
.子程序 _按鈕1_被單擊
.局部變量 索引, 整數(shù)型
.局部變量 int, 整數(shù)型
.局部變量 金額, 整數(shù)型
.如果真 (編輯框1.內(nèi)容 ≠ “暫無(wú)消息” 且 編輯框2.內(nèi)容 ≠ “暫無(wú)轉(zhuǎn)賬”)
  ' 置剪輯版
  .如果 (選擇框5.選中 ＝ 真)
    剪輯板_置文本 (編輯框1.內(nèi)容)
  .否則
    剪輯板_置文本 (編輯框1.內(nèi)容 ＋ “-” ＋ 編輯框2.內(nèi)容)
  .如果結(jié)束
  ' 加入超級(jí)列表框
  索引 ＝ 超級(jí)列表框1.插入表項(xiàng) (-1, 編輯框1.內(nèi)容, , , , )
  超級(jí)列表框1.置標(biāo)題 (索引, 1, 編輯框2.內(nèi)容)
  超級(jí)列表框1.置標(biāo)題 (索引, 2, 時(shí)間_到文本 (, 3, ))
  ' 計(jì)算總收入
  總收入 ＝ 總收入 ＋ 到整數(shù) (編輯框2.內(nèi)容)
  標(biāo)簽4.標(biāo)題 ＝ “已收轉(zhuǎn)賬數(shù)：” ＋ 到文本 (超級(jí)列表框1.取表項(xiàng)數(shù) ()) ＋ “ | 總金額:” ＋ 到文本 (總收入)
  時(shí)鐘1.時(shí)鐘周期 ＝ 2000
  時(shí)鐘2.時(shí)鐘周期 ＝ 6000
.如果真結(jié)束
.子程序 轉(zhuǎn)賬識(shí)別, , , 轉(zhuǎn)賬識(shí)別轉(zhuǎn)賬識(shí)別轉(zhuǎn)賬識(shí)別
.局部變量 區(qū)域截圖_金額, 字節(jié)集
.局部變量 返回文本_金額, 文本型
.局部變量 返回位置_金額, 精易_坐標(biāo)
.局部變量 確認(rèn)收錢(qián)_位置, 精易_坐標(biāo)
.局部變量 聊天框_坐標(biāo), 精易_坐標(biāo)
返回位置_金額 ＝ 阿信.找圖_從句柄 (, #轉(zhuǎn)賬標(biāo)識(shí), , )
處理事件 ()
程序_延時(shí) (200)
區(qū)域截圖_金額 ＝ 圖片_屏幕區(qū)域截圖 (返回位置_金額.橫 ＋ 46, 返回位置_金額.縱, 150, 30)
' 寫(xiě)到文件 (取特定目錄 (#系統(tǒng)桌面) ＋ “1.jpg”, 區(qū)域截圖)
圖片框2.圖片 ＝ 區(qū)域截圖_金額
返回文本_金額 ＝ 百度云OCR識(shí)別圖片 (區(qū)域截圖_金額)
程序_延時(shí) (500)
' 點(diǎn)擊轉(zhuǎn)賬
鼠標(biāo)_單擊 (handwork, 返回位置_金額.橫, 返回位置_金額.縱, 1)
' 調(diào)試輸出 (“返回位置”, 返回位置_金額.縱)
處理事件 ()
程序_延時(shí) (500)
確認(rèn)收錢(qián)_位置 ＝ 阿信.找圖_從句柄 (, #確認(rèn)收錢(qián), , )
處理事件 ()
程序_延時(shí) (1000)
' 調(diào)試輸出 (“確認(rèn)收錢(qián)”, 確認(rèn)收錢(qián)_位置.橫)
.如果 (確認(rèn)收錢(qián)_位置.橫 ≠ -1)
  ' 點(diǎn)擊收錢(qián)
  鼠標(biāo)_單擊 (handwork, 確認(rèn)收錢(qián)_位置.橫, 確認(rèn)收錢(qián)_位置.縱, 1)
  程序_延時(shí) (500)
  處理事件 ()
  鍵盤(pán)_單擊 (#Esc鍵, 1)
  處理事件 ()
  程序_延時(shí) (1000)
.否則
  鍵盤(pán)_單擊 (#Esc鍵, 1)
  處理事件 ()
  程序_延時(shí) (1000)
.如果結(jié)束
.如果真 (選擇框4.選中 ＝ 真)
  ' 領(lǐng)包回復(fù)
  聊天框_坐標(biāo) ＝ 阿信.找圖_從句柄 (, #聊天框, , )
  程序_延時(shí) (500)
  ' 調(diào)試輸出 (“聊天框”, 聊天框_坐標(biāo).橫)
  鼠標(biāo)_單擊 (handwork, 聊天框_坐標(biāo).橫, 聊天框_坐標(biāo).縱 ＋ 20, 1)
  程序_延時(shí) (500)
  剪輯板_置文本 (領(lǐng)包回復(fù))
  鍵盤(pán)_組合按鍵 (#V鍵, #Ctrl鍵, , )
  程序_延時(shí) (500)
  鍵盤(pán)_單擊 (#回車(chē)鍵, 1)
  處理事件 ()
.如果真結(jié)束
.如果真 (取文本左邊 (返回文本_金額, 2) ＝ “00”)
  返回文本_金額 ＝ “0.0” ＋ 取文本右邊 (返回文本_金額, 1)
  編輯框2.內(nèi)容 ＝ 返回文本_金額
  返回 ()
.如果真結(jié)束
返回文本_金額 ＝ 取文本左邊 (返回文本_金額, 取文本長(zhǎng)度 (返回文本_金額) － 2)
編輯框2.內(nèi)容 ＝ 返回文本_金額
.子程序 _時(shí)鐘2_周期事件
.局部變量 返回位置_金額, 精易_坐標(biāo)
返回位置_金額 ＝ 阿信.找圖_從句柄 (, #轉(zhuǎn)賬標(biāo)識(shí), , )
.如果真 (返回位置_金額.橫 ＝ -1 且 返回位置_金額.縱 ＝ -1)
  編輯框2.內(nèi)容 ＝ “暫無(wú)轉(zhuǎn)賬”
  返回 ()
.如果真結(jié)束
轉(zhuǎn)賬識(shí)別 ()
時(shí)鐘2.時(shí)鐘周期 ＝ 0
.子程序 _時(shí)鐘1_周期事件, , , 監(jiān)控消息識(shí)別備注
.局部變量 返回位置_消息, 精易_坐標(biāo)
返回位置_消息 ＝ 阿信.找圖_從句柄 (, #消息標(biāo)識(shí), , )
' 鼠標(biāo)_移動(dòng) (, 返回位置.橫, 返回位置.縱)
' 調(diào)試輸出 (“消息標(biāo)識(shí)符”, 返回位置_消息.橫, 返回位置_消息.縱)
.如果真 (返回位置_消息.橫 ＝ -1 且 返回位置_消息.縱 ＝ -1)
  返回 ()
.如果真結(jié)束
鼠標(biāo)_單擊 (handwork, 返回位置_消息.橫, 返回位置_消息.縱, 1)
備注識(shí)別 ()
時(shí)鐘1.時(shí)鐘周期 ＝ 0
.子程序 _標(biāo)簽3_鼠標(biāo)左鍵被放開(kāi), 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.局部變量 錯(cuò)誤率, 整數(shù)型
信息框 (“本程序調(diào)用百度OCR文字智能識(shí)別技術(shù)” ＋ #換行符 ＋ “如果識(shí)別出現(xiàn)錯(cuò)誤，建議備注名中加上空格” ＋ #換行符 ＋ “比如：原備注名為 mx666 則改為 m x 6 6 6”, 0 ＋ #信息圖標(biāo), “提示：面向未來(lái)”)
.子程序 _時(shí)鐘3_周期事件
.局部變量 微信位置, 精易_矩形
.如果真 (微信句柄 ＝ -1)
  選擇框1.選中 ＝ 假
.如果真結(jié)束
.如果真 (選擇框1.選中 ＝ 真)
  .如果真 (選擇框1.選中 ＝ 真)
    微信位置 ＝ 窗口_取矩形 (微信句柄)
    移動(dòng) (微信位置.右邊 － 10, 微信位置.頂邊 ＋ 24, , )
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _選擇框1_鼠標(biāo)左鍵被放開(kāi), 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.如果真 (微信句柄 ＝ -1)
  選擇框1.選中 ＝ 假
  信息框 (“檢測(cè)到您并沒(méi)有打開(kāi)微信” ＋ #換行符 ＋ “請(qǐng)先打開(kāi)微信”, 0, “提示：您好”)
.如果真結(jié)束
.子程序 __啟動(dòng)窗口_將被銷(xiāo)毀
.局部變量 時(shí)間, 文本型
.局部變量 文件號(hào), 整數(shù)型
.局部變量 int, 整數(shù)型
.局部變量 文本, 文本型
.如果 (信息框 (“您好” ＋ #換行符 ＋ “是否導(dǎo)出列表框金額相關(guān)數(shù)據(jù)?” ＋ #換行符 ＋ “點(diǎn)擊是表示生成配置并導(dǎo)出，否則直接結(jié)束”, #是否鈕 ＋ #詢(xún)問(wèn)圖標(biāo), “提示：是否導(dǎo)出數(shù)據(jù)”) ＝ #是鈕)
  時(shí)間 ＝ 到文本 (取現(xiàn)行時(shí)間 ())
  寫(xiě)到文件 (取特定目錄 (#系統(tǒng)桌面) ＋ 時(shí)間 ＋ “.txt”, 到字節(jié)集 (“”))
  文件號(hào) ＝ 打開(kāi)文件 (取特定目錄 (#系統(tǒng)桌面) ＋ 時(shí)間 ＋ “.txt”, , )
  .計(jì)次循環(huán)首 (超級(jí)列表框1.取表項(xiàng)數(shù) (), int)
    文本 ＝ 超級(jí)列表框1.取標(biāo)題 (int － 1, 0) ＋ “-” ＋ 超級(jí)列表框1.取標(biāo)題 (int － 1, 1) ＋ “-” ＋ 超級(jí)列表框1.取標(biāo)題 (int － 1, 2)
    寫(xiě)文本行 (文件號(hào), 文本)
  .計(jì)次循環(huán)尾 ()
  關(guān)閉文件 (文件號(hào))
.否則
  結(jié)束 ()
.如果結(jié)束
.子程序 _監(jiān)控消息_被選擇
.局部變量 time, 整數(shù)型
.如果真 (監(jiān)控消息.選中 ＝ 真)
  監(jiān)控消息.選中 ＝ 假
  信息框 (“已撤銷(xiāo)監(jiān)控消息”, 0, “提示：成功”)
  時(shí)鐘1.時(shí)鐘周期 ＝ 0
  返回 ()
.如果真結(jié)束
.如果真 (監(jiān)控消息.選中 ＝ 假)
  監(jiān)控消息.選中 ＝ 真
  .如果真 (Ms2000.選中 ＝ 真)
    time ＝ 2000
    時(shí)鐘1.時(shí)鐘周期 ＝ time
    信息框 (“已開(kāi)啟監(jiān)控消息,” ＋ “時(shí)鐘周期為” ＋ 到文本 (time), 0, “提示：成功”)
    返回 ()
  .如果真結(jié)束
  .如果真 (Ms3500.選中 ＝ 真)
    time ＝ 3500
    時(shí)鐘1.時(shí)鐘周期 ＝ time
    信息框 (“已開(kāi)啟監(jiān)控消息,” ＋ “時(shí)鐘周期為” ＋ 到文本 (time), 0, “提示：成功”)
    返回 ()
  .如果真結(jié)束
  .如果真 (Ms4900.選中 ＝ 真)
    time ＝ 4900
    時(shí)鐘1.時(shí)鐘周期 ＝ time
    信息框 (“已開(kāi)啟監(jiān)控消息,” ＋ “時(shí)鐘周期為” ＋ 到文本 (time), 0, “提示：成功”)
    返回 ()
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _Ms3500_被選擇
Ms3500.選中 ＝ 真
Ms2000.選中 ＝ 假
Ms4900.選中 ＝ 假
時(shí)鐘1.時(shí)鐘周期 ＝ 3500
.子程序 _監(jiān)控轉(zhuǎn)賬_被選擇
.局部變量 TIME, 整數(shù)型
.如果真 (監(jiān)控轉(zhuǎn)賬.選中 ＝ 真)
  監(jiān)控轉(zhuǎn)賬.選中 ＝ 假
  信息框 (“已撤銷(xiāo)監(jiān)控轉(zhuǎn)賬”, 0, “提示：成功”)
  時(shí)鐘2.時(shí)鐘周期 ＝ 0
  返回 ()
.如果真結(jié)束
.如果真 (監(jiān)控轉(zhuǎn)賬.選中 ＝ 假)
  監(jiān)控轉(zhuǎn)賬.選中 ＝ 真
  .如果真 (Ms5000.選中 ＝ 真)
    TIME ＝ 5000
    時(shí)鐘2.時(shí)鐘周期 ＝ TIME
    信息框 (“已開(kāi)啟監(jiān)控轉(zhuǎn)賬,” ＋ “時(shí)鐘周期為” ＋ 到文本 (TIME), 0, “提示：成功”)
    返回 ()
  .如果真結(jié)束
  .如果真 (Ms6000.選中 ＝ 真)
    TIME ＝ 6000
    時(shí)鐘2.時(shí)鐘周期 ＝ TIME
    信息框 (“已開(kāi)啟監(jiān)控轉(zhuǎn)賬,” ＋ “時(shí)鐘周期為” ＋ 到文本 (TIME), 0, “提示：成功”)
    返回 ()
  .如果真結(jié)束
  .如果真 (Ms7000.選中 ＝ 真)
    TIME ＝ 7000
    時(shí)鐘2.時(shí)鐘周期 ＝ TIME
    信息框 (“已開(kāi)啟監(jiān)控轉(zhuǎn)賬,” ＋ “時(shí)鐘周期為” ＋ 到文本 (TIME), 0, “提示：成功”)
    返回 ()
  .如果真結(jié)束
.如果真結(jié)束
.子程序 _Ms2000_被選擇
Ms2000.選中 ＝ 真
Ms3500.選中 ＝ 假
Ms4900.選中 ＝ 假
時(shí)鐘1.時(shí)鐘周期 ＝ 2000
.子程序 _Ms4900_被選擇
Ms4900.選中 ＝ 真
Ms2000.選中 ＝ 假
Ms3500.選中 ＝ 假
時(shí)鐘1.時(shí)鐘周期 ＝ 4900
.子程序 _Ms5000_被選擇
Ms5000.選中 ＝ 真
Ms6000.選中 ＝ 假
Ms7000.選中 ＝ 假
時(shí)鐘2.時(shí)鐘周期 ＝ 5000
.子程序 _Ms6000_被選擇
Ms5000.選中 ＝ 假
Ms6000.選中 ＝ 真
Ms7000.選中 ＝ 假
時(shí)鐘2.時(shí)鐘周期 ＝ 6000
.子程序 _Ms7000_被選擇
Ms5000.選中 ＝ 假
Ms6000.選中 ＝ 假
Ms7000.選中 ＝ 真
時(shí)鐘2.時(shí)鐘周期 ＝ 7000
.子程序 _Ms200_被選擇
Ms200.選中 ＝ 真
Ms500.選中 ＝ 假
Ms1000.選中 ＝ 假
時(shí)鐘3.時(shí)鐘周期 ＝ 200
.子程序 _Ms500_被選擇
Ms200.選中 ＝ 假
Ms500.選中 ＝ 真
Ms1000.選中 ＝ 假
時(shí)鐘3.時(shí)鐘周期 ＝ 500
.子程序 _Ms1000_被選擇
Ms200.選中 ＝ 假
Ms500.選中 ＝ 假
Ms1000.選中 ＝ 真
時(shí)鐘3.時(shí)鐘周期 ＝ 1000