Получить 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.714 из 5
Похожие ответы