开源删帖

功能说明:

本程序是一段使用易语言编写的网络工具代码，核心功能是实现对多个网络地址（IP 或域名）的批量连通性及延时测试。程序通过多线程技术提高检测效率，并对并发数量进行了严格的限制与管理。以下是基于代码逻辑的详细功能总结：

一、程序初始化与界面配置

程序在窗口创建完毕后（`__启动窗口_创建完毕`），会自动执行初始化操作。首先配置超级列表框，使其具备表格线并设置整行选择模式，界面上设立了两列信息："IP"用于显示目标地址，“延时”用于显示响应时间。随后，程序通过 `加入表项` 子程序预置了 100 个测试对象（模拟为百度相关域名），作为待检测的目标列表。

二、并发控制与线程管理

为了兼顾检测速度与系统稳定性，程序采用了多线程并发模型（依赖 `.支持库 EThread`）。

1. 参数设定：`设定变量` 子程序将全局超时设置为 1000 毫秒，最大并行线程数设定为 30。这意味着同一时刻最多只有 30 个线程在进行网络请求。

2. 流量控制：`开始检测` 子程序负责调度。它遍历列表中的每一个项目，并为每一项尝试启动一个检测线程。在启动前，它会进入一个判断循环，监控 `现行线程数` 是否已达到 `并行线程数` 的上限。如果已满，则强制延时等待，直到有线程释放资源。这有效避免了因瞬间发起过多请求导致的目标端被封禁或本地资源耗尽。

3. 任务同步：主线程会在所有检测子线程全部结束前保持等待（`判断循环首 (现行线程数 ≠ 0)`），确保在所有任务完成后再向用户弹出“所有任务执行完毕”的提示框。

三、检测线程具体执行逻辑

`检测线程` 是实际执行网络测试的核心工作单元，接收参数为表项索引。其工作流程如下：

1. 资源锁定：进入“许可区”（互斥锁机制），增加 `现行线程数` 计数，确保统计准确且不被并发修改干扰。

2. 状态更新：将列表中对应行的延时列标记为“检测中..."，为用户提供即时视觉反馈。

3. 网络测试：调用 `通信测试` 函数（代码片段中未定义具体实现，但逻辑上应为 Ping 或 Socket 连接），传入目标地址和全局超时设置，获取响应时间并转为文本格式。

4. 结果回写：再次进入许可区，将检测结果写入列表框对应位置。若当前索引超过记录的最大可见范围，会自动调整视图滚动条以便查看最新结果。

5. 清理现场：减少 `现行线程数` 计数并退出许可区，标志该线程任务终结。

四、总结

总体而言，这是一个典型的批量网络监测脚本。其特点在于利用了易语言的线程库进行非阻塞式检测，并通过自定义的计数器与许可区机制实现了安全的线程池管理。适用于需要快速筛选可用节点、测试服务器响应速度或进行大规模网络可达性排查的场景。代码结构清晰，分离了界面交互、调度逻辑与实际测试逻辑，具备良好的可扩展性。

======窗口程序集1

           |  |

           |  |------ __启动窗口_创建完毕

           |  |

           |  |------ 设定变量

           |  |

           |  |------ 初始化表格

           |  |

           |  |------ 加入表项

           |  |

           |  |------ 加入一个IP

           |  |

           |  |------ 开始检测

           |  |

           |  |------ 检测线程