易语言FTP上传源码分享
.版本 2
.支持库 EThread
.支持库 internet
.支持库 spec
.支持库 shell
.子程序 _按钮1_被单击
启动线程 (&连接服务器, , )
.子程序 _按钮3_被单击
启动线程 (&上传文件, , )
.子程序 _按钮2_被单击, , , 断开FTP服务器
断开FTP服务器 ()
.子程序 连接服务器, , , 连接服务器
.如果 (连接FTP服务器 (“主机”, “用户”, “密码”, , ) = 真) ' 连接服务器,,,,,,,,
_启动窗口.标题 = “连接成功!”
调试输出 (“连接成功!”)
.否则
_启动窗口.标题 = “连接失败!”
调试输出 (“连接失败!”)
.如果结束
.子程序 上传文件, , , 上传文件
.如果 (FTP文件上传 (取特定目录 (3) + “\1.txt”, “/web/1.txt”, ) = 真) ' 上传文件,,,,,,,,,
_启动窗口.标题 = “上传成功”
调试输出 (“上传成功”)
.否则
_启动窗口.标题 = “上传失败”
调试输出 (“上传失败”)
.如果结束
.子程序 __启动窗口_创建完毕
易语言ftp上传
易语言 ftp 源码
易语言下载ftp主机内容
易语言+取ftp+文件属性
易语言ftp上传源码
易语言上传文件到ftp
ftp易语言源码
易语言ftp源码
易语言 FTP文件上传