如何快速确定给定的一个IP地址在本地局域网内是否存在，要求判断时间不能超过1秒！！

[huojiehai]

rt

[aiirii]

如果安全的檢測方法, 是發個icmp包, 也就是ping,
但一秒, 就不好保證了

[aiirii]

用 WNetAddConnection2 試連接到對方,
根據出錯信息判斷???
但網絡的速度也是不可保證的

[jxing]

是网络发现的问题，可靠的方法不可能1秒解决，否则肯定会漏判。看看SNMP的东西吧。

[fei19790920]

给你一个PING的线程PAS，很好用：
unit PingThread;

interface

uses
Windows, Messages, SysUtils, Classes, winsock;

type

TPingReply = class(TObject)
IP, bytes, RTT: string;
end;

//----------------------------------------------------------------------------
PIPOptionInformation = ^TIPOptionInformation;
TIPOptionInformation = packed record
TTL: Byte;
TOS: Byte;
Flags: Byte;
OptionsSize: Byte;
OptionsData: PChar;
end;

PIcmpEchoReply = ^TIcmpEchoReply;
TIcmpEchoReply = packed record
Address: DWORD;
Status: DWORD;
RTT: DWORD;
DataSize: Word;
Reserved: Word;
Data: Pointer;
Options: TIPOptionInformation;
phe: pHostent;
end;

TIcmpCreateFile = function: THandle; stdcall;
TIcmpCloseHandle = function(IcmpHandle: THandle): Boolean; stdcall;
TIcmpSendEcho = function(IcmpHandle:THandle;
DestinationAddress: DWORD;
RequestData: Pointer;
RequestSize: Word;
RequestOptions: PIPOptionInformation;
ReplyBuffer: Pointer;
ReplySize: DWord;
Timeout: DWord
): DWord; stdcall;

//----------------------------------------------------------------------------
TPingThread = class(TThread)
protected
procedure Execute; override;
private
{ Private declarations }
hICMP: THANDLE;
IcmpCreateFile : TIcmpCreateFile;
IcmpCloseHandle: TIcmpCloseHandle;
IcmpSendEcho: TIcmpSendEcho;

IP1, IP2, TimeOut: DWORD;
reply: TPingReply;
CurrentIP: string;

procedure OnReply;
procedure OnBegin;
procedure OnEnd;
procedure OnSend;
public
{ Public declarations }
OnBeginEvent: TNotifyEvent;
OnEndEvent: TNotifyEvent;
OnRecvEvent: TNotifyEvent;
OnSendEvent: TNotifyEvent;
constructor Create(IP_1, IP_2: string; time_out: integer);
end;

var
exit_ping_thread: boolean;

implementation

constructor TPingThread.Create(IP_1, IP_2: string; time_out: integer);
var
WSAData: TWSAData;
hICMPdll: HMODULE;
begin
wsastartup($101,wsadata);
hICMPdll := LoadLibrary('icmp.dll');
@ICMPCreateFile := GetProcAddress(hICMPdll, 'IcmpCreateFile');
@IcmpCloseHandle := GetProcAddress(hICMPdll, 'IcmpCloseHandle');
@IcmpSendEcho := GetProcAddress(hICMPdll, 'IcmpSendEcho');
hICMP := IcmpCreateFile;

IP1 := ntohl(inet_addr(pchar(IP_1)));
IP2 := ntohl(inet_addr(pchar(IP_2)));
TimeOut := time_out;

FreeOnTerminate := True;
inherited Create(True);
end;

procedure TPingThread.OnReply;
begin
if assigned(OnRecvEvent) then OnRecvEvent(reply);
end;

procedure TPingThread.OnBegin;
begin
if assigned(OnBeginEvent) then OnBeginEvent(nil);
end;

procedure TPingThread.OnEnd;
begin
if assigned(OnEndEvent) then OnEndEvent(nil);
end;

procedure TPingThread.OnSend;
begin
if assigned(OnSendEvent) then OnSendEvent(TObject(CurrentIP));
end;

procedure TPingThread.Execute;
var
IPOpt: TIPOptionInformation;// IP Options for packet to send
FIPAddress: DWORD;
pReqData,pRevData: PChar;
pIPE: PIcmpEchoReply;// ICMP Echo reply buffer
FSize: DWORD;
MyString: string;
FTimeOut: DWORD;
BufferSize: DWORD;

i: DWORD;
ret: integer;
begin
Synchronize(OnBegin);
reply := TPingReply.Create; // must be created.

FSize := 40;
BufferSize := SizeOf(TICMPEchoReply) + FSize;
GetMem(pRevData,FSize);
GetMem(pIPE,BufferSize);
FillChar(pIPE^, SizeOf(pIPE^), 0);
pIPE^.Data := pRevData;
MyString := 'a';
pReqData := PChar(MyString);
FillChar(IPOpt, Sizeof(IPOpt), 0);
IPOpt.TTL := 64;
FTimeOut := TimeOut;

for i:=IP1 to IP2 do
begin

//去掉x.x.x.0或x.x.x.255的地址。
if (((i - 255) mod 256)=0)or((i mod 256)=0) then continue;

FIPAddress := htonl(i);
CurrentIP := inet_ntoa(in_addr(FIPAddress));
Synchronize(OnSend);
ret := IcmpSendEcho(hICMP, FIPAddress, pReqData, Length(MyString), @IPOpt, pIPE, BufferSize, FTimeOut);
if (ret<>0)and(pReqData^ = pIPE^.Options.OptionsData^) then
begin
reply.IP := CurrentIP;
reply.bytes := IntToStr(pIPE^.DataSize);
reply.RTT := IntToStr(pIPE^.RTT);
//if assigned(OnRecvEvent) then OnRecvEvent(reply);
Synchronize(OnReply);
end;

if exit_ping_thread then break;

end;

FreeMem(pRevData);
FreeMem(pIPE);

Synchronize(OnEnd);
end;

end.

[hnhb]

如果机器装了防火墙，设了不允许局域网内的机器ping，那该如何办呢？？

[luckyboy97]

这个要求也太高了，我水平差，不过我第一个来帮你顶
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

[menggirl]

如何使用WinAPI来查找LAN中所有的计算机？


回答:
调用FindComputers，返回WinAPI错误代码（如果有的话）。这个函数将会在TStringList类型的Computers对象中填入计算机名称。

以下代码是在Delphi5上开发的，但是应该是向后兼容的。

Answer:


unit FindComp;

interface

uses
Windows, Classes;

function FindComputers: DWORD;

var
Computers: TStringList;

implementation

uses
SysUtils;

const
MaxEntries = 250;

function FindComputers: DWORD;

var
EnumWorkGroupHandle, EnumComputerHandle: THandle;
EnumError: DWORD;
Network: TNetResource;
WorkGroupEntries, ComputerEntries: DWORD;
EnumWorkGroupBuffer, EnumComputerBuffer: array[1..MaxEntries] of TNetResource;
EnumBufferLength: DWORD;
I, J: DWORD;

begin

Computers.Clear;

FillChar(Network, SizeOf(Network), 0);
with Network do
begin
dwScope := RESOURCE_GLOBALNET;
dwType := RESOURCETYPE_ANY;
dwUsage := RESOURCEUSAGE_CONTAINER;
end;

EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @Network, EnumWorkGroupHandle);

if EnumError = NO_ERROR then
begin
WorkGroupEntries := MaxEntries;
EnumBufferLength := SizeOf(EnumWorkGroupBuffer);
EnumError := WNetEnumResource(EnumWorkGroupHandle, WorkGroupEntries, @EnumWorkGroupBuffer, EnumBufferLength);

if EnumError = NO_ERROR then
begin
for I := 1 to WorkGroupEntries do
begin
EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @EnumWorkGroupBuffer[I], EnumComputerHandle);
if EnumError = NO_ERROR then
begin
ComputerEntries := MaxEntries;
EnumBufferLength := SizeOf(EnumComputerBuffer);
EnumError := WNetEnumResource(EnumComputerHandle, ComputerEntries, @EnumComputerBuffer, EnumBufferLength);
if EnumError = NO_ERROR then
for J := 1 to ComputerEntries do
Computers.Add(Copy(EnumComputerBuffer[J].lpRemoteName, 3, Length(EnumComputerBuffer[J].lpRemoteName) - 2));
WNetCloseEnum(EnumComputerHandle);
end;
end;
end;
WNetCloseEnum(EnumWorkGroupHandle);
end;

if EnumError = ERROR_NO_MORE_ITEMS then
EnumError := NO_ERROR;
Result := EnumError;

end;

initialization

Computers := TStringList.Create;

finalization

Computers.Free;

end.

[aiirii]

>>如果机器装了防火墙，设了不允许局域网内的机器ping，那该如何办呢？？
那也许本身就没有的判断对方存在的标准机制

如果要求 100 台在 10秒完成可能性大点
一台的，还是用ping, 设置超时，超过一秒就当不在？？？

[sharkhuang]

ping ttl = 1

[fbysss]

如果机器关机了怎么办？
要用ADSI吧。

[huojiehai]

机器关了就当不存在!!

[huojiehai]

Ping的方法是行不通的,超时设置少于一秒就不好使了

[ckc]

不可能的任务。
别说1秒，10秒都不见得判断得出来。
而且，什么叫这个IP在局域网内是否存在啊，我觉得这个说法本身就是不严谨的，
如果有一台机器只响应特定的服务，把不需要的服务全部关闭了，
你扫描都不见得扫描出这台机器，更别说判断了

[huojiehai]

其实我是想做这样一个功能的：
给定一个IP段，确定有多少IP是正在使用的。我现在的方法是：先取出整个局域网内的所有机器IP，再和给定的IP段的IP比较，这样如果给定的IP段比较大的话，相对速度还是比较快的，如果IP段比较小的话，不合算,因为取出整个局域网内的所有机器IP这个过程可能需要较长时间。
我看了CCprocy代理的自动扫描功能，做得挺好的，速度还可以，不知他们是怎么做的，有做过这方面的朋友给个想法啊？

[huojiehai]

To ckc(火) :
我说明一下:我的情况是假设网络状态正常,结构良好,某台机不存在把特定服务关了,如果真是这样,这台机器不在考滤范围内.

[飞天揽月]

悬

[蓝色光芒]

用IP包的方法，无论对方是否有防火墙，是否开了某某端口，都一样。
TCP连接的3步：
第一步：客户端发出谁是这个IP的询问，然后等待
第二步：被询问的机器马上作出回应（应该是不能通过防火墙屏蔽这一步的）
第三步：连接。
我们只需要监听是否有第二步是否发生就行了。
不过小心别D到对方了（DDOS）

[cnhgj]

友情up

[huojiehai]

大家再帮看看

[huojiehai]

难道没答案吗？