请各位兄弟,版主,大家帮帮忙,谢谢了,有关操作FTP的API的问题。
我用的API操作FTP的时候,打开Interenet正常 ,为什么连接不上呢,用户名正确,密码正确,端口是21,服务是1,IP地址也正确。
API函数声明如下:
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
'连接FTP操作
Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Long, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Function OpenInternet() As Boolean
hOpen = InternetOpen("ftpIn2english", INTERNET_OPEN_TYPE_PERCONFIG, vbNullString, vbNullString, 0&)
If hOpen = 0 Then
MsgBox "打开网络失败,网络不通"
OpenInternet = False
Else
OpenInternet = True
End If
End Function
Public Function OpenConnection() As Long
Dim temp As Long
If hConnection <> 0 Then
InternetCloseHandle hConnection
End If
temp = InternetConnect(hOpen, "ftpIn2english", 0, "fibona", "fibonaxiong", 1, 1, 0)
'hConnection = InternetConnect(hOpen, "202.205.174.12", 0, "fibona", "fibonaxiong", 1, 0, 0)
If temp <> 0 Then
OpenConnection = temp
Else
ErrorOut Err.LastDllError, "internet Connection"
OpenConnection = 0
Exit Function
End If
End Function
为什么temp的值是0,就是连不上主机呀,返回信息也没有,请各位指点一下。谢谢了