阅读网页的HTML与MSHTML和VB6

在 Visual Basic 6中MSHTML对象允许执行有关互联网和网页的一系列操作。

在这篇文章中，我们看到了如何通过一个精心构造的VB6的形式， 读取远程的HTML代码在网页上

我们打​​开我们的Visual Basic 6的副本，并创建一个新的EXE。 我们创建了一个像下面的图片，它代表了有问题的最后一篇文章的形式和disegnamolo：

的主要内容，其管理从VB6 IDE直接属性，是文本框，文本域和按钮控制。

文本框将被称为txtUrl并指定为默认文本的“http://”。

textarea的将被称为txtCodiceHTML，删除文本，我们将设置Multiline属性为True，使横向和纵向滚动条。

按钮控制称为cmdCodiceHTML。

在继续之前，我们必须导入参考MSHTML库的全名是 Microsoft HTML对象库。

进入菜单：

 



项目/参考...

 

本地化的条目，选择它并确认选择，如下面的图片记录：

我们双击按钮，进入该子例程的代码，并插入下面的代码：

私人小组cmdCodiceHTML_Click（）



    



昏暗的项目作为新MSHTML.HTMLDocument



    



昏暗的文件作为MSHTML.HTMLDocument



    



九月oggetto.createDocumentFromUrl文件=（txtUrl.Text，vbNullString）



    



 DO WHILE documento.readyState <>“完成”



        



的DoEvents



    



环路



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



九月文件=没有



    



九月对象=没有







 END SUB

代码很简单：申报对象两次，通过交叉检查服务，通过开放的方法createDocumentFromUrl网页。

Effetuiamo一个周期，直到达到国家“完成”，然后直到文件结尾。

插入文本域通过只读属性的HTML代码（当然）outerHTML的文本。