远程控制篇：通过IP地址得到机器名 (转)[@more@]
function iptoname(ip:string):string;
var
WSAData:TWSAData;
p:PHostEnt;
.NETAddr:dword;
begin
WSAStartup(2, WSAData);
InetAddr:= inet_addr(PChar(IP));
try
p:=GetHostByAddr(@InetAddr, Length(IP), PF_Inet);
result:=p^.h_name;
except
result:=';
end;
end;
官本和 2001.4
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10790663/viewspace-953804/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
没有了~
下一篇：
远程控制篇：抓取远程屏幕图像 (转)
请登录后发表评论
登录
全部评论
