.版本 2
.子程序 __啟動窗口_創建完畢
.如果 (註冊項是否存在 (4, “測試”) ＝ 假)
寫註冊項 (4, “測試”, “1”)
.否則
信息框 (“已有程序運行過壹次了，不能讓妳再運行（僅這臺電腦而已）”, 0, )
結束 ()
.如果結束
接下來才是重點，只在自己電腦運行後本地的電腦以及所有的電腦都不準在運行第二次的源碼（將數據寫入自身，在哪臺電腦都有效）！！
.版本 2
.支持庫 spec
.支持庫 shell
.支持庫 dp1
.子程序 __啟動窗口_創建完畢
.局部變量 命令行, 文本型, , "0"
.局部變量 自身路徑, 文本型
.局部變量 已生成的檢測程序, 字節集
取命令行 (命令行)
.如果真 (取數組成員數 (命令行) ＝ 2 且 命令行 [1] ＝ “run”)
已生成的檢測程序 ＝ 生成標記字節集 (讀入文件 (命令行 [2]), 到字節集 (“壹個檢測”), 到字節集 (“test”))
.判斷循環首 (寫到文件 (命令行 [2], 已生成的檢測程序) ＝ 假)
延遲 (10)
.判斷循環尾 ()
返回 ()
.如果真結束
.如果 (讀取標記字節集 (到字節集 (“壹個檢測”)) ＝ 假) ' 如果為假，則是第壹次運行過的
自身路徑 ＝ 取運行目錄 () ＋ “\” ＋ 取執行文件名 ()
復制文件 (自身路徑, 取特定目錄 (11) ＋ 取執行文件名 ())
運行 (取特定目錄 (11) ＋ 取執行文件名 () ＋ “ run ” ＋ #引號 ＋ 自身路徑 ＋ #引號, 假, )
結束 ()
' 寫入第壹次已運行過的標記，下次運行時就不會返回假了，則說明是第二次運行
.否則
信息框 (“已有第二次運行了，不能再讓妳運行了（任何電腦都不允許）！”, 0, )
結束 ()
.如果結束
.子程序 讀取標記字節集, 邏輯型, 公開, 用於自身讀取已傳遞標記的字節集，可讀取出數據返回真否則假
.參數 標記, 字節集, , 在生成端創建的標記
.參數 取出字節集變量, 字節集, 參考 可空
.局部變量 自身字節集, 字節集
.局部變量 加密標記, 字節集
.局部變量 取出標記字節集, 字節集
自身字節集 ＝ 讀入文件 (取運行目錄 () ＋ “\” ＋ 取執行文件名 ())
加密標記 ＝ 加密數據 (標記, “我愛傻子”, ) ' 加密密碼可以隨便改
取出標記字節集 ＝ 解密數據 (取字節集之後至字節集 (自身字節集, 加密標記, 加密標記 ＋ 到字節集 (“end”), ), “我愛傻子”, )
.如果真 (取出標記字節集 ≠ { })
取出字節集變量 ＝ 取出標記字節集
返回 (真)
.如果真結束
返回 (假)
.子程序 生成標記字節集, 字節集, 公開, 在生產端使用的，給調用端生成壹個帶標記的字節集
.參數 源程序, 字節集
.參數 標記, 字節集, , 與讀取的標記壹致且不得創建重復的標記，否則將覆蓋前壹個標記的字節集
.參數 欲增加字節集, 字節集, , 給調用端生成傳遞壹個字節集
.局部變量 生成後的字節集, 字節集
.局部變量 加密標記, 字節集
加密標記 ＝ 加密數據 (標記, “我愛傻子”, )
欲增加字節集 ＝ 加密數據 (欲增加字節集, “我愛傻子”, )
生成後的字節集 ＝ 源程序 ＋ 加密標記 ＋ 欲增加字節集 ＋ 加密標記 ＋ 到字節集 (“end”)
返回 (生成後的字節集)
.子程序 修改標記字節集, 邏輯型, 公開, 在創建的基礎上進行修改傳遞的數據返回新修改的字節集
.參數 源程序, 字節集
.參數 標記, 字節集
.參數 欲修改字節集, 字節集
.參數 生成修改後的程序, 字節集, 參考 可空
.局部變量 生成後的字節集, 字節集
.局部變量 加密標記, 字節集
.局部變量 讀取字節集, 字節集
加密標記 ＝ 加密數據 (標記, “我愛傻子”, )
欲修改字節集 ＝ 加密數據 (欲修改字節集, “我愛傻子”, )
讀取字節集 ＝ 取字節集之後至字節集 (源程序, 加密標記, 加密標記 ＋ 到字節集 (“end”), )
生成修改後的程序 ＝ 子字節集替換 (源程序, 讀取字節集, 欲修改字節集, , )
.如果真 (到文本 (讀取字節集) ≠ “”)
返回 (真)
.如果真結束
返回 (假)
.子程序 取字節集之後至字節集, 字節集, , 總的，參考取字節集之前＋取字節集之後
.參數 源字節集, 字節集
.參數 起字節集, 字節集
.參數 至字節集, 字節集
.參數 是否包括起字節集, 邏輯型, 可空
.參數 是否包括至字節集, 邏輯型, 可空
.局部變量 取字節集之前, 字節集
.局部變量 取字節集之後, 字節集
取字節集之前 ＝ 子字節集替換 (源字節集, 取字節集中間 (源字節集, 倒找字節集 (源字節集, 至字節集, ), 取字節集長度 (源字節集) ＋ 倒找字節集 (源字節集, 至字節集, )), , , )
取字節集之後 ＝ 子字節集替換 (取字節集中間 (取字節集之前, 倒找字節集 (取字節集之前, 起字節集, ), 取字節集長度 (取字節集之前) ＋ 倒找字節集 (取字節集之前, 起字節集, )), 起字節集, , , )
.如果真 (是否包括起字節集)
取字節集之後 ＝ 起字節集 ＋ 取字節集之後
.如果真結束
.如果真 (是否包括至字節集)
取字節集之後 ＝ 取字節集之後 ＋ 至字節集
.如果真結束
返回 (取字節集之後)