Как прочитать HTML код интернет страницы?

[Cromag]

Пробую сделать, чтобы HTML код страницы в textbox заносился.
Попытался через MS Internet Transfer Control с использованием OpenURL сделать. Он считывает, но только небольшую часть. А мне надо, чтобы полностью
Помогите

И всех с новым годом!!!

[gaidar]

Вот тебе функция.

Код: Выделить всё


Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

'Download page from Internet
Public Function SavePage(ByVal sPageName As String, ByVal sFileName As String) As Boolean
On Error Resume Next
Dim lngReturnValue As Long
lngReturnValue = URLDownloadToFile(0, sPageName, sFileName, 0, 0)
    If lngReturnValue = 0 Then
        SavePage = True
    Else
        SavePage = False
    End If
End Function

[Cromag]

Спасибо. Все сохраняет
Но есть еще проблема - первый раз сохраняет нормально, а если после этого попытаться снова сохранить, то он сохранит то, что было в первый раз. Т.е. если страница обновилась, то я этого не узнаю.

[gaidar]

То есть как? Сохраняешь в файл - потом, перед новым запросом - удаляешь старый и закачиваешь новый.
Проверено - все работает.

Если хочешь управлять HTTP заголовками - используй WinSock -подробное описание есть в MSDN. Проще - поползать по Object Browser'у.