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

　2006-02-04 13:25:30　来源：WEB开发网　闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹

闂傚倷绀侀幉锟犲垂閻㈠灚宕查柟鎵閸庡秵銇勯幒鎴濃偓鐢稿磻閹炬枼妲堟繛鍡楃С濞岊亞绱撻崒姘扁枌闁瑰嚖鎷�

婵犵數濮幏鍐川椤撴繄鎹曢梻渚€娼уú銈吤洪妸鈺佺劦妞ゆ帊鑳堕埊鏇㈡煏閸モ晛浠х紒杈╁仱閺佹捇鏁撻敓锟�闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹　　闂傚倷鑳舵灙缂佺粯顨呴埢宥夊即閵忕姵鐎梺缁樺姇閻忔氨鈧凹鍓熷娲垂椤曞懎鍓伴梺閫炲苯澧紒澶婄秺瀵濡歌閸嬫捇妫冨☉娆忔殘闂佷紮缍€娴滎剟鍩€椤掑倹鏆柛瀣躬瀹曚即寮借閺嗭箓鏌ㄩ悤鍌涘

核心提示：远程控制篇：获得网络邻居所有机器名PRocedure TForm1.Button1Click(Sender: TObject);VAR command:string ; comline: pchar ;begin command:='COMMAND.COM /C net view>c:~~~.txt

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

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;

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