确定任何打开的 IE 窗口的 URL

有谁知道如何获取计算机上任何打开的 IE 进程的 URL？ 我根本不需要操作 IE 实例——只需获取有关当前加载的页面的信息即可。

Thanks!

这似乎是一种方法（代码是 Visual Basic，抱歉，但它显示了原理）：

Private Declare Function GETWINDOWTEXT Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Integer, ByVal lpString As String, ByVal cch As Integer) As Integer
Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Integer) As Integer
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
Private Declare Ansi Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
Private Const WM_GETTEXT As Short = &HDS
Private Const WM_GETTEXTLENGTH As Short = &HES

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim hwnd As Integer = FindWindowEx(0, 0, "IEFrame", vbNullString)

        If Not hwnd = 0 Then
            SetForegroundWindow(hwnd)

            Dim Worker As Integer = FindWindowEx(hwnd, 0, "WorkerW", vbNullString)
            Dim ToolBar As Integer = FindWindowEx(Worker, 0, "ReBarWindow32", vbNullString)
            Dim ComboBoxEx As Integer = FindWindowEx(ToolBar, 0, "ComboBoxEx32", vbNullString)

            Dim txtLength As Long = SendMessage(ComboBoxEx, WM_GETTEXTLENGTH, CInt(0), CInt(0)) + 1  ' Get Length Of Text
            Dim txtBuff As String = Space(txtLength)
            Dim URL As Long = URL = SendMessage(ComboBoxEx, WM_GETTEXT, txtLength, txtBuff) 'Get URL From ComboBoxEx

            MsgBox(txtBuff)
        End If
End Sub

基本上，您要找到 IE 窗口，然后向下钻取以查找在其中键入 URL 的组合框，然后获取在其中键入的任何字符串。显然这不是一个完美的方法（如果有人覆盖了 URL 但没有按 Enter，你就不会知道）。