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

Myth丶恋晨 2022-09-11 11:17 173阅读 0赞

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

三、获得Ie窗口 Frame Tab 句柄

IEFrame->Frame Tab->TabWindowClass->shell DocObject View->Internet Explorer\_Server

上一小节获得了IEFrame句柄，本节继续获得Frame Tab 句柄

先自定义一个结构，用来保存相关句柄信息

Private Structure IEWindowHwnd  
        Dim IEhwnd As Integer   'IE窗口句柄  
        Dim FTabhwnd As Integer 'Frame Tab的窗口句柄  
        Dim Ie\_SHwnd As Integer '对应IE\_Server的窗口句柄  
    End Structure

本小节中，Ie\_SHwnd暂时用不上。

获得Frame Tab句柄的代码：

''' <summary>  
    ''' 获得指定IE窗口中的"Frame Tab",可能存在多个  
    ''' </summary>  
    ''' <returns></returns>  
    ''' <remarks></remarks>  
    Private Function getIEFrameTab() As ArrayList  
        Dim IEFrameTabHwndArray As New ArrayList  
   
        Dim IEframeTabHwnd As IEWindowHwnd  
   
        '获得所有的IEFrame句柄  
        Dim IEHwndArray As New ArrayList  
        IEHwndArray = findAllIe()  
        '如果IEFrame数量为0，那么就立即返回空IEFrameTabHwndArray  
        If IEHwndArray.Count = 0 Then Return IEFrameTabHwndArray  
   
        Dim result As Integer  
        '需要查找类名"FrameTab"  
        Dim ieClass As String = "Frame Tab"  
        '循环获得FrameTab Hwnd  
        For i As Integer = 0 To IEHwndArray.Count - 1  
            Try  
                '从IEFrame句柄获得它下面的第一个FrameTab句柄  
                result = FindWindowEx(CType(IEHwndArray(i), Integer), 0, ieClass, Nothing)  
                Do While result <> 0  
                    '记录IE窗口的Hwnd,一直传递下去  
                    IEframeTabHwnd.IEhwnd = CType(IEHwndArray(i), Integer)  
                    '记录当前FrameTab窗口的Hwnd,一直传递下去  
                    IEframeTabHwnd.FTabhwnd = result  
                    '用于记录IE\_Server的窗口句柄，暂时用不上  
                    IEframeTabHwnd.Ie\_SHwnd = 0  
   
                    IEFrameTabHwndArray.Add(IEframeTabHwnd)  
                    '从IEFrame句柄获得它下面的下一个FrameTab句柄，直到返回0  
                    result = FindWindowEx(CType(IEHwndArray(i), Integer), result, ieClass, Nothing)  
                Loop  
            Catch ex As Exception  
                Continue For  
            End Try  
        Next  
        Return IEFrameTabHwndArray  
    End Function  
测试用的调用代码：

Private Sub Button1\_Click(sender As Object, e As EventArgs) Handles Button1.Click  
        ListBox1.Items.Clear()  
   
        Dim listIe As New ArrayList  
        listIe = getIEFrameTab()  
        If listIe.Count > 0 Then  
            For i As Integer = 0 To listIe.Count - 1  
                ListBox1.Items.Add(CType(listIe.Item(i), IEWindowHwnd).FTabhwnd)  
            Next  
        End If  
    End Sub

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

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

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

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/

发表评论取消回复

表情：

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

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

相关阅读

相关 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 赞/ 110 阅读

相关 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 赞/ 174 阅读

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

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

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

相关 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 阅读

相关 vue cli4 兼容IE浏览器

Babel是一个JavaScript编译器 -------------------- Babel是一个工具链，主要用于将ECMAScript 2015+代码转换为当前和

秒速五厘米/ 2021年11月27日 03:52/ 0 赞/ 736 阅读