局域网中自我复制(100分)

  • 主题发起人 主题发起人 梦天
  • 开始时间 开始时间

梦天

Unregistered / Unconfirmed
GUEST, unregistred user!
在局域中,一个程序怎样才能够做到自我复制,检查如果那一台计算机没有复制,那它就去
再一次复制。

 
var
myfilepath: String;
begin
myfilepath:= 'c:/a.exe';
targerfile:='//192.168.0.1/a.exe';
if not fileexists(targerfile) then
begin
copyfile(pchar(myfilepath),pchar(targerfile),true);
end;
end;
 
病毒呀!!!
呵呵,我想如果改成智能性的最好
 
一定是病毒!
 
后退
顶部