Получить Web-страницу через WinInet API - ошибка на некоторых серверах - VB
Формулировка задачи:
Использую в проекте парсинга полученных из Инета страниц приведенный в пункте 29 ветки Готовые решения и полезные коды на Visual Basic 6.0 код.
Привлекает то что страница загружается в переменную (в данном случае текстовое поле) не создавая лишних файлов на диске
Оказалось, с некоторыми серверами код работает некорректно, например при получении индексной страницы (да и любой другой) с сайта http://www.java-study.ru/ сервер выдает ошибку Page Not Found
Может кто подскажет в какую сторону копать,
Через АПИ
Private Sub Command1_Click()
Text1 = OpenURL("http://www.java-study.ru/")
End Sub
Private Declare Function URLDownloadToFile Lib "urlmon"...
загружается нормально, но идет сохранение в файл, чего бы очень не хотелось Заранее спасибоРешение задачи: «Получить Web-страницу через WinInet API - ошибка на некоторых серверах»
textual
Листинг программы
Dim oHttp As Object Dim strURL As String strURL = "http://www.yandex.ru/" 'MsgBox strURL 'Exit Sub On Error Resume Next Set oHttp = CreateObject("MSXML2.XMLHTTP") oHttp.Open "GET", strURL, False oHttp.Send Me.tex = oHttp.ResponseText
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д