Нет желания переходить на WIN7 или WIN8 топчусь на Хрюше
IE8 переезжает какие-то другие программы и оборудование. Пришлось вернуть IE7.
Но даже без использования IE не могу получить исходный код страницы.
Пробовал 3 варианта: с IE, URLDownloadToFile, GetHTTPResponse(с этого сайта)
во всех ответах сообщение об устаревшей версии обозревателя
Есть ли способы помирить IE7 с сервером? Упоминалось где-то, что можно подменить как-то, но примера не нашёл
Или ставить WIN7,8 и IE9 уже обязательно? На ХР IE9 не становится.
Вот вырезки из моих попыток. STROKA формируется отдельно и в Опере открывается нормально.
IE8 переезжает какие-то другие программы и оборудование. Пришлось вернуть IE7.
Но даже без использования IE не могу получить исходный код страницы.
Пробовал 3 варианта: с IE, URLDownloadToFile, GetHTTPResponse(с этого сайта)
во всех ответах сообщение об устаревшей версии обозревателя
Есть ли способы помирить IE7 с сервером? Упоминалось где-то, что можно подменить как-то, но примера не нашёл
Или ставить WIN7,8 и IE9 уже обязательно? На ХР IE9 не становится.
Вот вырезки из моих попыток. STROKA формируется отдельно и в Опере открывается нормально.
| Код |
|---|
Set WB = CreateObject("InternetExplorer.Application")
WB.Navigate STROKA
STR_HTML = WB.Document.body.innerhtml
STR_HTML = GetResponse(STROKA)
STR_HTML = Get_Html(STROKA)
Public Function Get_Html(S As String)
Dim S1, SS
''с загрузкой файла на диск
'Путь по которому сохраняем скачанную страницу
S1 = Environ("temp") & "\Temp_2.log"
'загружаем страницу
URLDownloadToFile 0, S, S1, 0, 0
SS = (CreateObject("Scripting.FileSystemObject").GetFile(S1).OpenAsTextStream(1).ReadAll)
Get_Html = UTF8ToWin(SS)
End Function
Function GetHTTPResponse(ByVal sURL As String) As String
On Error Resume Next
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
With oXMLHTTP
.Open "GET", sURL, False
.send
GetHTTPResponse = .responseText
End With
Set oXMLHTTP = Nothing
End Function |
