|
楼主 |
发表于 2022-4-1 21:36:34
|
显示全部楼层
上海市上海市
.版本 2
.支持库 EThread
.支持库 internet
.支持库 spec
.程序集 窗口程序集2
.子程序 _按钮1_被单击
启动线程 (&连接服务器, , )
.子程序 _按钮3_被单击
启动线程 (&上传文件, , )
.子程序 _按钮2_被单击, , , 断开FTP服务器
断开FTP服务器 ()
.子程序 连接服务器, , , 连接服务器
.如果 (连接FTP服务器 (“ftp.cname-cdn.com”, “zhangyuwei”, “密码”, 1032, 真) = 真) ' 连接服务器,,,,,,,,
_启动窗口.标题 = “连接成功!”
调试输出 (“连接成功!”)
.否则
_启动窗口.标题 = “连接失败!”
调试输出 (“连接失败!”)
.如果结束
.子程序 上传文件, , , 上传文件
.如果 (FTP文件上传 (“C:\Users\Administrator\Desktop\666.txt”, “/666.txt”, ) = 真) ' 上传文件,,,,,,,,,
_启动窗口.标题 = “上传成功”
调试输出 (“上传成功”)
.否则
_启动窗口.标题 = “上传失败”
调试输出 (“上传失败”)
.如果结束
.子程序 __启动窗口_创建完毕
|
|