以下多线程调试正常,编译后崩溃,泹若以XP兼容模式运行也正常 ( 系统:Win7+易5.11 )
.子程序 子线程Ping主机
.参数 线程句柄索引, 整数型
.局部变量 索引, 整数型
.局部变量 I, 整数型
.局部变量 通信结果, 逻辑型
.局部变量 已结束, 逻辑型
.判断循环首 (取数组成员数 (Ping主机数组) ≠ 0)
进入许可区 (许可证Ping主机) 退出许可区 (许可证Ping主机)
.如果真 (已结束 = 真)
进入许可区 (許可证Ping主机)
.如果 (通信结果 ≠ 假)
索引 = 超级列表框绑定数据库.插入表项 (超级列表框绑定数据库.取表项数 (), 记录 [1], 2, , , )
超级列表框绑定数据库.置标题 (索引, I, 记录 [I + 1])
超级列表框绑定数据库.置图片 (索引, 1, 1)
开机总数 = 开机总数 + 1
索引 = 超级列表框绑定数据库.插入表项 (超级列表框绑定数据库.取表项数 (), 記录 [1], 3, , , )
超级列表框绑定数据库.置标题 (索引, I, 记录 [I + 1])
超级列表框绑定数据库.置图片 (索引, 1, 1)
超级列表框绑定数据库.保证显示 (索引)
超级列表框绑定数据庫.置列标题 (1, “MAC地址 ( ” + 到文本 (开机总数) + “ 在线” + “)”)
进度条2.位置 = 已Ping主机数 × 100 ÷ (欲扫描的主机总数索引 + 1)
透明标签Ping主机进度.标题 = 到攵本 (进度条2.位置) + “%(” + 到文本 (已Ping主机数) + “/” + 到文本 (欲扫描的主机总数索引 + 1) + “)”
超级列表框绑定数据库.置列标题 (0, “IP地址” + “(” + 到文本 (超级列表框绑定数据库.取表项数 ()) + “条记录” + “)”)
退出许可区 (许可证Ping主机)
.参数 IP地址, 文本型
.参数 等待时间, 整数型, , 毫秒
.参數 发送包的次数, 整数型, 可空, 默认为4次
.局部变量 Icmp句柄, 整数型
.局部变量 目的地址, 整数型
.局部变量 要发送的内容, 文本型
.局部变量 是否有应答, 逻辑型
.局部变量 I, 整数型
.参数 主机IP, 文本型
.局部变量 文件号, 整数型
.局部变量 临时文件名, 文本型
.局部变量 一行内容, 文本型
.局部变量 返回值, 逻辑型
临时攵件名 = 取临时文件名 ()
文件号 = 打开文件 (临时文件名, #读入, #禁止读写)
.判断循环首 (是否在文件尾 (文件号, 真) ≠ 真)
一行内容 = 读入一行 (文件号)
删除攵件 (临时文件名)
|