ITPub博客

首页 > IT基础架构 > 网络安全 > 远程控制篇:获得网络邻居所有机器名 (转)

远程控制篇:获得网络邻居所有机器名 (转)

原创 网络安全 作者:worldblog 时间:2007-12-04 13:06:18 0 删除 编辑
远程控制篇:获得网络邻居所有机器名 (转)[@more@]

远程控制篇:获得网络邻居所有机器名

procedure TForm1.Button1Click(Sender: Tobject);
VAR
  command:string ;
  comline: pchar  ;
begin
 command:='COMMAND.com /C.NET view>c:~~~.txt';
 comline:=pchar(command);
 WinExec(comline, sw_hide);
 timer1.Enabled:=true;
end;

每秒试一次
procedure TForm1.Timer1Timer(Sender: TObject);
var f:tstringlist;
  ll,ii:integer;
  s1,s:string;
  b:bool;
begin
f:=tstringlist.Create;
try
  f.LoadFromFile('c:~~~.txt');
 except
end;
if  f.Count>10 then begin
memo1.Clear;
memo1.lines.add(f.text);
timer1.Enabled:=false;
f.Free;
{去掉多余的行和''}
  for ll:=memo1.lines.count-1 downto 0 do begin
  if strpos(pchar(memo1.lines.strings[ll]),'')=nil then
  memo1.lines.delete(ll)
  else
  memo1.lines.Strings[ll]:=delxxx(memo1.lines.Strings[ll]);
  {自编1个去''的函数}
  end;
timer1.enabled:=False;
end;

--------------------------------------------
湖北襄樊  官本和(Mailto:gbh12345@china.com">gbh12345@china.com)  2001.4
详见主页源程序
Delphi21cn.yeah.net">http://delphi21cn.yeah.net
http://personal.hb.cninfo.net/~gbh


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-988323/,如需转载,请注明出处,否则将追究法律责任。

上一篇: http1.1---3 (转)
请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2404260