額，幾百行代碼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天或你想要的天數.....腳本內可能會有小錯誤，如果你會寫腳本，我想這點小的語法錯誤不會阻礙你的腳步....我就不改了
❷ 誰知道這種網路驗證叫什麼名字！安卓apk的網路驗證
這個是授權碼授權用的，要購買數字碼
❸ 如何編寫一款可以連接網路驗證的軟體 用C++可以是實現嗎就是像QQ那樣 需要賬號密碼才能登陸
tcp/ip編程
❹ 用易語言怎麼寫一個一機一碼，帶網路驗證，的程序，就是這個注冊嗎填進去，網路驗證
超級簡單 用SE加殼軟體
網路驗證的源碼簡單
一機一碼更加簡單
第一步：打開SE加殼軟體 展開內「授權選項」容，勾上「啟用授權系統」 最後，單擊「保護」
第二部：如果你想把你的軟體發給甲，又怕甲會外傳你的軟體讓其他人使用，就發第一步加好授權系統後的軟體發給甲，然後，甲打開這個軟體會彈出一個信息框，叫他復制他的機器碼下來，然後……
樓主想繼續學下去的話就請提高點懸賞吧 沒有一點懸賞我懶得再教下去了