не могу подконнектиться по ftp и скачать файл
Создал страницу на народе: http//www.myname.narod.ru .Закрнул туда каталоги для скачки.
Для того, чтобы скачать оттуда нужное по ftp протоколу написал следующий код:
adres="ftp.myname.narod.ru"
mylogin="myname"
mypassword=435432
filename="file.txt"
hINetSession = InternetOpen("program", 0, vbNullString, vbNullString, 0)
If hINetSession <= 0 Then a = MsgBox("ошибка создания соединения", vbOKCancel, " ")
hSession = InternetConnect(hINetSession, adres, "21", mylogin, mypassword, INTERNET_SERVICE_FTP, 0, 0)
If hSession <= 0 Then a = MsgBox("ошибка подключения", vbOKCancel, " ")
If FtpGetFile(hSession, filename, pachhtml + filename, False, 0, 1, 0) = False Then
MsgBox "Call to FtpGetFile Failed!"
End If
Call InternetCloseHandle(hSession)
Call InternetCloseHandle(hINetSession)
Не соединяеться-ошибка подключения.В чем моя ошибка?Пароль и логин для доступа верные.
Для того, чтобы скачать оттуда нужное по ftp протоколу написал следующий код:
adres="ftp.myname.narod.ru"
mylogin="myname"
mypassword=435432
filename="file.txt"
hINetSession = InternetOpen("program", 0, vbNullString, vbNullString, 0)
If hINetSession <= 0 Then a = MsgBox("ошибка создания соединения", vbOKCancel, " ")
hSession = InternetConnect(hINetSession, adres, "21", mylogin, mypassword, INTERNET_SERVICE_FTP, 0, 0)
If hSession <= 0 Then a = MsgBox("ошибка подключения", vbOKCancel, " ")
If FtpGetFile(hSession, filename, pachhtml + filename, False, 0, 1, 0) = False Then
MsgBox "Call to FtpGetFile Failed!"
End If
Call InternetCloseHandle(hSession)
Call InternetCloseHandle(hINetSession)
Не соединяеться-ошибка подключения.В чем моя ошибка?Пароль и логин для доступа верные.
Оформляйте код по правилам,пожалуйста.Модераторы ругаются(и не только),да и читать легче
InternetOpen вроде выглядит правдиво,там вряд ли есть ошибка,а вот InternetConnect…
Для начала–объявление функции:
Обратите внимание на тип выделенного параметра и то,что Вы передали.Это раз
Далее:lContext–вроде как указатель на некое значение,определяемое приложением для [SIZE="1"]<в MSDN написано>[/SIZE].Так вот,там не сказано,что это значение может быть равно 0.Это второй потенциальный источник ошибки
InternetOpen вроде выглядит правдиво,там вряд ли есть ошибка,а вот InternetConnect…
Для начала–объявление функции:
Код:
Function InternetConnect Lib "WinInet" Alias "InternetConnectA"(ByVal hInternetSession As Long,ByVal sServerName As String,[COLOR="Red"]ByVal nServerPort As Integer[/COLOR], ByVal sUserName As String,ByVal sPassword As String,ByVal lService As Long,ByVal lFlags As Long,ByVal lContext As Long) As Long
Далее:lContext–вроде как указатель на некое значение,определяемое приложением для [SIZE="1"]<в MSDN написано>[/SIZE].Так вот,там не сказано,что это значение может быть равно 0.Это второй потенциальный источник ошибки