易语言如何搜出已连到本机机器的ip

Question

能像这个就好了。这是个网络摄像机搜ip的软件。我要易语言的

Answer 1

哈，这个前段时间我也在弄，请教了好多人都没有方法。

最后自己摸索用了一个windows命令行下的命令结合易来用。
命令行命令是：netstat -an 这是显示所有和本机有过连接的计算机IP和端口。当然这是原始数据，要你自己筛选了。用了一段时间之后发现这个方法很繁琐而且有点影响效率，于是摸索最后在易的支持库中发现了一个命令：“原始套接字”根据这个命令得到的连接IP和netstat -an 得到的一样。

兄弟在做什么呢？是否是流量统计软件，还是？有没有兴趣一起？追问

有源码吗？让我参考参考
先谢了

追答

netstat -an 这个是在命令行下的命令，具体你在桌面开始运行里面输入这段命令就可以看到连入你电脑的计算机IP地址及端口等！

在易语言里面的话要结合“运行”这个命令.
比如: 运行 (“cmd /c netstat -an >d:\1.txt”, 假, #隐藏窗口)
上面这段就是让易语言取执行一条命令行命令，命令内容是执行netstat -an 并保存到d盘的1.txt中，隐藏窗口运行。

原始套接字相对来说要麻烦一点，这里我临时写了一段。你可以拿去参考。具体筛选代码就靠你自己去写了。
.版本 2
.支持库 EThread
.支持库 ERawSock
.支持库 spec
.程序集 窗口程序集1
.程序集变量 许可证, 整数型
.程序集变量 是否退出, 逻辑型
.子程序 _按钮1_被单击
许可证 ＝ 创建进入许可证 ()
启动线程 (&接收子程序, , )
.子程序 接收子程序
.局部变量 原始套接字, 原始套接字
.局部变量 IP报头, IP报头
.局部变量 数据, 字节集
进入许可区 (许可证)
.判断循环首 (是否退出 ＝ 假)
数据 ＝ 原始套接字.接收 ()
原始套接字.取IP报头 (数据, IP报头)
编辑框1.加入文本 (到文本 (IP报头.源IP地址) ＋ “ ” ＋ 到文本 (IP报头.目的IP地址) ＋ #换行符)
.判断循环尾 ()
退出许可区 (许可证)
.子程序 __启动窗口_将被销毁
是否退出 ＝ 真
删除进入许可证 (许可证)
延迟 (300)
销毁 ()