易语言扫描指定IP段的MAC信息源码.docx

易语言扫描指定IP段的MAC信息源码.docx

《易语言扫描指定IP段的MAC信息源码.docx》由会员分享，可在线阅读，更多相关《易语言扫描指定IP段的MAC信息源码.docx（11页珍藏版）》请在冰豆网上搜索。

易语言扫描指定IP段的MAC信息源码

启动窗口贴图

[DLL命令定义表]

.版本2

.DLL命令API_SendARP,整数型,"IPHLPAPI.DLL","SendARP"

.参数目标IP

.参数本机IP

.参数MAC缓冲,字节型,传址数组

.参数长度,,传址

.DLL命令API_inet_addr,整数型,"ws2_32.dll","inet_addr"

.参数IP,文本型

.DLL命令API_ntohl,整数型,"ws2_32.dll","ntohl"

.参数netlong,整数型

.DLL命令API_取整数型地址,整数型,"kernel32","lstrcpynA"

.参数lpString1,,传址

.参数lpString2,,传址

.参数iMaxLength

.DLL命令API_取字节型地址,整数型,"kernel32","lstrcpynA"

.参数lpString1,字节型,传址

.参数lpString2,字节型,传址

.参数iMaxLength

.DLL命令API_CopyMemory,,"kernel32","RtlMoveMemory"

.参数pDest,整数型

.参数pSrc,整数型

.参数ByteLen,整数型

.DLL命令API_inet_ntoa,整数型,"ws2_32.dll","inet_ntoa"

.参数IP

.DLL命令API_CreateThread,整数型,"kernel32.dll","CreateThread"

.参数lpThreadAttributes,整数型

.参数dwStackSize,整数型

.参数lpStartAddress,子程序指针

.参数lpParameter,整数型

.参数dwCreationFlags,整数型

.参数lpThreadId,整数型,传址

窗口程序集1

.版本2

.支持库iext

.程序集窗口程序集1

.程序集变量IP段,字节集

.程序集变量IP,文本型,,"0"

.程序集变量MAC,文本型,,"0"

.子程序_按钮1_被单击

IP段＝到字节集（API_inet_addr（编辑框1.内容））

IP段[4]＝0

重定义数组（IP,假,255）

重定义数组（MAC,假,255）

超级列表框1.全部删除（）

.计次循环首（到整数（编辑框2.内容）,）

API_CreateThread（0,0,&扫描,0,0,0）

.计次循环尾（）

.子程序扫描

.局部变量缓冲,字节型,,"6"

.局部变量地址,字节集

.局部变量当前IP

.局部变量I

当前IP＝标签1.调用反馈事件（#取IP,,真）

.判断循环首（当前IP≠0）

.如果真（API_SendARP（当前IP,0,缓冲,6）＝0）

地址＝到字节集（当前IP）

.计次循环首（6,I）

.如果真（缓冲[I]＜16）

MAC[地址[4]]＝MAC[地址[4]]＋“0”

.如果真结束

MAC[地址[4]]＝MAC[地址[4]]＋取十六进制文本（缓冲[I]）＋“-”

.计次循环尾（）

IP[地址[4]]＝指针到文本（API_inet_ntoa（当前IP））

MAC[地址[4]]＝取文本左边（MAC[地址[4]],17）

标签1.调用反馈事件（#完成,地址[4],）

.如果真结束

当前IP＝标签1.调用反馈事件（#取IP,,真）

.判断循环尾（）

.子程序_标签1_反馈事件,整数型

.参数参数一,整数型

.参数参数二,整数型

.局部变量行

.判断开始（参数一＝#取IP）

.如果（IP段[4]＝255）

返回（0）

.否则

IP段[4]＝IP段[4]＋1

返回（取字节集数据（IP段,#整数型,））

.如果结束

.判断（参数一＝#完成）

行＝超级列表框1.插入表项（,IP[参数二],,,,）

超级列表框1.置标题（行,1,MAC[参数二]）

.默认

.判断结束