远程控制篇：测试IP地址

使用 i:=1 to 254 do begin...end即可自动搜索地址
要知道这个IP地址是否中镖，可向它发一个字符串。如果接收到这个IP返回来的预定的字符串，如发出"我是长江"，返回"我是黄河"，就可以控制这个IP地址了

{uses winsock}
function testip(IP:string):string;
var
  WSAData:TWSADATA;
  Addr:DWORD;
begin
  WSAStartup(2, WSAData);
  Addr:=inet_addr(PChar(IP));
  if gethostbyaddr(@Addr,sizeof(Addr),PF_INET)=nil then
    result:='
  else   result:=ip;
  WSACleanup();
end;

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