【魔幻小鱉】的部落格

資料來源：兄弟論壇
作者：yytk

UserVar ms=DropList{獲取本機授權碼:0|測試授權碼:1|根據序列號計算授權碼:2}=1 工作模式選擇
UserVar mima=5457118 請輸入授權密碼
Plugin s0=GetSysInfo.GetHDDSerialNumber()
If ms=0
    Gosub 計算本機密碼
ElseIf ms=2
    Gosub 根據序列號計算授權碼
Else
    Goto 註冊
EndIf
Rem 註冊
Plugin s=GetSysInfo.GetHDDSerialNumber()
x=Abs(Int(s/95+123876))
If x=mima
    Delay 1000
    Goto 主腳本
Else
    VBSCall RunApp("notepad.exe")
    Delay 2000
    SayString "本機序列號是："&s
    Delay 1000
    KeyPress 13,1
    SayString "請聯繫作者索取授權密碼 QQ:399104662 芝華士"
    Delay 1000
    MessageBox "本機序列號是："&s&"  請聯繫作者索取授權密碼 QQ:399104662 芝華士"
    Gosub 結束腳本
EndIf
Sub 計算本機密碼
    Plugin s=GetSysInfo.GetHDDSerialNumber()
    x=Abs(Int(s/95+123876))
    VBSCall RunApp("notepad.exe")
    Delay 2000
    SayString "本機授權密碼是："&x
    Delay 1000
    MessageBox "本機授權密碼是："&x
EndScript
Return 計算本機密碼
Sub 根據序列號計算授權碼
    s=InputBox("請輸入硬碟序列號")
    x=Abs(Int(s/95+123876))
    VBSCall RunApp("notepad.exe")
    Delay 2000
    SayString "此序列號授權密碼是："&x
    Delay 1000
    MessageBox "此序列號授權密碼是："&x
EndScript
Return 根據序列號計算授權碼
Sub 結束腳本
EndScript
Return
Rem 主腳本
MessageBox "密碼驗證成功，您可以正常使用腳本了！"
EndScript