FTP服务器检测

宅男

[e].版本 2[/e].版本 2

.程序集 窗口程序集1
.程序集变量 检测状态, 逻辑型

.子程序 _按钮1_被单击
.局部变量 启动时间, 整数型
.局部变量 线程ID, 整数型
.局部变量 超时, 整数型

' 超时值定为4秒,时间越短,越有可能误判
超时 ＝ 4 × 1000

启动时间 ＝ 取启动时间 ()
输出调试文本 (“启动  ” ＋ 到文本 (启动时间))
检测状态 ＝ 假

' 采取创建线程异步连接方式,保证主程序不被阻塞
线程ID ＝ 创建线程 (0, 0, &FTP服务检测, 0, 0, 线程ID)

' 超时判断。如果服务器测试通过就提前跳出循环
.判断循环首 (取启动时间 () － 启动时间 ＜ 超时 且 检测状态 ＝ 假)
    处理事件 ()
.判断循环尾 ()

.如果 (检测状态 ＝ 假)
    输出调试文本 (“失败   ” ＋ 到文本 (取启动时间 ()))
    ' 强行中止线程
    销毁线程 (线程ID, 0)
    返回 ()
.否则
    输出调试文本 (“成功    ” ＋ 到文本 (取启动时间 ()))
.如果结束


.子程序 FTP服务检测

.如果 (客户1.连接 (“1.1.1.1”, 21) ＝ 假)
    检测状态 ＝ 假
.否则
    客户1.断开连接 ()
    检测状态 ＝ 真
.如果结束

謝雨聽風

图挂掉了 ！反正我是看不到

伤残

图挂了啊。。

天天开心

貌似真挂了，是个叉叉

易魂

希望不会让我失望{:3_232:}

复苏之魔

没看到图那

bdhf