急急急，在线等待！如何获取地址栏内的内容？

Question

比如：IE，Explorer，GoSuRF，先谢了！

Answer 1

IE，Explorer
'引用Microsoft Internet Controls
Private Sub Command3_Click()
Dim wn As ShellWindows
Dim a As InternetExplorer
Set wn = New ShellWindows
For Each a In wn
MsgBox a.LocationURL
Next
End Sub

Answer 2

lHwnd = FindWindowEx(0, preHwnd, "IEFrame", vbNullString)
Hwnd1 = lHwnd
Dim buffer As String
sClassName = ("WorkerW")
Hwnd1 = FindWindowEx(Hwnd1, 0, sClassName, vbNullString) '获得IE窗口的工作区的句柄
sClassName = ("ReBarWindow32")
Hwnd1 = FindWindowEx(Hwnd1, 0, sClassName, vbNullString) '获得IE窗口的菜单栏的句柄
sClassName = ("ComboBoxEx32")
Hwnd1 = FindWindowEx(Hwnd1, 0, sClassName, vbNullString) '获得IE窗口的下拉菜单的句柄
sClassName = ("ComboBox")
Hwnd1 = FindWindowEx(Hwnd1, 0, sClassName, vbNullString) '获得IE窗口的下拉菜单当前项的句柄
sClassName = ("Edit")
Hwnd1 = FindWindowEx(Hwnd1, 0, sClassName, vbNullString) '获得这个下拉菜单的编辑框句柄
windowhandle = Hwnd1 '接收当前我们想要的句柄
buffer = Space(255)
aa = SendMessage(windowhandle, WM_GETTEXT, 256, ByVal buffer)
GetAddress = RTrim(buffer)