Цитата |
---|
Игорь написал: а надо так:Код ? 1oHttp = CreateObject("WinHttp.WinHttpRequest.5.1") |
Поправил объявление как Вы сказали, однако теперь я получаю другую ошибку: "Время ожидания операции истекло".
Я пробовал использовать метод .SetTimeouts с различными значениями, однако и это не помогло. Ошибка появляется на той же строчке .send PostData.
Подскажите, пожалуйста, в какую сторону копать?
Код выглядит так:
Код |
---|
Sub Парсер() Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1") Set objRegExp = CreateObject("VBScript.RegExp") URL = "https://provagon.com/rolling%20stock" URL_autorization = "https://provagon.com/web/CloseSitePS.nsf?Login" login = "****" Password = "****" Chapter_to_find = "****" PostData = "username=" & login & "&password=" & Password With oHttp .Open "post", URL_autorization, False .send PostData End With end sub |