子程序:删除自己
※备注:能自杀的程序。因调试时的临时文件不允许被删除,所以只能在编译为 自己的文件名+“.exe” 后,才能正确执行!
参数:自己的文件名 数据类型:文本型
局部变量:文件号 数据类型:整数型
文件号 = 打开文件 (取运行目录 () + “\处理.bat”, 4, )
写出文本 (文件号, “@ECHO OFF”, #换行符, “goto start”, #换行符, “:start”, #换行符, “@if exist ” + 自己的文件名 + “ goto del”, #换行符, “goto end”, #换行符, “:del”, #换行符, “del ” + 自己的文件名 + “,” + #换行符, “cls”, #换行符, “goto start”, #换行符, “:end”, #换行符, “del 处理.bat”)
关闭文件 (文件号)
运行 (“start 处理.bat”, 假, 5)
结束 ()
※备注:能自杀的程序。因调试时的临时文件不允许被删除,所以只能在编译为 自己的文件名+“.exe” 后,才能正确执行!
参数:自己的文件名 数据类型:文本型
局部变量:文件号 数据类型:整数型
文件号 = 打开文件 (取运行目录 () + “\处理.bat”, 4, )
写出文本 (文件号, “@ECHO OFF”, #换行符, “goto start”, #换行符, “:start”, #换行符, “@if exist ” + 自己的文件名 + “ goto del”, #换行符, “goto end”, #换行符, “:del”, #换行符, “del ” + 自己的文件名 + “,” + #换行符, “cls”, #换行符, “goto start”, #换行符, “:end”, #换行符, “del 处理.bat”)
关闭文件 (文件号)
运行 (“start 处理.bat”, 假, 5)
结束 ()