Как скачать https:// - т.е. защищенную - страничку?

[qwertyhp]

Здравствуйте!
Пожалуйста, подскажите - как скачать страницу из Интернета с https:// - адресом? Например, https://www.avito.ru/moskva/koshki ?
Без буковки S в адресе (то есть просто http) скачивается, а с https - нет... а надо!!!
Код, который я использую :

Код: Выделить всё

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

    Dim Tmp                 As String                       '

Private Sub Form_Load()
    Tmp = "https://www.avito.ru/moskva/koshki"
' Получаем файл для парсинга из Интернета :
    Call DownloadFileStart(Tmp, "C:\DService.htm")
    DoEvents
    End
End Sub

Public Function DownloadFileStart(FromPathName As String, ToPathName As String)
    If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then
        DownloadFileStart = True
    Else
        DownloadFileStart = False
    End If
End Function

Очень нужно...
Спасибо!

[qwertyhp]

Да-а, весело...
msinet.ocx тоже "пытал" - не выходит...
Тогда сформулируем иначе: кто-нибудь может поделиться РАБОЧИМ кодом [для скачивания HTTPS- страничек на локальный компьютер] на каком-нибудь другом языке программирования, а не на VB6? На Си, Дельфи... чтобы я мог изваять исполняемый файл, в готовом рабочем исходном коде я, тешу себя надеждой, разберусь. Просто реально нужно...
Спасибо.

[Qwertiy]

кто-нибудь может поделиться РАБОЧИМ кодом [для скачивания HTTPS- страничек на локальный компьютер] на каком-нибудь другом языке программирования

VB.NET, C#, Node.js. Но не думаю, что тебе это хоть как-то поможет.

DoEvents

А это тут зачем?

[Хакер]

Если ты не хочешь разбираться и понимать, в чём проблема, то зачем тебе пример кода на другом языке? Если твоя психологическая модель действия подразумевает остановку на ровном месте при виде любого мнимого препятствия?

[qwertyhp]

Вооот, наблюдаю оживление!

Моя психологическая модель догадывается, что, по аналогии с отправкой почты через SSL, надо сообщить удаленному серверу свое намерение работать по протоколу HTTPS и (возможно) конектиться к какому-то определенному порту. Но моя психологическая модель точно не знает, правильна ли догадка , и, даже если правильна - то как это реализовать. Ищу подсказки, но пока безрезультатно.

[Хакер]

Моя психологическая модель догадывается, что, по аналогии с отправкой почты через SSL

Какой смысл, дискутируя насчёт предстоящей экспедиции в арктику, говорить о тонкостях выбора маршрута, если не хватает ума взять с собой шапку?

Говорить о SSL — это слишком высокий уровень дел для данного топика.

Когда что-то не работает (любая функция или любая вещь, SSL тут вообще не причём), нормальные люди идут анализировать код возврата, код ошибки (Err.LastDllError / GetLastError), логи (в которых может быть информация об ошибке) и любую другую обратную связь и информацию от сбойнувшей вещи. И даже если такой информации нет, то отсутствие этой информации — тоже полезная информация. А иные люди просто идут ныть на форум.

[qwertyhp]

Доброй ночи и с наступающим Новым годом!
Другой вариант попытки загрузить страничку с HTTPS-адреса:

Код: Выделить всё

Private Sub Form_Load()
    Dim b() As Byte
    FileName = "c:\TestPage.htm"
    strUrl = "https://www.avito.ru/moskva/koshki"
    'strUrl = "http://yandex.ru"

    Inet1.AccessType = icUseDefault
    Inet1.Protocol = icHTTPS
    Inet1.RemotePort = 443
    Inet1.RequestTimeout = 60
    Inet1.URL = strUrl
    b() = Inet1.OpenURL(Inet1.URL, icByteArray)
   
    Open FileName For Binary Access Write As #1
    Put #1, , b()
    Close #1

    End
End Sub


Вроде указал все. Inet1 подключил. С Яндексом (HTTP) работает (закомментировал). С HTTPS - нет.
Подскажите, в чем причина, и как сделать, чтобы HTTPS-страничка сохранялась на диск? Новый год все-таки...

[qwertyhp]

Добрый и знающий Санта-Клаус Дед Мороз, ты где? Тебя ждут...

[Хакер]

По-моему уже было один раз написано, как действовать. Если ты предполагаешь действовать не так, как надо, а просто биться об стену, то мы просто продолжим наблюдать, как ты бьёшься об стену.

[ger_kar]

Добрый и знающий Санта-Клаус Дед Мороз, ты где? Тебя ждут...

Я добрый, прямо как Дед Мороз, но увы вообще не в теме, и ничем помочь не могу, так как о предмете вопроса не имею не малейшего понятия. Я думаю, что если никто не дает конкретного ответа, точнее решения, значит скорее всего этим вопросом никому заниматься не приходилось и что бы его решить придется изучать вопрос изнутри. И начать надо с того, что советует Хакер.

[qwertyhp]

По обоим приведенным кодам:
Err.Number = 0
Err.Description = "".

[Хакер]

Код в студию. Тут куча разных способов уже упомянута, и непонятно, к чему относится результат.

[qwertyhp]

Код: Выделить всё

Private Sub Form_Load()
    Dim b() As Byte
    FileName = "c:\TestPage.htm"
    strUrl = "https://www.avito.ru/moskva/tovary_dlya_kompyutera/veb-kamery"
    'strUrl = "http://yandex.ru"

    Inet1.AccessType = icUseDefault
    Inet1.Protocol = icHTTPS
    Inet1.RemotePort = 443
    Inet1.RequestTimeout = 60
    Inet1.URL = strUrl
    b() = Inet1.OpenURL(Inet1.URL, icByteArray)
   
    Open FileName For Binary Access Write As #1
    Put #1, , b()
    Close #1

    End
End Sub

Просто - в случае https создается файл нулевой длинны с заданным названием - и все (в случае http что-то хоть сохраняет). Номер порта и TimeOut указаны вроде как верно. Если в коде что-то пропущено - то что именно?
P.S. Не ною.

[Хакер]

Если в коде что-то пропущено - то что именно?

Проверка ошибки.