не могу подконнектиться по Ftp и скачать файл

Тема в разделе "Visual Basic", создана пользователем Andrew1981, 25 мар 2009.

  1. Andrew1981

    Andrew1981 Гость

    Создал страницу на народе: 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)

    Не соединяеться-ошибка подключения.В чем моя ошибка?Пароль и логин для доступа верные.
     
  2. Gamlet

    Gamlet Well-Known Member

    Регистрация:
    8 янв 2007
    Сообщения:
    609
    Симпатии:
    0
    в майпасворде добавь кавычки. А вообще поробуй на другом хостинге. Может у народа глюки.
     
Загрузка...

Поделиться этой страницей