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