vb.net 教程 20-3 控制Ie浏览器 9

小灰灰 2022-09-11 11:18 98阅读 0赞

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

八、更加深入的例子

同12章中通过 HtmlElement类 或者其他方法获取网页上元素信息，

我们也可以通过获得 mshtml.IHTMLDocument2 来获得IE窗口网页元素信息。

这里偷个懒，主要代码同上一小节 vb.net 教程 20-3 控制Ie浏览器 8

但是将ListIe设置为窗体级变量：

Dim listIe As ArrayList

对应列表按钮代码：

Private Sub cbListIE\_Click(sender As Object, e As EventArgs) Handles cbListIE.Click

listIe = New ArrayList

listIe = getIhtmlDoc()

If listIe.Count > 0 Then

For i As Integer = 0 To listIe.Count - 1

Dim subList As New ListViewItem()

subList.Text = i.ToString

Dim iedocInfo As New IeDocStructure

iedocInfo = CType(listIe.Item(i), IeDocStructure)

subList.SubItems.Add(iedocInfo.title)

subList.SubItems.Add(iedocInfo.url)

lvListIE.Items.Add(subList)

Next

End If

End Sub

所举例子采用的是  http://www.qqrec.com/vblessons/vbnet20-2-1.htm

获得文本框内的信息代码如下：

Private Sub btnInfo\_Click(sender As Object, e As EventArgs) Handles btnInfo.Click

If lvListIE.SelectedIndices.Count < 1 Then

MessageBox.Show("尚未选择一行数据")

Exit Sub

End If

Dim selectedIndex As Integer

selectedIndex = lvListIE.SelectedIndices.Item(0)

Dim ieInfo As IeDocStructure

Dim ie\_SHwnd As Integer

ieInfo = CType(listIe.Item(selectedIndex), IeDocStructure)

ie\_SHwnd = ieInfo.IE\_SHwnd

'获得IHTMLDocument2接口

Dim IEdoc As mshtml.IHTMLDocument2

IEdoc = getDocumentfromIES(ie\_SHwnd)

Dim studentname As String = ""

Dim studentage As String = ""

Dim ieElement As mshtml.IHTMLElement

For Each ieElement In IEdoc.all

Select Case ieElement.id

Case "studentname"

studentname = ieElement.getAttribute("value")

Case "studentage"

studentage = ieElement.getAttribute("value")

End Select

Next

MessageBox.Show("学生名称：" & studentname & vbCrLf & "学生年龄：" & studentage)

End Sub

运行结果如下图（注意，笔者偷懒直接选择正确的网页，如果选择别的网页不能返回结果的）

![Center][]

不管Ie窗体是被遮挡或者最小化，都会获得正确的结果。

当然请注意：切勿用于做坏事

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

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

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[Center]: /images/20220828/bc1e219503794495b50237352f63b1be.png
[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/

发表评论取消回复

表情：

评论列表（有 0 条评论，98人围观）

还没有评论，来说两句吧...

相关阅读

相关针对IE浏览器的兼容性ie7、ie8、ie9

相对于来说浏览器的兼容性对于小伙伴来说是很头疼的吧！今天我在修改代码的时候，对于var cvts = document.getElementsByClassName("ap

- 日理万妓/ 2022年09月16日 13:27/ 0 赞/ 386 阅读

相关 vb.net 教程 20-3 控制Ie浏览器 9

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。八、更加深入的例子同12章中通过 HtmlElement类或者其

小灰灰/ 2022年09月11日 11:18/ 0 赞/ 99 阅读

相关 vb.net 教程 20-3 控制Ie浏览器 8

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

ゞ浴缸里的玫瑰/ 2022年09月11日 11:17/ 0 赞/ 109 阅读

相关 vb.net 教程 20-3 控制Ie浏览器 7

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。六、获得Ie窗口的标题和网址在上一小节，我们创建了从Interne

超、凢脫俗/ 2022年09月11日 11:17/ 0 赞/ 110 阅读

相关 vb.net 教程 20-3 控制Ie浏览器 6

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

ゝ一世哀愁。/ 2022年09月11日 11:17/ 0 赞/ 85 阅读

相关 vb.net 教程 20-3 控制Ie浏览器 5

四、获得Ie窗口 Internet Explorer\_Server 句柄 IEFrame->Frame Tab->TabWindowClass->shell DocObje

落日映苍穹つ/ 2022年09月11日 11:17/ 0 赞/ 117 阅读

相关 vb.net 教程 20-3 控制Ie浏览器 4

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。三、获得Ie窗口 Frame Tab 句柄 IEFrame->Fra

Myth丶恋晨/ 2022年09月11日 11:17/ 0 赞/ 173 阅读

相关 vb.net 教程 20-3 控制Ie浏览器 3

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。二、获得Ie窗口句柄通过上一小节的教程，我们可知Ie窗口的类名为

我就是我/ 2022年09月11日 11:17/ 0 赞/ 106 阅读

相关 vb.net 教程 20-3 控制Ie浏览器 2

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。一、获得Ie窗口的结构关于查看Ie浏览器的结构请按照以下步骤：

喜欢ヅ旅行/ 2022年09月11日 11:12/ 0 赞/ 108 阅读

相关 vb.net 教程 20-3 控制Ie浏览器 1

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。之前教程中同大家一起学习了使用WebBrowser控件浏览网页、传递

青旅半醒/ 2022年09月11日 11:12/ 0 赞/ 111 阅读