局域网查看在线主机软件

程序使用说明：
1、仅支持区域搜索，即，尾IP为1-255。
2、延迟设置，默认为100毫秒。
3、“只显示在线主机”，用来在列表中显示局域网在线的主机。
4、增加Ping操作。

在线主机数.标题 ＝ “正在进行Ping操作……”
连通次数.内容 ＝ 到文本 (取绝对值 (到整数 (连通次数.内容)))
.如果真 (到整数 (连通次数.内容) ＝ 0)
连通次数.内容 ＝ “3”
.如果真结束
.如果真 (网络地址.内容 ＝ “”)
在线主机数.标题 ＝ “网络地址为空，不能进行Ping操作。”
Ping.禁止 ＝ 假
搜索.禁止 ＝ 假
返回 ()
.如果真结束
次数 ＝ 到整数 (连通次数.内容)
进度.位置 ＝ 1
进度.最大位置 ＝ 次数
.计次循环首 (次数, I)
在线主机数.标题 ＝ “正在进行Ping操作，当前第” ＋ 到文本 (I) ＋ “次。”
处理事件 ()
当前 ＝ 通信测试 (网络地址.内容, )
.如果真 (当前 ≠ -1)
连通数 ＝ 连通数 ＋ 当前
P次数 ＝ P次数 ＋ 1
.如果真结束
进度.位置 ＝ 进度.位置 ＋ 1
.计次循环尾 ()
.如果 (P次数 ＝ 0)
在线主机数.标题 ＝ “-_-|| 网络主机当前不在线。”
.否则
在线主机数.标题 ＝ “完成Ping操作：共” ＋ 到文本 (P次数) ＋ “次，平均：” ＋ 到文本 (连通数 ＼ P次数) ＋ “ms。”