Прочитано HTML веб-страницы с MSHTML и VB6

Объект MSHTML в Visual Basic 6, позволяет выполнять ряд операций, связанных с Интернет и веб-страниц.

Мы видим, в этой статье, как с помощью тщательно выстроенной VB6 формы, читать HTML код удаленно, на веб-странице

Мы открываем наши копии Visual Basic 6 и создать новый EXE-файла. Мы создаем форму и disegnamolo как на картинке ниже, которое представляет заключительной статье идет речь:

Основными элементами, свойства которых управляется непосредственно из IDE от VB6, в текстовое поле, текстовое поле и кнопка управления.

Текстовое поле будет называться txtUrl и назначить в качестве текста по умолчанию "http://".

Текстовой будет называться txtCodiceHTML, удалять текст, мы установим свойство Multiline Правда и позволит горизонтальной и вертикальной прокрутки.

Кнопка управления называется cmdCodiceHTML.

Прежде чем идти дальше, мы должны импортировать ссылку на библиотеку MSHTML чье полное имя объектов Microsoft HTML библиотеки.

Зайдите в меню:

 



 Проект / Литература ...

 

локализовать запись, выберите ее и подтвердите свой выбор, как описано в следующем рисунке:

Мы дважды щелкните на кнопке, доступ к этому дополнительный код рутины и вставить следующий код:

 Private Sub cmdCodiceHTML_Click ()



    



 Dim элемент в качестве новой MSHTML.HTMLDocument



    



 Dim документ Как MSHTML.HTMLDocument



    



 Сентябрь oggetto.createDocumentFromUrl документа = (txtUrl.Text, vbNullString)



    



 Do While documento.readyState <> "полной"



        



 DoEvents



    



 Петля



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



 Сентябрь документа = Nothing



    



 Сентябрь объект = Nothing







 End Sub

Код прост: объявить объект в два раза, служащие перекрестной проверки, откройте веб-страницу с помощью метода createDocumentFromUrl.

Effetuiamo цикла, пока не достигнет состояния «полной», то до конца документа.

Вставить текст в текстовое поле HTML-код через свойство только для чтения (конечно же) outerHTML.