快捷導(dǎo)航

易語(yǔ)言實(shí)現(xiàn)截圖或右鍵二維碼識(shí)別的代碼

更新時(shí)間：2018年11月24日 16:18:48 作者：易語(yǔ)言源碼貝貝吧

今天小編就為大家分享一篇關(guān)于易語(yǔ)言實(shí)現(xiàn)截圖或右鍵二維碼識(shí)別的代碼，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧

DLL命令表

.版本 2
.DLL命令 DecodePictureFile, 整數(shù)型, "PsyQrDcd", "DecodePictureFile"
  .參數(shù) strFilePath, 文本型
.DLL命令 DecodePictureFileRect, 整數(shù)型, "PsyQrDcd", "DecodePictureFileRect"
  .參數(shù) strFilePath, 文本型
  .參數(shù) lngLeftX, 整數(shù)型
  .參數(shù) lngTopY, 整數(shù)型
  .參數(shù) lngRightX, 整數(shù)型
  .參數(shù) lngBottomY, 整數(shù)型
.DLL命令 DecodeGrayScaleArray, 整數(shù)型, "PsyQrDcd", "DecodeGrayScaleArray"
  .參數(shù) byData, 字節(jié)型, 傳址
  .參數(shù) lngWidth, 整數(shù)型
  .參數(shù) lngHeight, 整數(shù)型
.DLL命令 DecodeBinaryArray, 整數(shù)型, "PsyQrDcd", "DecodeBinaryArray"
  .參數(shù) byData, 字節(jié)型, 傳址
  .參數(shù) lngWidth, 整數(shù)型
  .參數(shù) lngHeight, 整數(shù)型
.DLL命令 GetDecodeDataString, 文本型, "PsyQrDcd", "GetDecodeDataString"
  .參數(shù) lngIndex, 整數(shù)型
.DLL命令 GetDecodeDataByteArray, 整數(shù)型, "PsyQrDcd", "GetDecodeDataByteArray"
  .參數(shù) lngIndex, 整數(shù)型
.DLL命令 GetDecodeVersion, 整數(shù)型, "PsyQrDcd", "GetDecodeVersion"
  .參數(shù) lngIndex, 整數(shù)型
.DLL命令 GetDecodeLevel, 整數(shù)型, "PsyQrDcd", "GetDecodeLevel"
  .參數(shù) lngIndex, 整數(shù)型
.DLL命令 GetDecodeMaskingNo, 整數(shù)型, "PsyQrDcd", "GetDecodeMaskingNo"
  .參數(shù) lngIndex, 整數(shù)型
.DLL命令 GetConcatenationInfo, 整數(shù)型, "PsyQrDcd", "GetConcatenationInfo"
  .參數(shù) lngIndex, 整數(shù)型
  .參數(shù) lngSeqNo, 整數(shù)型, 傳址
  .參數(shù) byCheckDigit, 字節(jié)型, 傳址
.DLL命令 GetSymbolePosition, 整數(shù)型, "PsyQrDcd", "GetSymbolePosition"
  .參數(shù) lngIndex, 整數(shù)型
  .參數(shù) lngPosition, 整數(shù)型, 傳址
.DLL命令 SetDecodeSymbolCount, , "PsyQrDcd", "SetDecodeSymbolCount"
  .參數(shù) lngCount, 整數(shù)型
.DLL命令 SetDecodeEffectLevel, , "PsyQrDcd", "SetDecodeEffectLevel"
  .參數(shù) lngLevel, 整數(shù)型
.DLL命令 SetBrightnessBorder, , "PsyQrDcd", "SetBrightnessBorder"
  .參數(shù) byBorder, 字節(jié)型
.DLL命令 SetMinimumModuleSize, , "PsyQrDcd", "SetMinimumModuleSize"
  .參數(shù) bySize, 字節(jié)型
.DLL命令 FreeAllocateMemory, , "PsyQrDcd", "FreeAllocateMemory"
.DLL命令 API_MultiByteToWideChar_utf8, 整數(shù)型, , "MultiByteToWideChar"
  .參數(shù) CodePage, 整數(shù)型
  .參數(shù) dwFlags, 整數(shù)型
  .參數(shù) lpMultiByteStr, 字節(jié)集
  .參數(shù) cchMultiByte, 整數(shù)型
  .參數(shù) lpWideCharStr, 字節(jié)集
  .參數(shù) cchWideChar, 整數(shù)型
.DLL命令 API_WideCharToMultiByte_utf8, 整數(shù)型, "kernel32", "WideCharToMultiByte", , 將通配符映像為多字節(jié)
  .參數(shù) CodePage, 整數(shù)型
  .參數(shù) dwFlags, 整數(shù)型
  .參數(shù) lpWideCharStr, 字節(jié)集
  .參數(shù) cchWideChar, 整數(shù)型
  .參數(shù) lpMultiByteStr, 字節(jié)集
  .參數(shù) cchMultiByte, 整數(shù)型
  .參數(shù) lpDefaultChar, 整數(shù)型
  .參數(shù) lpUsedDefaultChar, 整數(shù)型
.DLL命令 API_WideCharToMultiByte, 整數(shù)型, "kernel32", "WideCharToMultiByte", , 將通配符映像為多字節(jié)
  .參數(shù) CodePage, 整數(shù)型
  .參數(shù) dwFlags, 整數(shù)型
  .參數(shù) lpWideCharStr, 字節(jié)集
  .參數(shù) cchWideChar, 整數(shù)型
  .參數(shù) lpMultiByteStr, 文本型
  .參數(shù) cchMultiByte, 整數(shù)型
  .參數(shù) lpDefaultChar, 文本型
  .參數(shù) lpUsedDefaultChar, 整數(shù)型
.DLL命令 CreateWaitableTimerA, 整數(shù)型, , "CreateWaitableTimerA", 公開(kāi), CreateWaitableTimerA 程序延時(shí)
  .參數(shù) lpTimerAttributes, 整數(shù)型
  .參數(shù) bManualReset, 邏輯型
  .參數(shù) lpTimerName, 整數(shù)型
.DLL命令 SetWaitableTimer, 整數(shù)型, , "SetWaitableTimer", 公開(kāi), SetWaitableTimer
  .參數(shù) hTimer, 整數(shù)型
  .參數(shù) pDueTime, 程序延時(shí)
  .參數(shù) lPeriod, 整數(shù)型
  .參數(shù) pfnCompletionRoutine, 整數(shù)型
  .參數(shù) lpArgToCompletionRoutine, 整數(shù)型
  .參數(shù) fResume, 邏輯型
.DLL命令 MsgWaitForMultipleObjects, 整數(shù)型, , "MsgWaitForMultipleObjects", 公開(kāi), MsgWaitForMultipleObjects
  .參數(shù) nCount, 整數(shù)型
  .參數(shù) pHandles, 整數(shù)型, 傳址
  .參數(shù) fWaitAll, 邏輯型
  .參數(shù) dwMilliseconds, 整數(shù)型
  .參數(shù) dwWakeMask, 整數(shù)型
.DLL命令 CloseHandle, 邏輯型, "kernel32", "CloseHandle", 公開(kāi), CloseHandle關(guān)閉一個(gè)內(nèi)核對(duì)象。其中包括文件、文件映射、進(jìn)程、線(xiàn)程、安全和同步對(duì)象等。涉及文件處理時(shí)，這個(gè)函數(shù)通常與vb的close命令相似。應(yīng)盡可能的使用close，因?yàn)樗С講b的差錯(cuò)控制。注意這個(gè)函數(shù)使用的文件句柄與vb的文件編號(hào)是完全不同的 非零表示成功，零表示失敗。會(huì)設(shè)置GetLastError
  .參數(shù) 對(duì)象句柄, 整數(shù)型, , 欲關(guān)閉的一個(gè)對(duì)象的句柄;
.DLL命令 GetInputState, 整數(shù)型, "user32", "GetInputState", 公開(kāi), 用法,如果真(我的處理事件()≠0),處理事件()  比系統(tǒng)自帶的"處理事件"比3倍以上

自定義數(shù)據(jù)類(lèi)型

.版本 2
.數(shù)據(jù)類(lèi)型 程序延時(shí)
  .成員 成員_時(shí)間, 長(zhǎng)整數(shù)型, , , 占用8個(gè)字節(jié)

全局變量表

.版本 2
.支持庫(kù) BmpOperate
.全局變量 a, 字節(jié)集
.全局變量 x
.全局變量 y
.全局變量 s, 邏輯型
.全局變量 動(dòng)畫(huà)物體1
.全局變量 動(dòng)畫(huà)物體2
.全局變量 w, 位圖
.全局變量 w1, 位圖
.全局變量 解碼結(jié)果, 文本型

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

.版本 2
.常量 QRD_ERROR_SYMBLE_NOT_FOUND, "0"
.常量 QRD_ERROR_FILE_NOT_FOUND, "-1"
.常量 QRD_ERROR_READ_FAULT, "-2"
.常量 QRD_ERROR_BAD_FORMAT, "-3"
.常量 QRD_ERROR_SHARING_VIOLATION, "-4"
.常量 QRD_ERROR_NOT_ENOUGH_MEMORY, "-5"
.常量 常量1
.常量 常量2, "“"C:\Users\Administrator\Desktop\二維碼讀取\qrcode.exe" "%1"”"

截圖程序集的代碼

.版本 2
.支持庫(kù) iext2
.支持庫(kù) BmpOperate
.支持庫(kù) exui
.程序集 截圖窗口程序集
.子程序 _截圖窗口_創(chuàng)建完畢
截圖動(dòng)畫(huà)物體.趨向色 ＝ #灰色
截圖動(dòng)畫(huà)物體.趨向程度 ＝ 50
動(dòng)畫(huà)物體1 ＝ 背景動(dòng)畫(huà)框.創(chuàng)建物體 (截圖動(dòng)畫(huà)物體, 0, 0, 真, )
動(dòng)畫(huà)物體2 ＝ 背景動(dòng)畫(huà)框.創(chuàng)建物體 (動(dòng)畫(huà)物體2, 0, 0, 真, )
a ＝ 快照 (, , )
背景動(dòng)畫(huà)框.置圖片 (動(dòng)畫(huà)物體1, a, )
w.載入數(shù)據(jù) (a)
截圖窗口.移動(dòng) (0, 0, 取屏幕寬度 (), 取屏幕高度 ())
背景動(dòng)畫(huà)框.移動(dòng) (0, 0, 截圖窗口.寬度, 截圖窗口.高度)
截圖窗口.可視 ＝ 真
.子程序 _背景動(dòng)畫(huà)框_鼠標(biāo)左鍵被按下, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
s ＝ 真
x ＝ 橫向位置
y ＝ 縱向位置
.子程序 _背景動(dòng)畫(huà)框_鼠標(biāo)左鍵被放開(kāi), 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
s ＝ 假
.如果真 (寫(xiě)到文件 (取運(yùn)行目錄 () ＋ “\2wm.bmp”, w1.取位圖數(shù)據(jù) ()))
  截圖窗口.可視 ＝ 假
  解碼結(jié)果 ＝ 解碼 (取運(yùn)行目錄 () ＋ “\2wm.bmp”)
  _啟動(dòng)窗口.主窗口.可視EX ＝ 真
  _啟動(dòng)窗口.激活 ()
  顯示信息 (解碼結(jié)果)
.如果真結(jié)束
銷(xiāo)毀 ()
.子程序 _背景動(dòng)畫(huà)框_鼠標(biāo)位置被移動(dòng), 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
.局部變量 x1
.局部變量 y1
.局部變量 c, 整數(shù)型
.如果真 (s)
  x1 ＝ 橫向位置 － x
  y1 ＝ 縱向位置 － y
  .如果真 (x1 ＜ 1)
    x1 ＝ 0
  .如果真結(jié)束
  .如果真 (y1 ＜ 1)
    y1 ＝ 0
  .如果真結(jié)束
  w1.創(chuàng)建 (x1, y1, 24, #白色)
  w.復(fù)制到 (x, y, x1, y1, w1, 0, 0, )
  .計(jì)次循環(huán)首 (x1, c)
    w1.置某點(diǎn)顏色 (c, 0, #紅色)
    w1.置某點(diǎn)顏色 (c, y1 － 1, #紅色)
  .計(jì)次循環(huán)尾 ()
  .計(jì)次循環(huán)首 (y1, c)
    w1.置某點(diǎn)顏色 (0, c, #紅色)
    w1.置某點(diǎn)顏色 (x1 － 1, c, #紅色)
  .計(jì)次循環(huán)尾 ()
  背景動(dòng)畫(huà)框.置物體位置 (動(dòng)畫(huà)物體2, x, y, )
  背景動(dòng)畫(huà)框.置圖片 (動(dòng)畫(huà)物體2, w1.取位圖數(shù)據(jù) (), )
.如果真結(jié)束

解碼程序集的代碼

.版本 2
.支持庫(kù) spec
.程序集 解碼程序集
.程序集變量 lngRectLeft, 整數(shù)型
.程序集變量 lngRectTop, 整數(shù)型
.程序集變量 lngRectRight, 整數(shù)型
.程序集變量 lngRectBottom, 整數(shù)型
.程序集變量 blnEnableSetRect, 邏輯型
.子程序 解碼, 文本型
.參數(shù) strFilePath, 文本型
.局部變量 intOldPointer, 整數(shù)型
.局部變量 lngResult, 整數(shù)型
.局部變量 strResult, 文本型
.局部變量 i, 整數(shù)型
.局部變量 lngCount, 整數(shù)型
.局部變量 lngSeqNo, 整數(shù)型
.局部變量 byCheckDigit, 字節(jié)型
.局部變量 lngPosition, 整數(shù)型, , "8"
.如果 (blnEnableSetRect)
  lngResult ＝ DecodePictureFileRect (strFilePath, lngRectLeft, lngRectTop, lngRectRight, lngRectBottom)
.否則
  lngResult ＝ DecodePictureFile (strFilePath)
.如果結(jié)束
.如果 (lngResult ≥ 1)
  .變量循環(huán)首 (0, lngResult － 1, 1, i)
    strResult ＝ strResult ＋ “——————————————————————” ＋ #換行符
    strResult ＝ strResult ＋ “已解碼數(shù)據(jù) ” ＋ 到文本 (i ＋ 1)
    strResult ＝ strResult ＋ “ [模型版本: ” ＋ 到文本 (GetDecodeVersion (i))
    strResult ＝ strResult ＋ “, 等級(jí): ”
    .判斷開(kāi)始 (GetDecodeLevel (i) ＝ 0)
      strResult ＝ strResult ＋ “L(7%)”
    .判斷 (GetDecodeLevel (i) ＝ 1)
      strResult ＝ strResult ＋ “M(15%)”
    .判斷 (GetDecodeLevel (i) ＝ 2)
      strResult ＝ strResult ＋ “Q(25%)”
    .判斷 (GetDecodeLevel (i) ＝ 3)
      strResult ＝ strResult ＋ “H(30%)”
    .默認(rèn)
    .判斷結(jié)束
    lngCount ＝ GetConcatenationInfo (i, lngSeqNo, byCheckDigit)
    .如果真 (lngCount ＞ 0)
      strResult ＝ strResult ＋ “, 綜合:” ＋ 到文本 (lngSeqNo ＋ 1) ＋ “/” ＋ 到文本 (lngCount)
      strResult ＝ strResult ＋ “(CD” ＋ 取十六進(jìn)制文本 (byCheckDigit ＼ 16) ＋ 取十六進(jìn)制文本 (byCheckDigit ％ 16) ＋ “H)”
    .如果真結(jié)束
    strResult ＝ strResult ＋ “]” ＋ #換行符
    strResult ＝ strResult ＋ “——————————————————————” ＋ #換行符
    調(diào)試輸出 (UTF8_轉(zhuǎn)_ANSI (到字節(jié)集 (GetDecodeDataString (i))))
    strResult ＝ strResult ＋ UTF8_轉(zhuǎn)_ANSI (到字節(jié)集 (GetDecodeDataString (i))) ＋ #換行符 ＋ #換行符
    lngResult ＝ GetSymbolePosition (i, lngPosition [1])
    strResult ＝ strResult ＋ “符號(hào)位置：” ＋ “(” ＋ 到文本 (lngPosition [1]) ＋ “, ” ＋ 到文本 (lngPosition [2]) ＋ “)-” ＋ “(” ＋ 到文本 (lngPosition [3]) ＋ “, ” ＋ 到文本 (lngPosition [4]) ＋ “)-” ＋ “(” ＋ 到文本 (lngPosition [5]) ＋ “, ” ＋ 到文本 (lngPosition [6]) ＋ “)-” ＋ “(” ＋ 到文本 (lngPosition [7]) ＋ “, ” ＋ 到文本 (lngPosition [8]) ＋ “)”
    strResult ＝ strResult ＋ #換行符 ＋ #換行符
  .變量循環(huán)尾 ()
  FreeAllocateMemory ()
.否則
  .判斷開(kāi)始 (lngResult ＝ #QRD_ERROR_SYMBLE_NOT_FOUND)
    strResult ＝ “未找到 QR 代碼符號(hào)。”
  .判斷 (lngResult ＝ #QRD_ERROR_FILE_NOT_FOUND)
    strResult ＝ “文件未找到！”
  .判斷 (lngResult ＝ #QRD_ERROR_READ_FAULT)
    strResult ＝ “讀取文件時(shí)發(fā)生錯(cuò)誤?！?
  .判斷 (lngResult ＝ #QRD_ERROR_BAD_FORMAT)
    strResult ＝ “無(wú)法讀取此格式文件?！?
  .判斷 (lngResult ＝ #QRD_ERROR_SHARING_VIOLATION)
    strResult ＝ “共享沖突，無(wú)法讀取文件?！?
  .判斷 (lngResult ＝ #QRD_ERROR_NOT_ENOUGH_MEMORY)
    strResult ＝ “內(nèi)存不足?！?
  .默認(rèn)
  .判斷結(jié)束
.如果結(jié)束
調(diào)試輸出 (strResult)
返回 (strResult)
.子程序 UTF8_轉(zhuǎn)_ANSI, 文本型, 公開(kāi)
.參數(shù) utf8字節(jié)集, 字節(jié)集
返回 (Unicode_轉(zhuǎn)_ANSI (UTF8_轉(zhuǎn)_Unicode (utf8字節(jié)集)))
.子程序 UTF8_轉(zhuǎn)_Unicode, 字節(jié)集
.參數(shù) utf8字節(jié)集, 字節(jié)集
.局部變量 len, 整數(shù)型, , , 單位: Word
.局部變量 Unicode字節(jié)集, 字節(jié)集
.局部變量 ll
ll ＝ 取字節(jié)集長(zhǎng)度 (utf8字節(jié)集)
len ＝ API_MultiByteToWideChar_utf8 (65001, 0, utf8字節(jié)集, ll, { }, 0)
Unicode字節(jié)集 ＝ 取空白字節(jié)集 (len × 2)
API_MultiByteToWideChar_utf8 (65001, 0, utf8字節(jié)集, ll, Unicode字節(jié)集, len × 2)
返回 (Unicode字節(jié)集)
.子程序 Unicode_轉(zhuǎn)_ANSI, 文本型
.參數(shù) Unicode字節(jié)集, 字節(jié)集
.局部變量 ansi_len, 整數(shù)型, , , 單位: Word
.局部變量 unicode_len
.局部變量 ansi, 文本型
unicode_len ＝ 取字節(jié)集長(zhǎng)度 (Unicode字節(jié)集) ÷ 2
ansi_len ＝ API_WideCharToMultiByte (936, 0, Unicode字節(jié)集, unicode_len, ansi, 0, “”, 0)
ansi ＝ 取空白文本 (ansi_len)
API_WideCharToMultiByte (936, 0, Unicode字節(jié)集, unicode_len, ansi, ansi_len, “”, 0)
返回 (ansi)
.子程序 程序延時(shí), 邏輯型, , 不占用cpu，窗口不卡死，不影響其它代碼執(zhí)行
.參數(shù) 參_延時(shí)間隔, 整數(shù)型, 可空, 1000毫秒 = 1秒 留空為無(wú)限等待
.參數(shù) 參_延時(shí)單位, 整數(shù)型, 可空, 默認(rèn)為毫秒 0=毫秒 1=秒 2=分鐘 3=小時(shí)
.局部變量 局_時(shí)間句柄, 整數(shù)型
.局部變量 局_時(shí)間, 程序延時(shí)
.判斷開(kāi)始 (參_延時(shí)單位 ＝ 0 且 是否為空 (參_延時(shí)間隔))
  參_延時(shí)間隔 ＝ 5000 × 60 × 60
  參_延時(shí)單位 ＝ 5000 × 60 × 60
.判斷 (參_延時(shí)單位 ＝ 0)
  參_延時(shí)單位 ＝ 1
.判斷 (參_延時(shí)單位 ＝ 1)
  參_延時(shí)單位 ＝ 1000
.判斷 (參_延時(shí)單位 ＝ 2)
  參_延時(shí)單位 ＝ 1000 × 60
.判斷 (參_延時(shí)單位 ＝ 3)
  參_延時(shí)單位 ＝ 1000 × 60 × 60
.默認(rèn)
.判斷結(jié)束
局_時(shí)間.成員_時(shí)間 ＝ -10 × 參_延時(shí)間隔 × 1000 × 參_延時(shí)單位
局_時(shí)間句柄 ＝ CreateWaitableTimerA (0, 假, 0)
SetWaitableTimer (局_時(shí)間句柄, 局_時(shí)間, 0, 0, 0, 假)
.判斷循環(huán)首 (MsgWaitForMultipleObjects (1, 局_時(shí)間句柄, 假, -1, 255) ≠ 0)
  系統(tǒng)處理事件 ()
.判斷循環(huán)尾 ()
CloseHandle (局_時(shí)間句柄)
返回 (真)
.子程序 系統(tǒng)處理事件
.如果真 (GetInputState () ≠ 0)
  處理事件 ()
.如果真結(jié)束

二維碼識(shí)別的代碼

.版本 2
.支持庫(kù) exui
.支持庫(kù) iext2
.程序集 啟動(dòng)窗口程序集
.程序集變量 命令行, 文本型, , "0"
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
.局部變量 path, 文本型
path ＝ 取運(yùn)行目錄 () ＋ “\PsyQrDcd.dll”
.如果真 (文件是否存在 (path) ＝ 假)
  寫(xiě)到文件 (path, #PsyQrDcd)
.如果真結(jié)束
取命令行 (命令行)
.如果真 (取數(shù)組成員數(shù) (命令行) ＞ 0)
  解碼結(jié)果 ＝ 解碼 (命令行 [1])
  顯示信息 (解碼結(jié)果)
.如果真結(jié)束
初始化注冊(cè)右鍵按鈕 ()
.子程序 _截圖識(shí)別按鈕_左鍵單擊
主窗口.可視EX ＝ 假
.如果真 (是否已創(chuàng)建 (截圖窗口) ＝ 假)
  載入 (截圖窗口, , 假)
.如果真結(jié)束
截圖窗口.背景動(dòng)畫(huà)框.置物體位置 (動(dòng)畫(huà)物體2, -2000, -2000, )
.子程序 _注冊(cè)右鍵按鈕_左鍵單擊
.如果 (注冊(cè)項(xiàng)是否存在 (#根類(lèi), “*\shell\QRCode\command\”))
  刪除注冊(cè)項(xiàng) (#根類(lèi), “*\shell\QRCode\command”)
  刪除注冊(cè)項(xiàng) (#根類(lèi), “*\shell\QRCode”)
.否則
  .如果 (寫(xiě)注冊(cè)項(xiàng) (#根類(lèi), “*\shell\QRCode\”, “識(shí)別二維碼”) 且 寫(xiě)注冊(cè)項(xiàng) (#根類(lèi), “*\shell\QRCode\command\”, 取運(yùn)行目錄 () ＋ “\” ＋ 取執(zhí)行文件名 () ＋ “ %1”))
    顯示信息 (“注冊(cè)成功”)
  .否則
    顯示信息 (“注冊(cè)失敗”)
    刪除注冊(cè)項(xiàng) (#根類(lèi), “*\shell\QRCode\command”)
    刪除注冊(cè)項(xiàng) (#根類(lèi), “*\shell\QRCode”)
  .如果結(jié)束
.如果結(jié)束
初始化注冊(cè)右鍵按鈕 ()
.子程序 顯示信息
.參數(shù) 信息, 文本型
.參數(shù) 是否復(fù)制, 邏輯型, 可空
信息框EX (主窗口.圖標(biāo), “解碼結(jié)果 - 已復(fù)制到剪輯版”, , 信息, , { “確認(rèn)” }, 0, 取窗口句柄 (), , , 5000, , )
.如果真 (是否復(fù)制)
  置剪輯板文本 (解碼結(jié)果)
.如果真結(jié)束
.子程序 __啟動(dòng)窗口_將被銷(xiāo)毀
主窗口.銷(xiāo)毀 ()
.子程序 初始化注冊(cè)右鍵按鈕
.如果 (注冊(cè)項(xiàng)是否存在 (#根類(lèi), “*\shell\QRCode\command\”))
  注冊(cè)右鍵按鈕.標(biāo)題 ＝ “注銷(xiāo)右鍵”
.否則
  注冊(cè)右鍵按鈕.標(biāo)題 ＝ “注冊(cè)右鍵”
.如果結(jié)束

運(yùn)行結(jié)果：