VB获取IE8地址栏的URL

Function GetIE8AddressBarURL() As String

Dim lpClassName

Dim hwnd As Long

Dim i As Integer

Dim lpURL As String * 256

lpClassName = Array("IEFrame", "WorkerW", "ReBarWindow32", "Address Band Root", "Edit")

hwnd = FindWindow(lpClassName(0), vbNullString)

If hwnd=0 Then Exit Function

For i = 1 To 4

      hwnd = FindWindowEx(hwnd, 0, lpClassName(i), vbNullString)

      If hwnd = 0 Then Exit Function

Next

SendMessage hwnd, WM_GETTEXT, 256, ByVal lpURL

GetIE8AddressBarURL = Replace(lpURL, Chr$(0), "")

End Function