类_ftp 连接命令应该再加上一个 是否被动语义 被动模式参数

wjt741106

.版本 2
.子程序 连接FTP服务器, 逻辑型, 公开, 连接FTP服务器；
.参数 FTP服务器地址, 文本型
.参数 用户名, 文本型, 可空
.参数 密码, 文本型, 可空
.参数 端口号, 整数型, 可空
.参数 是否被动语义, 逻辑型, 可空, 为空，默认为被动模式        ---------------------》  应该加上这个参数，允许选择FTP连接模式。我测试过，在某些被动模式FTP服务器，没有这个参数，不能正常下载文件 ，不知道是否有这个必要，请专家考证
.如果真 (是否为空 (用户名))
    用户名 ＝ “anonymous”
.如果真结束
.如果真 (是否为空 (密码))
    密码 ＝ 字符 (0)
.如果真结束
.如果真 (是否为空 (端口号))
    端口号 ＝ 21
.如果真结束
初始句柄 ＝ InternetOpenA (字符 (0), 1, 字符 (0), 字符 (0), 0)
' 连接句柄 ＝ InternetConnectA (初始句柄, FTP服务器地址, 端口号, 用户名, 密码, 1, 0, 0)
连接句柄 ＝ InternetConnectA (初始句柄, FTP服务器地址, 端口号, 用户名, 密码, 1, 选择 (是否被动语义, 134217728, 0), 0)
.如果真 (连接句柄 ≠ 0)
    返回 (真)
.如果真结束
断开FTP服务器 ()
返回 (假)

项目部002

已加入，请于下次更新后下载新版。