nder: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer); var MyStream:TMemoryStream; mac_str:array[1..6]of byte; NumOfNames:byte; begin if numberbytes>0 then //如果接收的数据包字节数>0,则处理数据包 begin MyStream:=TmemoryStream.Create; try NMUDP1.readstream(MyStream); //把接收到的数据包,读到内存中 MyStream.Seek(56,SoFromBeginning);//定位至Number Of Names字段 MyStream.Read(NumOfNames,1); //获取 Number Of Names字段的值 MyStream.Seek(NumOfNames*18,soFromCurrent); //定位至Unit ID字段 MyStream.Read(mac_str[1],6); //获取Unit ID字段的值 edit4.Text:=inttohex(mac_str[1],2)+'-'+ //将目的主机的MAC地址格式化输出 inttohex(mac_str[2],2)+'-'+ inttohex(mac_str[3],2)+'-'+ inttohex(mac_str[4],2)+'-'+ inttohex(mac_str[5],2)+'-'+ inttohex(mac_str[6],2); finally MyStream.Free; end; end; end; 4结束语 这种方法的优点是:获取(扫描)MAC地址的效率较高。 一般针对某远程主机一次发送一个“UDP-NetBIOS-NS”询问包(当然具体发送几个,可以在程序中自己设定)即可,而不像其他也可获取MAC地址的方法,例如Winsock API函数Gethostbyaddr或者Netbios函数,执行的时候会发送多个“UDP-NetBIOS-NS”询问包,这样不但影响了获取速度,而且重复发送没必要。 当然,该方法除了可以获取MAC地址外,还可以很容易地获取远程主机的NetBIOS Name信息(即主机名、所在工作组等)。而且在本程序的基础上,也很容易地实现对指定IP地址段的MAC地址扫描,即批量获取MAC地址,不再赘述。
参考文献: [1].《Window网络编程技术》Anthory Jones,Jim Ohlund 上一页 [1] [2]
Tags:
|