小精灵自我删除

小精灵自我删除---写给写脚本赚钱的朋友 没什么技术含量 但还是希望大家尊重本人劳动成果 最近的几贴都没什么人回贴 用到此贴的朋友请给出见意和自己想法 原理是生成批处理文件删除小精灵 配合限制次数或限制日期的脚本可以有效的保护你的小精灵不被未授权的人使用 大家可以在脚本中写满足一个条件就执行下面的脚本 比如:判断当前日期是否大于某一天 这样就算你的小精灵被人复制发给其他人 只要到了日子该小精灵就不能使用 该脚本直接复制使用可以测试运行效果 测试请将生成的小精灵命名为小精灵删除自己.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")