谁有又快又好的方法判断一台计算机是否打开？(知道IP地址）尝试连接139端口？

Question

ping是可以实现，以前几个贴子里也有用用delphi写了一个ping但我发现其实可以利用gethostbyaddr这个函数来实现如果能取到数据，则表明。如果不能，可以通过WSAGetLastError来得到状态

Answer 1

ping，连接139的话，那么你用socket连接一下，telnet就行，如果能telnet上去，那么就开着了，

Answer 2

Telnet要求对方提供开telnet服务呀

Answer 3

ping最简单了，能ping通就开了不能ping通就没开了。。

Answer 4

telnet 127.0.0.1 139//这样是telnent到127.0.0.1的139端口

Answer 5

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;