Надо получить код HTML'овской страницы

Проблема в следующем. Есть HTML страница. Когда по ней правой кнопкой жмешь, то в менюшке есть 'просмотр в виде HTML', жмешь на неё и получаешь Блакнот в котором написан код документа. Вот хотелось бы програмно его получить.

Это код одной читалки HTML кода из интернета
Создай файл frm, и открой его блокнотом
а потом помести в него следующие

VERSION 5.00
Object = '{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0'; 'RICHTX32.OCX'
Object = '{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0'; 'MSWINSCK.OCX'
Begin VB.Form frmHttpTest
Caption = 'Simple HTTP Reader'
ClientHeight = 4485
ClientLeft = 60
ClientTop = 345
ClientWidth = 6960
LinkTopic = 'Form1'
ScaleHeight = 4485
ScaleWidth = 6960
StartUpPosition = 3 'Windows Default
Begin MSWinsockLib.Winsock wscHttp
Left = 2400
Top = 2160
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.CommandButton cmdReadURL
Caption = '&Read URL'
Height = 375
Left = 5640
TabIndex = 3
Top = 120
Width = 1215
End
Begin RichTextLib.RichTextBox rtbDocument
Height = 3735
Left = 120
TabIndex = 2
Top = 600
Width = 6735
_ExtentX = 11880
_ExtentY = 6588
_Version = 393217
Enabled = -1 'True
ScrollBars = 3
TextRTF = $'frmHttpTest.frx':0000
End
Begin VB.TextBox txtURL
Height = 285
Left = 600
TabIndex = 1
Text = 'txtURL'
Top = 180
Width = 4935
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = 'URL:'
Height = 195
Left = 120
TabIndex = 0
Top = 200
Width = 375
End
End
Attribute VB_Name = 'frmHttpTest'
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private m_strRemoteHost As String 'the web server to connect to
Private m_strFilePath As String 'relative path to the file to retrieve
Private m_strHttpResponse As String 'the server response
Private m_bResponseReceived As Boolean
'
Private Sub cmdReadURL_Click()
'
Dim strURL As String 'temporary buffer
'
On Error GoTo ERROR_HANDLER
'
'check the textbox
If Len(txtURL) = 0 Then
MsgBox 'Please, enter the URL to retrieve.', vbInformation
Exit Sub
End If
'
'if the user has entered 'http://', remove this substring
'
If Left(txtURL, 7) = 'http://' Then
strURL = Mid(txtURL, 8)
Else
strURL = txtURL
End If
'
'get remote host name
'
m_strRemoteHost = Left$(strURL, InStr(1, strURL, '/') - 1)
'
'get relative path to the file to retrieve
'
m_strFilePath = Mid$(strURL, InStr(1, strURL, '/'))
'
'clear the RichTextBox
'
rtbDocument.Text = ''
'
'clear the buffer
'
m_strHttpResponse = ''
'
'turn off the m_bResponseReceived flag
'
m_bResponseReceived = False
'
'establish the connection
'
With wscHttp
.Close
.LocalPort = 0
.Connect m_strRemoteHost, 80
End With
'
EXIT_LABEL:
Exit Sub

ERROR_HANDLER:
'
If Err.Number = 5 Then
strURL = strURL & '/&

Ну зачем же так длинно!

Нужно то всего 3 строчки кода.
1. Подключаем компонент Microsoft Internet Controls и помещаем его на форму
2 в Form_Load вызываем его метод Navigate2 'урл'
3. в событии DocumentComplete этого компонента с помощью свойства Document делаем с его Html кодом что хотим.

Можно сделать и по другому. Открыть файл html с помощью объекта FSO, считать его в переменную strHTML и присвоить эту переменную RichTextBox
RichTextBox.Text=strHTML все делается программно, как вам и нужно.

Удачи...

Armen Mnatsakanyan
Certified Professional Master
Visual Basic Programmer
Project Manager of 'Alphabetic of Visual Basic' [russian]
URL: http://www.armentel.com/avb
E-Mail: am86@yahoo.com

0