| Вопрос: Просмотр содержимого веб-страницы "В виде HTM | Добавлено: 16.06.05 16:32 |
Автор вопроса:  VisBas | Web-сайт: chipmicro.narod.ru
|
|
Как получить содержимое веб-страницы в виде HTML?
Эти варианты не подходят: Text1 = WebBrowser1.Document.documentelement.innerhtml Text2 = WebBrowser1.Document.Body.innerhtml Они его просто не отображ. для той станицы, что мне нужно. Хотя через контекстн. меню IE HTML есть! HTML Примерно такой <!--
. . document.writeln('</table>'); . //--> |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  ArtBase ICQ: 55593017 Вопросов: 23 Ответов: 76 |
Профиль | | #1 | Добавлено: 16.06.05 20:15 |
|
ПОТЯНЕТ?
Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0 Private Const INTERNET_OPEN_TYPE_DIRECT = 1 Private Const INTERNET_OPEN_TYPE_PROXY = 3 Private Const scUserAgent = "VB Project" Private Const INTERNET_FLAG_RELOAD = &H80000000 Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer Private Function OpenURL(ByVal sUrl As String) As String Dim hOpen As Long Dim hOpenUrl As Long Dim bDoLoop As Boolean Dim bRet As Boolean Dim sReadBuffer As String * 2048 Dim lNumberOfBytesRead As Long Dim sBuffer As String hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0) hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0) bDoLoop = True While bDoLoop sReadBuffer = vbNullString bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead) sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead) If Not CBool(lNumberOfBytesRead) Then bDoLoop = False Wend If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl) If hOpen <> 0 Then InternetCloseHandle (hOpen) OpenURL = sBuffer End Function Private Sub Command1_Click() 'Вместо звездочек свою ссылку вставишь Text1 = OpenURL("http://*****" 
End Sub |
||
|
Номер ответа: 2 Автор ответа: Black Dragon ICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #2 | Добавлено: 16.06.05 20:19 |
|
If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
А не легче написать: bDoLoop = CBool(lNumberOfBytesRead)
|
||
|
Номер ответа: 3 Автор ответа: VisBasВопросов: 44 Ответов: 127 |
Web-сайт: Профиль | | #3 | Добавлено: 16.06.05 22:34 |
|
Спасибо! Я уже смог обойтись без браузера вообще.
Все равно спасибо! |
||
|
Номер ответа: 4 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #4 | Добавлено: 17.06.05 11:58 |
| а че нельзя было просто открыть фаил html страницы? | ||
|
Номер ответа: 5 Автор ответа: VisBasВопросов: 44 Ответов: 127 |
Web-сайт: Профиль | | #5 | Добавлено: 18.06.05 13:57 |
| Страница грузится из инета | ||
Страница: 1 |