vb.net 教程 12-4 msHtml 2

最新推荐文章于 2025-02-22 00:15:00 发布

原创最新推荐文章于 2025-02-22 00:15:00 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

本文为博主原创文章，转载请显著位置标明出处，未经博主允许不得用于商业目的。

文章标签：

#vb.net #mshtml #HTMLDocument #IHTMLDocument #IHTMLDocument2

vb.net 教程专栏收录该内容

410 篇文章

订阅专栏

本文介绍如何使用VB.NET通过IHTMLDocument接口及其后续版本获取网页的基本信息，包括协议、状态、编码等，并提供了具体的代码实现。

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

窗体设计界面：

“转到”按钮的代码：

    Private Sub btnGoto_Click(sender As Object, e As EventArgs) Handles btnGoto.Click
        wbMain.Navigate(txtUrl.Text)
    End Sub

获得网页基本信息：

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim doc As mshtml.IHTMLDocument
        doc = wbMain.Document.DomDocument
        txtInfo.Text = "协议：" & doc.protocol & vbCrLf
        txtInfo.Text &= "状态：" & doc.readyState & vbCrLf
        txtInfo.Text &= "编码：" & doc.charset & vbCrLf
        txtInfo.Text &= "Cookie：" & doc.cookie & vbCrLf
        txtInfo.Text &= "创建日期：" & doc.fileCreatedDate & vbCrLf
        txtInfo.Text &= "修改日期：" & doc.fileModifiedDate & vbCrLf
        txtInfo.Text &= "文件大小：" & doc.fileSize & vbCrLf
        txtInfo.Text &= "更新日期：" & doc.fileUpdatedDate & vbCrLf
        txtInfo.Text &= "最后修改日期：" & doc.lastModified & vbCrLf
        txtInfo.Text &= "Mime类型：" & doc.mimeType & vbCrLf
        txtInfo.Text &= "文档标题：" & doc.nameProp & vbCrLf
        txtInfo.Text &= "跳转来源：" & doc.referrer & vbCrLf
        txtInfo.Text &= "安全证书：" & doc.security & vbCrLf
        txtInfo.Text &= "文档标题：" & doc.title & vbCrLf
        txtInfo.Text &= "链接地址：" & doc.url & vbCrLf

    End Sub

除了IHTMLDocument接口，似乎直接用IHTMLDocument2、IHTMLDocument3这些都可以。

而且MSHtml还提供了HTMLDocument这个对象，也可以直接使用：

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim doc As mshtml.HTMLDocument
        doc = wbMain.Document.DomDocument
        txtInfo.Text = "协议：" & doc.protocol & vbCrLf
        txtInfo.Text &= "状态：" & doc.readyState & vbCrLf
        txtInfo.Text &= "编码：" & doc.charset & vbCrLf
        txtInfo.Text &= "Cookie：" & doc.cookie & vbCrLf
        txtInfo.Text &= "创建日期：" & doc.fileCreatedDate & vbCrLf
        txtInfo.Text &= "修改日期：" & doc.fileModifiedDate & vbCrLf
        txtInfo.Text &= "文件大小：" & doc.fileSize & vbCrLf
        txtInfo.Text &= "更新日期：" & doc.fileUpdatedDate & vbCrLf
        txtInfo.Text &= "最后修改日期：" & doc.lastModified & vbCrLf
        txtInfo.Text &= "Mime类型：" & doc.mimeType & vbCrLf
        txtInfo.Text &= "文档标题：" & doc.nameProp & vbCrLf
        txtInfo.Text &= "跳转来源：" & doc.referrer & vbCrLf
        txtInfo.Text &= "安全证书：" & doc.security & vbCrLf
        txtInfo.Text &= "文档标题：" & doc.title & vbCrLf
        txtInfo.Text &= "链接地址：" & doc.url & vbCrLf
    End Sub

获得的结果都一样：