[AWS]

Hi,

I have this code, with wich I'm able to get the current url of a running ie instance.

Imports System.Text
Imports System.Runtime.InteropServices.Marshal

Module geturl
    Private Delegate Function EnumProcDelegate(ByVal hwnd As IntPtr, ByVal lParam As IntPtr) As Boolean 'Delegate added
    Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As EnumProcDelegate, ByVal lParam As IntPtr) As Boolean
    Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As IntPtr, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As IntPtr, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
    Private Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As IntPtr, ByVal lpString As StringBuilder, ByVal nMaxCount As Integer) As Integer
    Private Declare Function GetWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal wCmd As IntPtr) As IntPtr
    Private Const WM_GETTEXT = &HD
    Private Const WM_GETTEXTLENGTH = &HE
    Private Const GW_CHILD = 5
    Private Const GW_HWNDNEXT = 2
    Private Const GW_HWNDFIRST = 0
    Private sURL As String
    Private sClassName As String = "Edit" 'Default
    Private title As String
    Private sIndent As String 'Spaces

    Public Function GetCurrentUrl(ByVal hwnd As IntPtr) As String
        sClassName = ""
        sURL = ""
        sIndent = ""
        EnumWindows(AddressOf EnumProc, hwnd) 'hwnd - originally IntPtr.Zero
        Return sURL
    End Function

    Private Function EnumProc(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean
        ' Enumerate the windows
        ' Find the URL in the browser window 
        Dim buf As StringBuilder = New StringBuilder(256) 'String * 1024
        Dim length As Integer

        ' Get the window's title.
        length = GetWindowText(hWnd, buf, buf.Capacity)
        title = Left(buf.ToString, length)

        If title <> "" Then
            If title.Contains("Mozilla Firefox") Or title.Contains("Internet Explorer") Or title.Contains("Chrome") Then
                ' This is it. Find the URL information.
                sURL = EditInfo(hWnd)
                Return False
            End If
        End If
        ' Continue searching
        Return True

    End Function
    Private Function WindowText(ByVal window_hwnd As IntPtr) As String
        Dim txtlen As Integer
        Dim txt As String

        txt = "" 'WindowText = ""
        If window_hwnd = 0 Then Return "" 'Exit Function

        'Get the size of the window text
        txtlen = SendMessage(window_hwnd, WM_GETTEXTLENGTH, 0, 0)
        If txtlen = 0 Then Return "" 'Exit Function

        'Extra for terminating char
        txtlen = txtlen + 1

        'Alloc memory for the buffer that recieves the text
        Dim buffer As IntPtr = AllocHGlobal(txtlen)

        'Send The WM_GETTEXT Message
        txtlen = SendMessage(window_hwnd, WM_GETTEXT, txtlen, buffer) 'byval txt 

        'Copy the characters from the unmanaged memory to a managed string
        txt = PtrToStringAnsi(buffer)
        Return Left(txt, txtlen)
    End Function
    Private Function EditInfo(ByVal window_hwnd As IntPtr) As String
        Dim txt As String = ""
        Dim buf As String
        Dim buflen As Integer
        Dim child_hwnd As IntPtr
        Dim children() As IntPtr = {}
        Dim num_children As Integer
        Dim i As Integer

        'Get the class name.
        buflen = 256
        buf = Space(buflen - 1)
        buflen = GetClassName(window_hwnd, buf, buflen)
        buf = Left(buf, buflen)

        If title.Contains("Mozilla Firefox") Then
            sClassName = "MozillaContentWindowClass"
        ElseIf title.Contains("Internet Explorer") Then
            sClassName = "Edit"
        ElseIf title.Contains("Chrome") Then
            sClassName = "Chrome_AutocompleteEditView"
        End If


        ' See if we found an Edit/AutocompleteEditView object.
        If buf = sClassName Then
            Return WindowText(window_hwnd)
        End If

        ' It's not an Edit/AutocompleteEditView object. Search the children.
        ' Make a list of the child windows.
        num_children = 0
        child_hwnd = GetWindow(window_hwnd, GW_CHILD)
        While child_hwnd <> 0
            num_children = num_children + 1
            ReDim Preserve children(0 To num_children) 'was 1 to ..
            children(num_children) = child_hwnd
            child_hwnd = GetWindow(child_hwnd, GW_HWNDNEXT)
        End While

        ' Get information on the child windows.
        sIndent &= "    "
        For i = 1 To num_children
            txt = EditInfo(children(i))
            If txt <> "" Then Exit For
        Next i
        sIndent = Left(sIndent, sIndent.Length - 4)

        Return txt
    End Function
End Module

I simply call GetCurrentUrl(handle of the ie) and that's it.

But I'm unable to get the current url of the firefox window. I have already changed the

sClassName = "MozillaContentWindowClass"

to everything, but no succes.

I have googled a many too, and it seems, that others have this problem too.

Can you help me out?

View the full article