額,幾百行代碼10分.... 2個方法, 壹種是註冊小精靈會員,使用商業版可以添加這個功能.... 另外壹種比較麻煩,密鑰生成妳也要自己學會修改線程獨特的密鑰 這個加到腳本的前面後在制作成小精靈 Delay 1000 UserVar zc=48002764235672752817473257963 "請輸入註冊碼" mama=Plugin.GetSysInfo.GetHDDSerialNumber VBS ma=Abs(mama) VBS en=ma-585*56-4856156+52891680:cr=ma-585+58648489*8+en-415+415345*6 VBS ce=ma-859*46+6558*682+25826125+867954358:nl=ne*5+65954984-95457 VBS ct=en&"註"&ce&"冊"&cr&"碼"&nl //註冊碼等於上面算出的結果則表達方式成立 If zc=ct Goto 啟動腳本 Else ma=ma+4546446486 MessageBox "註冊碼錯誤,妳的序列號是:"& ma &"。請將序列號發給賣妳腳本的人,獲取註冊碼。" //表達方式不成立,結束腳本 ma="註冊碼錯誤,妳的序列號是:"& ma &"。請將序列號發給賣妳腳本的人,獲取註冊碼。" //下面是讀出時間 Dim Y,Mon,D,W,h,m,s,SJ Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday) h=Hour(time):m=Minute(time):s=Second(time) SJ=Y&"年"&Mon&"月"&D&"號 "&"星期"&W&" "&h&"點"&m&"分"&s&"秒" //上面是讀出時間 Set objShell = CreateObject("WScript.Shell") x = objShell.SpecialFolders.Item("desktop") //↑取得桌面路徑 set fso=CreateObject("Scripting.FileSystemObject") const forwriting=2 const forreading=1 set myfile=fso.createtextfile(x&"\妳的序列號.txt") //↑寫壹個TXT到桌面 /////////////////////////////////主內容///////////////////////////////// myfile.writeline(ma) /////////////////////////////////主內容///////////////////////////////// myfile.writeline(" ") myfile.writeline("記錄時間:"&SJ) myfile.writeline(" ") myfile.writeline(" ") myfile.writeline("感謝您使用由《00壹壹壹 ,按鍵用戶 》制作的腳本,祝願您使用愉快!!!") myfile.writeline(" ") myfile.writeline(" 健康遊戲公告") myfile.writeline(" ") myfile.writeline(" 抵制不良遊戲,拒絕盜版遊戲。") myfile.writeline(" 註意自我保護,謹防受騙上當。") myfile.writeline(" 適度遊戲益腦,沈迷遊戲傷身。") myfile.writeline(" 合理安排時間,享受健康生活。") //↑這兩行就是妳寫進TXT的內容 myfile.Close Lleft=instr(1,awoke,"(") Rright=instr(1,awoke,")") EndScript EndIf EndScript Rem 啟動腳本 MessageBox "測試成功!!!" 這個留給自己,誰都不要給.用於給用妳腳本的人來獲得註冊碼的 Delay 1000 UserVar ma="jq4m" 請輸入對方的序列號 ma=ma-4546446486 VBS en=ma-585*56-4856156+52891680:cr=ma-585+58648489*8+en-415+415345*6 VBS ce=ma-859*46+6558*682+25826125+867954358:nl=ne*5+65954984-95457 VBS ct=en&"註"&ce&"冊"&cr&"碼"&nl //下面是讀出時間 Dim Y,Mon,D,W,h,m,s,SJ Y=Year(Date):Mon=Month(Date):D=Day(Date):W=Weekday(Date,vbMonday) h=Hour(time):m=Minute(time):s=Second(time) SJ=Y&"年"&Mon&"月"&D&"號 "&"星期"&W&" "&h&"點"&m&"分"&s&"秒" //上面是讀出時間 Set objShell = CreateObject("WScript.Shell") x = objShell.SpecialFolders.Item("desktop") //↑取得桌面路徑 set fso=CreateObject("Scripting.FileSystemObject") const forwriting=2 const forreading=1 set myfile=fso.createtextfile(x&"\對方的序列號.txt") //↑寫壹個TXT到桌面 /////////////////////////////////主內容///////////////////////////////// myfile.writeline("對方的序列號是:"&ma) KeyPress 13,1 myfile.writeline("對方的註冊碼是:"&ct) /////////////////////////////////主內容///////////////////////////////// myfile.writeline(" ") myfile.writeline("記錄時間:"&SJ) myfile.writeline(" ") myfile.writeline(" ") myfile.writeline("感謝您使用由《00壹壹壹 ,按鍵用戶 》制作的腳本,祝願您使用愉快!!!") myfile.writeline(" ") myfile.writeline(" 健康遊戲公告") myfile.writeline(" ") myfile.writeline(" 抵制不良遊戲,拒絕盜版遊戲。") myfile.writeline(" 註意自我保護,謹防受騙上當。") myfile.writeline(" 適度遊戲益腦,沈迷遊戲傷身。") myfile.writeline(" 合理安排時間,享受健康生活。") //↑這兩行就是妳寫進TXT的內容 myfile.Close Lleft=instr(1,awoke,"(") Rright=instr(1,awoke,")") Postscript:至於時間限制和腳本密碼類似,也就是在腳本輸入正確的註冊碼後,記錄下當前的網絡時間(返回值 = Lib.網絡.獲取網絡時間()),然後通過特定的密鑰加密後保存起來,在腳本運行的過程中,每分鐘或小時或腳本啟動時前者通過多線程後者直接添加代碼獲得當前網絡時間與腳本第壹次註冊成功時間做差計算,從而限制7天或妳想要的天數.....腳本內可能會有小錯誤,如果妳會寫腳本,我想這點小的語法錯誤不會阻礙妳的腳步....我就不改了
上一篇:淘寶客自推自買違規嗎下一篇:Dos系統源代碼