Question

易语言 Ping

我想实现易语言ping 192.168.1.1 - 255
能通的IP放到1.txt，如果IP已经存在1.txt中就不添加。
不能通的IP放到2.txt，同上。

Answer 1

创建 按钮一个 名称默认
编辑框一个 名称默认
也不知道是不是你要的自己测试下吧
.版本 2
.程序集 窗口程序集1
.程序集变量 文件号, 整数型
.子程序 _按钮1_被单击
.局部变量 IP地址, 文本型
IP地址 ＝ 编辑框1.内容
按钮1.禁止 ＝ 真
.如果 (通信测试 (IP地址, ) ≠ -1)
子程序_文件是否昌桥存在 (“1.txt”, IP地址) ' 连接通畅
.否则
子程序_文件是否存在 (“2.txt”, IP地址) ' 连接断开
.如果结束

.子程序 子程序_文件是否存在
.参数 文件名, 文本型
.参数 IP地址, 文本型
.如果 (到文本 (读孝猜入文件 (取当前目录 () ＋ “\” ＋ 文件名)) ≠ “”)
文件号 ＝ 打开文件 (取当前目录 () ＋ “\” ＋ 文件名, #改读, #禁止读写)
子程序_文本是否有相同 (读入耐慎猛文本 (文件号, ), IP地址)
关闭文件 (文件号)
.否则
写到文件 (取当前目录 () ＋ “\” ＋ 文件名, 到字节集 (IP地址 ＋ #换行符))
.如果结束
按钮1.禁止 ＝ 假
.子程序 子程序_文本是否有相同
.参数 文本数据, 文本型
.参数 IP地址, 文本型
.如果真 (寻找文本 (文本数据, IP地址, , 假) ＝ -1)
插入文本行 (文件号, IP地址)
.如果真结束

追问

不管IP通不通都是在1.txt
..........

追答

不会啊 我测试的好好的啊

追问

我这是局域网环境。
运行的时候提示 文件号 不存在，然后我创建了文件号的全局变量，整数型。就可以运行了。
输入可以通的IP一瞬间就完成了，并记录到1.txt去了。
输入不能通的IP按钮被禁用的时间久一点，然后也是记录到1.txt去了。。。

追答

我用100个IP 测试下 要是真有问题 我换个思路写