您所在位置：主题：[原创]VF自动更新程序，下载很慢，关且提示检查密码，请指教
hzhzg
[专家分：0] 发布于 2008-05-27 08:28:00
#Define INTERNET_INVALID_PORT_NUMBER 0
#Define INTERNET_OPEN_TYPE_DIRECT 1
#Define INTERNET_OPEN_TYPE_PROXY 3
#Define INTERNET_DEFAULT_FTP_PORT 21
#Define INTERNET_FLAG_ASYNC 268435456 && &H10000000
#Define INTERNET_FLAG_FROM_CACHE 16777216 && &H1000000
#Define INTERNET_FLAG_OFFLINE 16777216
#Define INTERNET_FLAG_CACHE_IF_NET_FAIL 65536 && &H10000
#Define INTERNET_OPEN_TYPE_PRECONFIG 0
#Define FTP_TRANSFER_TYPE_ASCII 1
#Define FTP_TRANSFER_TYPE_BINARY 2
#Define INTERNET_SERVICE_FTP 1
#Define INTERNET_SERVICE_GOPHER 2
#Define INTERNET_SERVICE_HTTP 3
#Define FILE_ATTRIBUTE_NORMAL 128 && 0x00000080
Declare INTEGER InternetOpen IN wininet STRING sAgent, INTEGER lAccessType, STRING sProxyName,;
STRING sProxyBypass, STRING lFlags
Declare INTEGER InternetCloseHandle IN wininet INTEGER hInet
Declare INTEGER InternetConnect IN wininet;
INTEGER hInternetSession, STRING sServerName,;
INTEGER nServerPort, STRING sUsername,;
STRING sPassword, INTEGER lService,;
INTEGER lFlags, INTEGER lContext
Declare INTEGER FtpGetFile IN wininet;
INTEGER hFtpSession, STRING lpszRemoteFile,;
STRING lpszNewFile, INTEGER fFailIfExists,;
INTEGER dwFlagsAndAttributes,;
INTEGER dwFlags, INTEGER dwContext
sAgent = "var1"
sProxyName = Chr(0)
sProxyBypass = Chr(0)
lFlags = 0
hOpen = InternetOpen (sAgent, INTERNET_OPEN_TYPE_DIRECT,;
sProxyName, sProxyBypass, lFlags)
If hOpen = 0
=MESSAGEBOX("找不到库 WinInet.Dll 的入口",16," 警告")
Return
Endif
*在此修改自己的FTP服务器数据
strHost = "ftp://222.88.133.29/" &&存放升级文件的FTP服务器地址
*!* strHost = "ftp.222.88.133.29" &&存放升级文件的FTP服务器地址
strUser = "bjy" &&升级的FTP用户名
strPwd = "123" &&FTP用户密码
hFtpSession = InternetConnect (hOpen, strHost,;
INTERNET_INVALID_PORT_NUMBER,;
strUser, strPwd,;
INTERNET_SERVICE_FTP, 0, 0)
If hFtpSession = 0
= InternetCloseHandle (hOpen)
=MESSAGEBOX("找不到指定的服务器",16," 警告")
Return
Endif
*以下设置FTP的路径和文件名
lpszRemoteFile = "/123.txt" && FTP上的路径和文件名
lpszNewFile = "./123.txt" && 下载到本地的路径和文件名，默认在同一目录中
fFailIfExists = 0 && 如果此文件已经存在，直接进行覆盖，不提问
dwContext = 0
lnResult = FtpGetFile (hFtpSession, lpszRemoteFile, lpszNewFile,;
fFailIfExists, FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_ASCII,;
dwContext) &&在此处很慢，几分钟才行，最近还出错,让检查密码
= InternetCloseHandle (hFtpSession)
= InternetCloseHandle (hOpen)
If lnResult # 1
=MESSAGEBOX("升级失败！请检查用户名和密码是否正确。",16," 警告")
ELSE
=MESSAGEBOX("升级成功！请退出升级程序。",64," 提示")
thisform.Release &&升级成功可自动离开表单
Endif
Return
请大侠指教为什么总提示找不到指定的服务器
#Define INTERNET_OPEN_TYPE_DIRECT 1
#Define INTERNET_OPEN_TYPE_PROXY 3
#Define INTERNET_DEFAULT_FTP_PORT 21
#Define INTERNET_FLAG_ASYNC 268435456 && &H10000000
#Define INTERNET_FLAG_FROM_CACHE 16777216 && &H1000000
#Define INTERNET_FLAG_OFFLINE 16777216
#Define INTERNET_FLAG_CACHE_IF_NET_FAIL 65536 && &H10000
#Define INTERNET_OPEN_TYPE_PRECONFIG 0
#Define FTP_TRANSFER_TYPE_ASCII 1
#Define FTP_TRANSFER_TYPE_BINARY 2
#Define INTERNET_SERVICE_FTP 1
#Define INTERNET_SERVICE_GOPHER 2
#Define INTERNET_SERVICE_HTTP 3
#Define FILE_ATTRIBUTE_NORMAL 128 && 0x00000080
Declare INTEGER InternetOpen IN wininet STRING sAgent, INTEGER lAccessType, STRING sProxyName,;
STRING sProxyBypass, STRING lFlags
Declare INTEGER InternetCloseHandle IN wininet INTEGER hInet
Declare INTEGER InternetConnect IN wininet;
INTEGER hInternetSession, STRING sServerName,;
INTEGER nServerPort, STRING sUsername,;
STRING sPassword, INTEGER lService,;
INTEGER lFlags, INTEGER lContext
Declare INTEGER FtpGetFile IN wininet;
INTEGER hFtpSession, STRING lpszRemoteFile,;
STRING lpszNewFile, INTEGER fFailIfExists,;
INTEGER dwFlagsAndAttributes,;
INTEGER dwFlags, INTEGER dwContext
sAgent = "var1"
sProxyName = Chr(0)
sProxyBypass = Chr(0)
lFlags = 0
hOpen = InternetOpen (sAgent, INTERNET_OPEN_TYPE_DIRECT,;
sProxyName, sProxyBypass, lFlags)
If hOpen = 0
=MESSAGEBOX("找不到库 WinInet.Dll 的入口",16," 警告")
Return
Endif
*在此修改自己的FTP服务器数据
strHost = "ftp://222.88.133.29/" &&存放升级文件的FTP服务器地址
*!* strHost = "ftp.222.88.133.29" &&存放升级文件的FTP服务器地址
strUser = "bjy" &&升级的FTP用户名
strPwd = "123" &&FTP用户密码
hFtpSession = InternetConnect (hOpen, strHost,;
INTERNET_INVALID_PORT_NUMBER,;
strUser, strPwd,;
INTERNET_SERVICE_FTP, 0, 0)
If hFtpSession = 0
= InternetCloseHandle (hOpen)
=MESSAGEBOX("找不到指定的服务器",16," 警告")
Return
Endif
*以下设置FTP的路径和文件名
lpszRemoteFile = "/123.txt" && FTP上的路径和文件名
lpszNewFile = "./123.txt" && 下载到本地的路径和文件名，默认在同一目录中
fFailIfExists = 0 && 如果此文件已经存在，直接进行覆盖，不提问
dwContext = 0
lnResult = FtpGetFile (hFtpSession, lpszRemoteFile, lpszNewFile,;
fFailIfExists, FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_ASCII,;
dwContext) &&在此处很慢，几分钟才行，最近还出错,让检查密码
= InternetCloseHandle (hFtpSession)
= InternetCloseHandle (hOpen)
If lnResult # 1
=MESSAGEBOX("升级失败！请检查用户名和密码是否正确。",16," 警告")
ELSE
=MESSAGEBOX("升级成功！请退出升级程序。",64," 提示")
thisform.Release &&升级成功可自动离开表单
Endif
Return
请大侠指教为什么总提示找不到指定的服务器