香港新浪網 MySinaBlog
« 上一篇 | 下一篇 »
Emily | 19th Dec 2005, 00:02 AM | Network / Media | (1405 Reads)

平均分: 10.00 | 評分人數: 1

列出 IE 開啟中的 URL

以下編碼可列出 IE 連接中的 URL,需引用

Microsoft Internet Controls , Microsoft Shell Controls and Automation

Ref: Scriptable Shell Objects

Sub ListShellWindows()
' Written by Herilane orginally post in Xtreme
' Get all currently open IE and Explorer windows (those are based on the same class).
' For IE windows, get location. For WE windows, get path.
' Reference to Microsoft Internet Controls and to Microsoft Shell Controls and Automation
 
    Dim objShell As Shell
    Dim objIE As InternetExplorer
    Dim objExplorer As ShellFolderView
    Dim obj As Object
    Dim x As Integer
 
    x = 1
    Set objShell = New Shell
    For Each obj In objShell.Windows
        If TypeName(obj.Document) = "HTMLDocument" Then
            Set objIE = obj
            'Debug.Print objIE.LocationURL
            Cells(x, 1).Value = objIE.LocationURL
            x = x + 1
        Else
            Set objExplorer = obj.Document
            'Debug.Print objExplorer.FocusedItem.Path
            MsgBox objExplorer.FocusedItem.Path
        End If
    Next obj
 
End Sub
 

[2]

不用客氣


[引用] | 作者 Emily | 22nd Dec 2005 16:29 PM | [舉報垃圾留言]

[1] 实用,谢谢lotustower姐姐!

实用,谢谢lotustower姐姐!


[引用] | 作者 七叶一枝梅 | 22nd Dec 2005 11:46 AM | [舉報垃圾留言]