Question

如何调整下面的vbscript代码，为我提供IE8中ACTIVE选项卡的URL？我可以使用AppActivate方法聚焦窗口并获取URL，而不是为Internet Explorer创建对象并导航到声明的网站吗？注意：vbscript将在用户的本地计算机上使用，而不是嵌入在其他网页中。谢谢！

Set IE=CreateObject("InternetExplorer.application")
IE.Visible=false

IE.Navigate "http://www.google.com"

Do While IE.Busy
wScript.sleep 1000
Loop

WScript.Echo IE.Document.URL

Answer 1

如果您尝试获取活动实例，则不应使用CreateObject。 GetObject也不会帮助你。您需要使用Windows对象的Shell.Application集合。

Set Shell = CreateObject("Shell.Application")

For Each Window In Shell.Windows

    ' Make sure it's an Internet Explorer (iexplore) window...
    If InStr(1, Window.FullName, "iexplore.exe", vbTextCompare) > 0 Then

        ' Display the URL of the current page...
        MsgBox Window.LocationUrl

    End If

Next

使用VBscript获取活动IE8选项卡的URL

1 个答案: