一键连接指定服务器例程

hSession ＝ 打开Internet_ (“”, 0, 字符 (0), 字符 (0), 0)
.如果真 (hSession ＝ 0)
调试输出 (“打开Internet失败,错误代码：” ＋ 到文本 (取错误信息_ ()))
.如果真结束
hFtp ＝ InternetConnect (hSession, “114.80.210.113”, 21, “meigui1758”, “meigui”, #INTERNET_SERVICE_FTP, #INTERNET_FLAG_PASSIVE, 0) ' 申请的是一个免费的FTP空间半个月后过期
.如果真 (hFtp ＝ 0)
调试输出 (“连接FTP失败，错误代码：” ＋ 到文本 (取错误信息_ ()))
关闭Internet句柄_ (hFtp)
.如果真结束
FtpPath ＝ 取空白文本 (#MAX_PATH)
FtpGetCurrentDirectory (hFtp, FtpPath, 260)
FirsFile ＝ FtpFindFirstFile (hFtp, “*.*”, PFile, 0, 0)
.循环判断首 ()
列表框1.加入项目 (复制字符串_Byte (PFile.cFileName, 0, 0), )
.循环判断尾 (InternetFindNextFile (FirsFile, PFile) ≠ 0)