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