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)
blank

相关推荐

  • 0xc000007b报错(win10 0xc000007b蓝屏)

    最后更新:2019-3-23请大家首先确定已经按照原文的方法及步骤尝试过,但是还是没有解决问题再来看这篇文章。如果你还没有看过原文,请先看原文:http://blog.csdn.net/VBcom/article/details/6070705看到这里的朋友,应该是看了原文但是没有解决问题。其实这个问题基本上就是由DirectX引起,但是…

  • 利用反射动态调用类成员

    利用反射动态调用类成员

  • 十二个开源UML工具

    十二个开源UML工具本文将为您介绍12个优秀的UML工具:1.StarUMLStarUML(简称SU),是一种创建UML类图,是一种生成类图和其他类型的统一建模语言(UML)图表的工具。StarUML是一个开源项目之一发展快、灵活、可扩展性强(zj)。2.NetbeansUMLPlugin目前支持:Activity图,Class图,Sequence图,State图以及Use…

  • 重学《Java从入门到精通》第四版 清华大学出版社[通俗易懂]

    重学《Java从入门到精通》第四版 清华大学出版社[通俗易懂]作为一名刚毕业1年半的AndroidDeveloper,在工作后总发觉自己的Java功底很是欠缺。所以准备再重新学习一遍Java。温故而知新,可以为师矣。Java这门编程语言或许会被其他编程语言所代替,但其优秀的编程思想却永远不会消失,所以不用有所质疑,选择它没有错。Java这门编程语言我是从大二以看视频的方式开始学起的(那种零基础学Java视频)。在学校图书馆看了近1个月,大致了解了Java中的一些关键字、对象名称、常用特性等。至于手敲还是很懵懂、也不熟练。所以就淘宝选购了本《Java从入门到精通》

  • JavaScript数组splice方法

    JavaScript数组splice方法varnumber=[10,3,4,7];//删除第一位元素,0:下标,1:个数varremoved=number.splice(0,1);console.log(number);//[3,4,7]console.log(removed);//[10]varnumber2=[10,3,4,7];//插入元素5和8,1:下标1开始,0:删除0个元素,…

  • 关于用户态和内核态的理解和认识_计算机内核态和用户态

    关于用户态和内核态的理解和认识_计算机内核态和用户态究竟什么是用户态,什么是内核态,这两个基本概念以前一直理解得不是很清楚,根本原因个人觉得是在于因为大部分时候我们在写程序时关注的重点和着眼的角度放在了实现的功能和代码的逻辑性上,先看一个例子:1)例子C代码1.     void testfork(){  2.     if(0 = = fork()){  3.     printf(“create new process su

发表回复

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

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