Страницы: 1
RSS
Ошибка поддержки безопасных каналов. Получить код интернет-страницы. VBA.
 
Привет друзья.  :)
Второй день ломаю голову над очередным сайтом. Не могу получить код страницы при запросе.
При использовании WinHttp.WinHttpRequest.5.1 выдаёт ошибку Ошибка поддержки безопасных каналов.
При использовании MSXML2.XMLHTTP выдаёт ошибку Ошибка загрузки указанного ресурса.
Подозреваю, что дело в куках, но победить их не могу. Недостаточно знаний и программных ресурсов (не знаю названия более расширенных приложений).
Наведите на путь истинный куда копать и есть ли способ достучаться до сайта.
Скрытый текст
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
Код
Sub Test()
    Artikul = "3RV2011-1DA10"
    Myurl = "https://mall.industry.siemens.com/mall/ru/ru/Catalog/Product/" & Artikul
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", Myurl, False
        .send
        Do: DoEvents: Loop Until .readyState = 4
        Cells(1, 1) = .responseText
    End With
End Sub
 
Андрей, тоже самое выдаёт.
Ошибка загрузки указанного ресурса
на Send ошибку показывает.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
Возможно дело в библиотеках, попробуйте подключить Microsoft XML  
 
Подключение XML не помогает. Запускаю ваш пример выдаёт ошибку. Пробовал на работе тестировать на W7x64 office 2013x64 так же ошибки выдаёт.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
В общем победил.
Заменил на Microsoft.XMLHTTP
в настройках IE установил галочку
Но, блин, это по ходу на всех компах надо прописывать на работе эту галочку.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
Страницы: 1
Наверх