开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 2458|回复: 6
收起左侧

[易源码分享] FTP服务器检测

[复制链接]
结帖率:0% (0/2)
发表于 2010-12-27 14:31:39 | 显示全部楼层 |阅读模式   山东省潍坊市
分享源码
界面截图: -
是否带模块: -
备注说明: -
[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.断开连接 ()
    检测状态 = 真
.如果结束

结帖率:100% (9/9)
发表于 2010-12-27 14:57:11 | 显示全部楼层   黑龙江省哈尔滨市
图挂掉了 !反正我是看不到
回复 支持 反对

使用道具 举报

结帖率:82% (28/34)

签到天数: 1 天

发表于 2010-12-27 17:00:12 | 显示全部楼层   福建省泉州市
图挂了啊。。
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)
发表于 2010-12-27 17:15:10 | 显示全部楼层   湖南省长沙市
貌似真挂了,是个叉叉
回复 支持 反对

使用道具 举报

结帖率:40% (2/5)
发表于 2011-8-19 20:26:01 | 显示全部楼层   广东省珠海市
希望不会让我失望{:3_232:}
回复 支持 反对

使用道具 举报

结帖率:18% (2/11)
发表于 2012-1-5 12:12:59 | 显示全部楼层   四川省成都市
没看到图那
回复 支持 反对

使用道具 举报

头像被屏蔽
结帖率:0% (0/3)
发表于 2013-6-19 14:57:01 | 显示全部楼层   河北省唐山市
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表