Получение кода html в IE

Mr.Power

Всем здравия!Есть вопрос :Как получить програмно html код веб страници из InternetExplorer или других проводников?____________________________________________________________На чужой вершок не разивай роток!
4 ответа

Mr.Power

:-{


Mr.Power

Option Explicit
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

'Загрузка интернет-страницы
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
 Dim lngRetVal As Long
 lngRetVal = URLDownloadToFile(<b>0</b>, URL, LocalFilename, <b>0</b>, <b>0</b>)
 If lngRetVal = <b>0</b> Then DownloadFile = True
End Function

Sub TakeHtml(strWEB As String)
 Dim i As Long
 Dim strHtml As String
 Dim Massiv() As String
 Dim strPut As String
 
 strPut = ThisWorkbook.Path & "\" & "Help.htm"
 'сохранение веб-страницы на локальном компьютере
 DownloadFile strWEB, strPut

 'перенос данных из сохраненного файла в переменную string
 Open strPut For Input As #<b>1</b>
 Do Until EOF(<b>1</b>)
 DoEvents
 i = i + <b>1</b>
 ReDim Preserve Massiv(<b>1</b> To i)
 Line Input #<b>1</b>, Massiv(i)
 Loop
 Close #<b>1</b>
 Kill strPut
 strHtml = Join(Massiv(), vbCrLf)
 MsgBox strHtml
End Sub

Sub LoadURL(strWEB)
 Dim ieApp As Object
 Dim strHtml As String
 
 'Create new IE instance
 Set ieApp = CreateObject("InternetExplorer.Application")
 'Go to url
 ieApp.Visible = False
 ieApp.navigate strWEB
 'Wait for page to load
 Do Until ieApp.readyState = <b>4</b>
 DoEvents
 Loop
 'HTML to string
 strHtml = ieApp.document.body.outerhtml
 
 MsgBox strHtml
 ieApp.Quit
 Set ieApp = Nothing
End Sub
Sub dgsghd()
 LoadURL ("http://www.google.ru/")
 TakeHtml ("http://www.google.ru/")
End Sub


Mr.Power

Не практично. Это способ закачки на диск. Хотя можно разсматривать как вариант.


Mr.Power