易语言迷你FTP的源代码

易语言迷你FTP源码: .版本 2 .支持库 internet .子程序 _登录按钮_被单击 .局部变量 登录成功, 逻辑型 状态标签.标题 ＝ “正在登录,请稍候...” 状态标签.刷新显示 () 置代理服务器 (代理服务器编辑框.内容) .如果 (匿名登录选择框.选中 ＝ 真) 登录成功 ＝ 连接FTP服务器 (地址编辑框.内容, , , 到数值 (端口编辑框.内容), ) .否则 登录成功 ＝ 连接FTP服务器 (地址编辑框.内容, 用户名编辑框.内容, 密码编辑框.内容, 到数值 (端口编辑框.内容), ) .如果结束 .如果 (登录成功 ＝ 假) 状态标签.标题 ＝ “登录FTP服务器失败!” .否则 销毁 ()