3

我想列出所有连接到我的路由器的 MAC 地址，我知道这是可能的，因为我已经看到它完成了。

我认为所有应用程序都为此目的使用 WinPcap 有没有办法可以将它与我的 delphi 应用程序接口？

4

2 回答 2

8

有几种方法可以做到这一点。首先是通过 SNMP 连接到路由器并读取 atTable (1.3.6.1.2.1.3.1)。这将为您提供与 MAC 地址匹配的 IP 地址列表。您可以使用Synapse中的 SNMP 功能来读取该表。要连接到运行 SNMPv1 或 SNMPv2c 的路由器，您需要正确的读取社区字符串。对于 SNMPv3，您将需要正确的身份验证详细信息。

另一种方法是使用 ARP。要发送 ARP 请求，您可以使用 iphlpapi dll。这是一些可以帮助您入门的代码。

unit MyARP

interface

uses
  Windows, Classes, SysUtils, WinSock;

function SendARP(DestIp: DWORD; srcIP: DWORD; pMacAddr: pointer; PhyAddrLen: Pointer): DWORD;stdcall; external 'iphlpapi.dll';
function MySendARP(const IPAddress: String): String;

implementation

function MySendARP(const IPAddress: String): String;
var
  DestIP: ULONG;
  MacAddr: Array [0..5] of Byte;
  MacAddrLen: ULONG;
  SendArpResult: Cardinal;
begin
  DestIP := inet_addr(PAnsiChar(AnsiString(IPAddress)));
  MacAddrLen := Length(MacAddr);
  SendArpResult := SendARP(DestIP, 0, @MacAddr, @MacAddrLen);

  if SendArpResult = NO_ERROR then
    Result := Format('%2.2X:%2.2X:%2.2X:%2.2X:%2.2X:%2.2X',
                     [MacAddr[0], MacAddr[1], MacAddr[2],
                      MacAddr[3], MacAddr[4], MacAddr[5]])
  else
    Result := '';
end;

end.

此方法仅适用于您的本地子网。

于 2011-12-14T21:31:39.023 回答
0

您必须查询路由器本身，通常使用 SNMP 或 uPNP，假设路由器一开始就支持这样的查询。

于 2011-12-14T21:24:40.180 回答