以编程方式确定 IE 窗口当前 URL，无需 BHO

发布于 10-21 11:53 字数 322 浏览 9 评论 0原文

有人可以指导我如何在没有 BHO 的情况下以编程方式确定 IE 当前的 URL 吗？

我能够想到完成此类功能的唯一方法是查看窗口的标题而不是 URL，但这看起来很hacky。

另一方面，我假设存储 URL 的文本框有一个句柄，我可以附加该句柄并读取文本。我的这个假设正确吗？

任何指导将不胜感激。

PS：如果您能提供也适用于 Firefox 的示例/指南，则会加分。

编辑：好的，进一步的研究开始发现我需要查看的是 GetWindowText 和消息 WM_GETTEXT。如果我把这一切都解决了，我会发布答案。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

晨曦慕雪2024-10-28 11:53:31

所以这是一篇非常旧的帖子，但我偶然发现了它，所以我想我会尝试回答它，因为我刚刚了解到这个:)

你可以使用 Windows Shell。您可以循环访问打开的窗口并查找任何“HTTPDocumentClass”对象（这些是 Internet Explorer 窗口），然后您可以访问 .LocationUrl 成员来查找 URL。

我不知道如何用 C# 编写示例，但以下是用 VB 编写的示例。
注意：您需要添加对Microsoft Shell 控件和自动化和Microsoft Internet 控件的引用。

Imports Shell32
Imports SHDocVw

Public Function GetIExplorerURL() As String()
    Dim exShell As New Shell32.Shell
    Dim URLs As New List(Of String)
    For Each window As SHDocVw.ShellBrowserWindow In DirectCast(exShell.Windows, SHDocVw.IShellWindows)
        If TypeName(window.Document) = "HTMLDocumentClass" Then
            URLs.Add(window.LocationURL)
        End If
    Next

    Return URLs.ToArray
End Function

So this is a REALLLLLY old post, but I stumbled upon it so figured I would attempt to answer it since I just learned this :)

You can do it using the Windows Shell. You can iterate through the open windows and look for any "HTTPDocumentClass" object (these are Internet Explorer windows) and then you can access the .LocationUrl member to find out the URL.

I don't know how to write an example in C#, but here's how you do it in VB.
NOTE: You need to add references to Microsoft Shell Controls and Automation and Microsoft Internet Controls.

Imports Shell32
Imports SHDocVw

Public Function GetIExplorerURL() As String()
    Dim exShell As New Shell32.Shell
    Dim URLs As New List(Of String)
    For Each window As SHDocVw.ShellBrowserWindow In DirectCast(exShell.Windows, SHDocVw.IShellWindows)
        If TypeName(window.Document) = "HTMLDocumentClass" Then
            URLs.Add(window.LocationURL)
        End If
    Next

    Return URLs.ToArray
End Function

回复收藏 0 原文

~没有更多了~