Неверный сертификат при автозагрузке

@malidev · Регистрация: 18.02.2017

Author24 — интернет-сервис помощи студентам

Добрый день, уважаемые форумчане!
Подскажите, пожалуйста, что нужно исправить в коде. Использовал этот макрос для автоматического скачивания с сайта файла и дальнейшей его обработки. Но с недавнего времени макрос стал ругаться на неверный сертификат (см.вложение).
При обычном скачивании (открыть сайт через браузер, загрузить файлик) все нормально, никаких сертификатов не запрашивает. Заранее благодарен.

Visual Basic

Sub copy_url1()
    СсылкаНаФайл$ = "https://www.rossvyaz.ru/docs/articles/Kody_ABC-3kh.csv"
   
    ПутьДляСохранения$ = "D:\Нум_ФАС.csv"
 
    ' скачиваем файл из интернета
    DownloadFile СсылкаНаФайл$, ПутьДляСохранения$
 
    ' открываем скачанный файл
    'CreateObject("wscript.shell").Run """" & ПутьДляСохранения$ & """"
 
End Sub
 
Sub copy_url2()
    СсылкаНаФайл$ = "https://www.rossvyaz.ru/docs/articles/Kody_DEF-9kh.csv"
   
    ПутьДляСохранения$ = "D:\Нум_ФАС_DEF.csv"
 
    ' скачиваем файл из интернета
    DownloadFile СсылкаНаФайл$, ПутьДляСохранения$
 
    ' открываем скачанный файл
    'CreateObject("wscript.shell").Run """" & ПутьДляСохранения$ & """"
 
End Sub
Function DownloadFile(ByVal URL$, ByVal LocalPath$) As Boolean
    ' Функция скачивает файл по ссылке URL$
    ' и сохраняет его под именем LocalPath$
    Dim XMLHTTP, ADOStream, FileName
    On Error Resume Next: Kill LocalPath$
 
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", Replace(URL$, "\", "/"), "False"
    XMLHTTP.send
    If XMLHTTP.statustext = "OK" Then
        Set ADOStream = CreateObject("ADODB.Stream")
        ADOStream.Type = 1: ADOStream.Open
        ADOStream.Write XMLHTTP.responseBody
 
        ADOStream.SaveToFile LocalPath$, 2
        ADOStream.Close: Set ADOStream = Nothing
        DownloadFile = True
    Else
        'MsgBox "Не удаётся скачать файл " & XMLHTTP.statustext
    End If
    Set XMLHTTP = Nothing
End Function

	02.11.2017, 10:14