VB获取浏览器地址

发布网友发布时间：2022-04-22 18:38

共4个回答

热心网友时间：2023-09-27 14:45

'引用Microsoft Internet Controls
'添加listbox
'列出所有IE窗口的地址,要达到你要的效果,变通一下就OK

Dim dWinFolder As New ShellWindows

Private Sub Form_Load()

Dim objIE As Object

For Each objIE In dWinFolder

If 0 Or InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then

List1.AddItem objIE.LocationURL

End If

Next

End Sub

热心网友时间：2023-09-27 14:46

给你个思路吧。1.获取所有ie窗口
2.对每一个窗口，搜索地址栏类型的子窗口
3.判断是否以http://开头的，如果是则获取

我现在没有vb的api浏览器，也没时间，不好意思，有时间给你回答一下

热心网友时间：2023-09-27 14:46

Dim oShellApp, oShellAppWindows, oWin
Set oShellApp = CreateObject("Shell.Application")
Set oShellAppWindows = oShellApp.Windows
For Each oWin In oShellAppWindows
If LCase(TypeName(oWin.document)) = "htmldocument" Then
text1.text= oWin.LocationURL
enf if
Next
Set oWin = Nothing
Set oShellApp = Nothing
Set oShellAppWindows = Nothing

热心网友时间：2023-09-27 14:47

一个控件