.版本 2
.支持庫 script
.支持庫 eAPI
.程序集 窗口程序集1, , , 為了方便省事,我把註冊機也寫在壹起,自己測試吧
.程序集變量 註冊碼, 文本型, , , 用於正常軟件
.程序集變量 是否註冊, 邏輯型, , , 用於正常軟件
.子程序 __啟動窗口_創建完畢, , , 用於正常軟件
編輯框1.內容 = 到文本 (取絕對值 (取硬盤特征字 ()) + 20100714)? ' 20100714 這個妳可以自己該數值
註冊判斷 ()? ' 檢查是否註冊 賦值給 變量:是否註冊
.判斷開始 (是否註冊 = 真)? ' 這個判斷可以用在妳想要限制的地方
_啟動窗口.標題 = “軟件已註冊”
.默認
_啟動窗口.標題 = “軟件未註冊”
.判斷結束
.子程序 註冊判斷, , , 用於正常軟件
腳本組件1.執行 (#md5)
.如果 (註冊項是否存在 (3, “Software\mysoft\config”) = 真)
註冊碼 = 取文本註冊項 (3, “Software\mysoft\config”, )
.如果 (註冊碼 = 到大寫 (腳本組件1.運行 (“md5”, 編輯框1.內容)))
是否註冊 = 真
.否則
是否註冊 = 假
.如果結束
.否則
是否註冊 = 假
.如果結束
.子程序 _註冊按鈕_被單擊, , , 用於正常軟件
.如果 (編輯框2.內容 = 註冊計算 ())
信息框 (“註冊成功,重新打開軟件即可!”, 0, )
寫註冊項 (3, “Software\mysoft\config”, 編輯框2.內容)
銷毀 ()
.否則
信息框 (“註冊失敗”, 0, )
.如果結束
.子程序 註冊計算, 文本型, , 用於正常軟件
腳本組件1.執行 (#md5)
返回 (到大寫 (腳本組件1.運行 (“md5”, 編輯框1.內容)))
.子程序 _按鈕1_被單擊, , , 用於註冊機
腳本組件1.執行 (#md5)
編輯框4.內容 = 到大寫 (腳本組件1.運行 (“md5”, 編輯框3.內容))