如何监测区域网内机计算机是否开启(空)。(20分)

  • 主题发起人 主题发起人 xch-1
  • 开始时间 开始时间
X

xch-1

Unregistered / Unconfirmed
GUEST, unregistred user!
如何监测区域网内机计算机是否开启?
谢谢。(只有20分了,清家荡产)

 
uses WinSock;

function FindComputer(ComputerName: string);
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
Result := False;
WSAStartup(2, WSAData);
HostEnt := gethostbyname(PChar(ComputerName));
if HostEnt = nil then Result := False;
WSACleanup;
end;
 
可以装局域网监控软件,如天行刺客,bo2000等
 
function FindComputer(ComputerName: string): Boolean;
 
请使用TNWECHO控件判断网络的完整性,这是他的特性.
你甚至可以判断某个端口上的服务是否启动了.
使用很简单.指定对方的地址和端口以及TimeOut
就可以.我曾使用来判断服务器上的SQL Server
是否在运行.(侦听1433端口).你可以使用类似的
方法.
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部