【魔幻小鱉】的部落格

小精靈自我刪除---寫給寫腳本賺錢的朋友

資料來源：兄弟論壇
作者：沉8

沒什麼技術含量
但還是希望大家尊重本人勞動成果
最近的幾貼都沒什麼人回貼
用到此貼的朋友請給出見意和自己想法

原理是生成批處理文件刪除小精靈
配合限制次數或限制日期的腳本可以有效的保護你的小精靈不被未授權的人使用

大家可以在腳本中寫滿足一個條件就執行下面的腳本
比如:判斷當前日期是否大於某一天
這樣就算你的小精靈被人複製發給其他人
只要到了日子該小精靈就不能使用

該腳本直接複製使用可以測試運行效果
測試請將生成的小精靈命名為小精靈刪除自己.exe

VBS Dim fso
VBS const Ttxt="delete.bat"
VBS set fso=CreateObject("Scripting.FileSystemObject")
VBS const forreading=1
VBS const forwriting=2
VBS const forappending=8
VBS costfile=fso.FileExists(Ttxt)
//判斷指定路徑是否存在delete.bat文件,這個判斷是厲行公事可以不要直接生成
If 0=costfile
    //否，第一次使用生成delete.bat文件
    VBS set ttfile=fso.createtextfile(Ttxt,false)
EndIf
//以寫方式打開delete.bat，寫入bat命令
VBS set fso=CreateObject("Scripting.FileSystemObject")
VBS set ttfile=fso.opentextfile(Ttxt,forappending)
//寫入關閉小精靈進程的命令,紅字是小精靈exe的名字
VBS ttfile.writeline("@taskkill /f /IM 小精靈刪除自己.exe")
//寫入刪除小精靈exe文件的命令
VBS ttfile.writeline("del 小精靈刪除自己.exe /q")
VBS ttfile.Close
VBSCall RunApp("delete.bat")