易语言吧 关注:266,783贴子:1,666,577
  • 0回复贴,共1

转_易语言自杀程序

只看楼主收藏回复

子程序:删除自己
       ※备注:能自杀的程序。因调试时的临时文件不允许被删除,所以只能在编译为 自己的文件名+“.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)
   结束 ()



1楼2010-08-02 12:16回复