局域网 如何确保: 转换为IP地址 (计算机名称)

ai2023

如题:局域网有的设备 计算机名称 一样

  

转换为IP地址 (计算机名称)

转换为IP地址 (计算机名称)

有没有比如取mac地址转化ip的思路.

xjqgccq0

ai2023 发表于 2024-1-5 19:19
大佬，可否发个e文件，缺： IP_取下一个IP

已上传

ai2023

xjqgccq0 发表于 2024-1-5 09:08
模块: 1精易模块   2子网掩码换算

[e=0].版本 2

大佬，可否发个e文件，缺： IP_取下一个IP

xjqgccq0

模块: 1精易模块   2子网掩码换算

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
nei网探测线程数	整数型
nei网探测许可	整数型
nei网探测线程句柄	整数型
nei网探测线程表	整数型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
nei网探测主线程
参数名	类 型	参考	可空	数组	备 注
线程数	整数型

变量名	类 型	静态	数组	备 注
bool	逻辑型
IP1	文本型
IP2	文本型
address	整数型
temp

清除数组 (nei网探测线程表)
nei网探测线程数 ＝ 0
IP1 ＝ “90.20.88.200”
IP2 ＝ “90.20.88.254”
bool ＝ 真
判断循环首 (bool)
判断循环首 (nei网探测线程数 ≥ 线程数)
Sleep (100)
判断循环尾 ()
address ＝ 申请内存 (15, )
写到内存 (IP1, address, 15)
启动线程 (&nei网探测子线程, address, temp)
加入成员 (nei网探测线程表, temp)
nei网探测线程数 ＝ nei网探测线程数 ＋ 1
如果 (IP1 ＝ IP2)
跳出循环 ()
IP1 ＝ IP_取下一个IP (IP1)
延时 (10)  ' 给线程处理时间
判断循环尾 ()

子程序名	返回值类型	公开	备 注
nei网探测子线程
参数名	类 型	参考	可空	数组	备 注
参数	整数型

变量名	类 型	静态	数组	备 注
time	整数型
ip	文本型
表项	整数型
MAC	文本型
MAC_	文本型		0
n	整数型

ip ＝ 指针到文本 (参数)
MAC ＝ 系统_取MAC地址 (ip)
判断 (MAC ≠ “”)
调试输出 (ip, 系统_取远程机器名 (ip), 系统_取MAC地址 (ip), )


进入许可区 (nei网探测许可)
nei网探测线程数 ＝ nei网探测线程数 － 1
退出许可区 (nei网探测许可)
释放内存 (参数)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

启动线程 (&nei网探测主线程, 到整数 (100), nei网探测线程句柄)

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 nei网探测线程数, 整数型<br /> .程序集变量 nei网探测许可, 整数型<br /> .程序集变量 nei网探测线程句柄, 整数型<br /> .程序集变量 nei网探测线程表, 整数型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 nei网探测主线程<br /> .参数 线程数, 整数型<br /> .局部变量 bool, 逻辑型<br /> .局部变量 IP1, 文本型<br /> .局部变量 IP2, 文本型<br /> .局部变量 address, 整数型<br /> .局部变量 temp<br /> <br /> 清除数组 (nei网探测线程表)<br /> nei网探测线程数 ＝ 0<br /> IP1 ＝ “90.20.88.200”<br /> IP2 ＝ “90.20.88.254”<br /> bool ＝ 真<br /> .判断循环首 (bool)<br />     .判断循环首 (nei网探测线程数 ≥ 线程数)<br />         Sleep (100)<br />     .判断循环尾 ()<br />     address ＝ 申请内存 (15, )<br />     写到内存 (IP1, address, 15)<br />     启动线程 (&nei网探测子线程, address, temp)<br />     加入成员 (nei网探测线程表, temp)<br />     nei网探测线程数 ＝ nei网探测线程数 ＋ 1<br />     .如果 (IP1 ＝ IP2)<br />         跳出循环 ()<br />     .否则<br />         IP1 ＝ IP_取下一个IP (IP1)<br />     .如果结束<br />     延时 (10)  ' 给线程处理时间<br /> .判断循环尾 ()<br /> <br /> .子程序 nei网探测子线程<br /> .参数 参数, 整数型<br /> .局部变量 time, 整数型<br /> .局部变量 ip, 文本型<br /> .局部变量 表项, 整数型<br /> .局部变量 MAC, 文本型<br /> .局部变量 MAC_, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> <br /> ip ＝ 指针到文本 (参数)<br /> MAC ＝ 系统_取MAC地址 (ip)<br /> .判断开始 (MAC ≠ “”)<br /> <br />     调试输出 (ip, 系统_取远程机器名 (ip), 系统_取MAC地址 (ip), )<br /> .默认<br /> <br /> .判断结束<br /> 进入许可区 (nei网探测许可)<br /> nei网探测线程数 ＝ nei网探测线程数 － 1<br /> 退出许可区 (nei网探测许可)<br /> 释放内存 (参数)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&nei网探测主线程, 到整数 (100), nei网探测线程句柄)

ai2023

linby 发表于 2023-12-1 10:52
嗯，可以自己做一个功能。 识别网段。然后多线程往网段里面的地址投递信息触发arp。然后通过取cmd结果来 ...

做出来了function:mac2ip

  

str ＝ 系统_取DOS执行结果 (“arp -a”, )
返回 (文本_删首尾空 (文本_取出中间文本 (str, #换行符, mac, 寻找文本 (str, mac, , 假) － 45)))

str ＝ 系统_取DOS执行结果 (“arp -a”, )<br /> 返回 (文本_删首尾空 (文本_取出中间文本 (str, #换行符, mac, 寻找文本 (str, mac, , 假) － 45)))

linby

ai2023 发表于 2023-11-30 18:34
是的，物理地址跟ip是对应的，易里边没有物理地址转ip的方法，模块里没搜到 ...

嗯，可以自己做一个功能。 识别网段。然后多线程往网段里面的地址投递信息触发arp。然后通过取cmd结果来识别

ai2023

linby 发表于 2023-11-30 17:50
知道一种方式，对网段内所有设备ping一次。然后取arp列表
windows命令 arp -a

是的，物理地址跟ip是对应的，易里边没有物理地址转ip的方法，模块里没搜到

linby

知道一种方式，对网段内所有设备ping一次。然后取arp列表
windows命令 arp -a