.版本 2
.DLL命令 RegCreateKey, 邏輯型, "Advapi32.dll", "RegCreateKeyA", 公開
 .參數(shù) hKey, 整數(shù)型
 .參數(shù) lpSubKey, 文本型
 .參數(shù) phkResult, 整數(shù)型, 傳址
.DLL命令 RegCloseKey, , "Advapi32.dll", "RegCloseKey", 公開
 .參數(shù) hKey, 整數(shù)型
.DLL命令 RegSetKeyValue, 邏輯型, "Advapi32.dll", "RegSetValueExA", 公開
 .參數(shù) hKey, 整數(shù)型
 .參數(shù) lpSubKey, 文本型
 .參數(shù) lpValueName, 文本型
 .參數(shù) dwType, 整數(shù)型
 .參數(shù) lpData, 文本型
 .參數(shù) cbData, 整數(shù)型
.DLL命令 sprintf, 整數(shù)型, "msvcrt.dll", "@sprintf"
 .參數(shù) s, 文本型, 傳址
 .參數(shù) foramt, 文本型
 .參數(shù) arg, 文本型
.DLL命令 GetCommandLine, 文本型, "kernel32.dll", "GetCommandLineA", 公開

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

.版本 2
.常量 HKEY_CLASSES_ROOT, "2147483648"
.常量 REG_SZ, "1"

注冊自定義協(xié)議Register protocol

.版本 2
.程序集 程序集1
.子程序 _啟動子程序, 整數(shù)型, , 本子程序在程序啟動后最先執(zhí)行
.局部變量 pszArgv, 文本型, , "0"
.局部變量 szExePath, 文本型
.局部變量 i, 整數(shù)型
.局部變量 Schemes, 文本型
標準輸出 (, “Windows 注冊自定義協(xié)議演示：”, #換行符)
取命令行 (pszArgv)
.如果真 (取數(shù)組成員數(shù) (pszArgv) ≥ 1) ' 如果啟動參數(shù)小于1,那說明并非由協(xié)議啟動
 .計次循環(huán)首 (取數(shù)組成員數(shù) (pszArgv), i)
  .如果真 (取文本左邊 (到小寫 (pszArgv [i]), 6) ＝ “eyuyan:”)
   Schemes ＝ 取文本右邊 (pszArgv [i], 取文本長度 (pszArgv [i]) － 8) ' 協(xié)議數(shù)據(jù)
   標準輸出 (, “收到協(xié)議數(shù)據(jù): ”, Schemes, #換行符)
   ' 在這里就可以處理接收到的協(xié)議數(shù)據(jù)了
   標準輸出 (, “按回車鍵結束程序!”, #換行符)
   標準輸入 ()
   返回 (0)
  .如果真結束
 .計次循環(huán)尾 ()
.如果真結束
標準輸出 (, “注冊協(xié)議頭: Ayana ”, #換行符, “在地址欄或者瀏覽器中輸入: Ayana:hello%20world ,將會觸發(fā)接收程序!”, #換行符)
szExePath ＝ 取運行目錄 () ＋ “\” ＋ 取執(zhí)行文件名 ()
登錄協(xié)議 (“eyuyan”, szExePath ＋ “,0”, szExePath)
標準輸出 (, “按回車鍵結束程序!”, #換行符)
標準輸入 ()
返回 (0)
.子程序 登錄協(xié)議, , 公開, 注冊自定義windows 協(xié)議
.參數(shù) 協(xié)議頭, 文本型, , 協(xié)議頭: 比如 schemes
.參數(shù) 圖標文件, 文本型, , 圖標文件
.參數(shù) 協(xié)議接收程序, 文本型, , 協(xié)議接收程序
.局部變量 根HKEY, 整數(shù)型, , , 根HKEY
.局部變量 文本, 文本型
.局部變量 結果, 文本型
文本 ＝ 取空白文本 (60)
sprintf (文本, “%sProtocol”, 協(xié)議頭)
RegCreateKey (#HKEY_CLASSES_ROOT, 協(xié)議頭, 根HKEY)
RegSetKeyValue (#HKEY_CLASSES_ROOT, 協(xié)議頭, “”, #REG_SZ, 文本, 取文本長度 (文本))
RegSetKeyValue (#HKEY_CLASSES_ROOT, 協(xié)議頭, “URL Protocol”, #REG_SZ, 協(xié)議接收程序, 取文本長度 (協(xié)議接收程序))
RegSetKeyValue (根HKEY, “DefaultIcon”, “”, #REG_SZ, 圖標文件, 取文本長度 (圖標文件))
RegSetKeyValue (根HKEY, “shell”, “”, #REG_SZ, “”, 0)
RegSetKeyValue (根HKEY, “shell\open”, “”, #REG_SZ, “”, 0)
結果 ＝ 協(xié)議接收程序 ＋ “ ” ＋ #引號 ＋ “%1” ＋ #引號
RegSetKeyValue (根HKEY, “shell\open\command”, “”, #REG_SZ, 結果, 取文本長度 (結果))
RegCloseKey (根HKEY)

運行結果：