vb.net 教程 12-4 msHtml 3

版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。相比之前学习的HtmlDocument类和HtmlElement类,mshtml还提供了网页元素更详细的分类,比如IHTMLScriptElement:脚本元素IHTMLStyleSheet:样式表IHTMLFormElement:表单元素等等这些不同的元素分类有着自己的…

大家好,又见面了,我是你们的朋友全栈君。

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

相比之前学习的HtmlDocument类和HtmlElement类,mshtml还提供了网页元素更详细的分类,比如

IHTMLScriptElement :脚本元素

IHTMLStyleSheet :样式表

IHTMLFormElement:表单元素

等等

这些不同的元素分类有着自己的特殊属性和方法。

 

获得脚本信息:

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim doc As mshtml.IHTMLDocument
        doc = wbMain.Document.DomDocument
        Dim scrs As mshtml.IHTMLElementCollection = doc.scripts
        Dim scr As mshtml.IHTMLScriptElement

        For i As Integer = 0 To scrs.length - 1
            scr = CType(scrs.item(i), mshtml.IHTMLScriptElement)
            txtInfo.Text &= "htmlFor:" & scr.htmlFor & vbCrLf
            txtInfo.Text &= "event:" & scr.event & vbCrLf
            txtInfo.Text &= "src:" & scr.src & vbCrLf
            txtInfo.Text &= "text:" & scr.text & vbCrLf
            txtInfo.Text &= "type:" & scr.type & vbCrLf
            txtInfo.Text &= "====================" & vbCrLf
        Next

    End Sub

运行如下:

vb.net 教程 12-4 msHtml 3

获得样式表信息:

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim doc As mshtml.IHTMLDocument2
        doc = wbMain.Document.DomDocument
        Dim styles As mshtml.HTMLStyleSheetsCollection = doc.styleSheets
        Dim style As mshtml.IHTMLStyleSheet
        For i As Integer = 0 To styles.length - 1
            style = CType(styles.item(i), mshtml.IHTMLStyleSheet)
            txtInfo.Text &= "cssText:" & style.cssText & vbCrLf
            txtInfo.Text &= "href:" & style.href & vbCrLf
            txtInfo.Text &= "id:" & style.id & vbCrLf
            txtInfo.Text &= "title:" & style.title & vbCrLf
            txtInfo.Text &= "type:" & style.type & vbCrLf
            txtInfo.Text &= "====================" & vbCrLf
        Next

    End Sub

运行如下:

vb.net 教程 12-4 msHtml 3

获得表单信息:

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim doc As mshtml.HTMLDocument
        doc = wbMain.Document.DomDocument

        doc.sc
        Dim eles As mshtml.IHTMLElementCollection = doc.forms
        Dim frm As mshtml.IHTMLFormElement
        For i As Integer = 0 To eles.length - 1
            frm = CType(eles.item(i), mshtml.IHTMLFormElement)

            txtInfo.Text &= "action:" & frm.action & vbCrLf
            txtInfo.Text &= "encoding:" & frm.encoding & vbCrLf
            txtInfo.Text &= "method:" & frm.method & vbCrLf
            txtInfo.Text &= "name:" & frm.name & vbCrLf
            txtInfo.Text &= "target:" & frm.target & vbCrLf
            txtInfo.Text &= "====================" & vbCrLf
        Next
    End Sub

运行如下:

vb.net 教程 12-4 msHtml 3

 

由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

学习更多vb.net知识,请参看 vb.net 教程 目录

 

 

 

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/126813.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • idea激活码永久2022(注册激活)

    (idea激活码永久2022)最近有小伙伴私信我,问我这边有没有免费的intellijIdea的激活码,然后我将全栈君台教程分享给他了。激活成功之后他一直表示感谢,哈哈~https://javaforall.cn/100143.htmlIntelliJ2021最新激活注册码,破解教程可免费永久激活,亲测有效,上面是详细链接哦~1TCF…

  • python列转行函数_python 列转行

    python列转行函数_python 列转行{“moduleinfo”:{“card_count”:[{“count_phone”:1,”count”:1}],”search_count”:[{“count_phone”:4,”count”:4}]},”card”:[{“des”:”阿里技术人对外发布原创技术内容的最大平台;社区覆盖了云计算、大数据、人工智能、IoT、云原生、数据库、微服务、安全、开发与运维9大技术领域。”,”link1″:…

  • 微创业平台

    一种专为大学生创业服务的平台。主旨是,让大学生创业创新,在某种比较简单,比较容易的环境里进行。让大学生创业创新,不要太多的风险,比较容易达成创业目标。云电话,一种5G新电话。特别适合大学生微创业,更需要大学生微创新。将云电话平台,建设成湖铁微创业平台,是深圳云电话平台,与湖铁职院创新创业学院,合作打造的专为湖铁职院大学生,创新创业服务的平台。建设好湖铁微创业平台,具有重大的社会意义。√成功示范作用。先在创新创业学院,打造标杆试点MVP。√便…

  • 在html中js如何给字符串中加换行符

    在html中js如何给字符串中加换行符varstr=’如果有一天休息休息下cvcvx,’+”\n”+’那么~~~’;这种写法在html中是会被识别为”如果有一天休息休息下cvcvx,\n那么~~~”那么如何保证其这么写会被识别,只需要在该div的样式中加入”white-space”:”pre”这个样式例如:…

  • 动态规划背包问题(例题)

    动态规划背包问题(例题)发生的方式

  • 1602A的基本描述[通俗易懂]

    1602A的基本描述[通俗易懂]LCD1602的主控芯片是HD44780或者其它兼容芯片。与此相仿的是LCD12864液晶显示器,它是一种图形点阵显示器,能显示的内容比LCD1602要丰富得多,除了普通字符外,还可以显示点阵图案,带有汉字库的还可以显示汉字,它的并行驱动方式与LCD1602相差无几,所以,在这里花点时间是值得的。//File1#ifndef__ZHANGTYPE_H__#define__ZHANGTYPE_H__#defineuint8unsignedchar#defineuin…

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号