VB6获取IE8的地址栏的URL信息

时间:2021-02-08 14:02:32

这是个老梗了,也没什么技术含量。因为自从接触Linux之后,Windows上我所知道的那一点api基本上都忘光了。所以这样的博文可以当做是备忘,说不定有天还能用的到。

Windows上想要获取浏览器的地址栏信息,基本思路是枚举浏览器的子窗体,然后获取hwnd(handle of window),最后使用SendMessage & WM_GETTEXT(或者 GetWindowText大体上没什么区别)。好,基于这样的事实,我们来做个简单的实现。

1.获取IE窗口

这个很简单通过FindWindow就可以做到,前提是我们已经知道了IE8的ClassName(窗口的类名称)是“IEFrame”。这样的话,用FindWindow这样的函数,就可以直接获取。当然,如果你是像获取Chrome这类浏览器,请先在Spy++中抓取窗口看看类名称。

 

2.通过枚举得到地址栏子窗体

使用Spy++可以很轻松地得到IE8的子窗体分布情况,请看下图:

VB6获取IE8的地址栏的URL信息

下面两个我就不列出来了(因为编辑这个太累了),我们需要获取的是这样一个路径:IEFrame->WorkerW->RebarWindow32->Address Band Root->Edit。

到此为止基本上问题分析就已经结束了,直接上代码吧(叙述真累人)。

 

3.代码

Private Function GetIE8Url() As String
Dim hwnd As Long 'default 0, which eq top-hwnd.
Dim lpsz1
Dim url As String * 2048
Dim length As Long

For Each lpsz1 In Array("IEFrame", _
"WorkerW", _
"ReBarWindow32", _
"Address Band Root", _
"Edit")
hwnd
= FindWindowEx(hwnd, 0&, lpsz1, vbNullString)
Next
length
= SendMessage(hwnd, WM_GETTEXT, 2048&, ByVal url)
GetIE8Url
= Left(url, length)
End Function

 

如上所示,获取IE8地址栏URL信息的函数就实现了。我没有写函数声明,和容错处理,因为这样的函数是在确定IE8在运行的情况下执行的(当然你可以改写)。