引用Microsoft Internet Controls
Private Sub Command1_Click()
Dim ieWin As New ShellWindows
Dim ie As InternetExplorer
For Each ie In ieWin
MsgBox ie.LocationURL
ie.Quit
Next
End Sub
调用API试试
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long