重用 Internet Explorer COM 自动化对象

Question

我正在使用 VBScript 宏来利用 InternetExplorer.Application COM 自动化对象，我正在努力重用该对象的现有实例。

根据我的阅读，我应该能够使用 vbscript 中的 GetObject() 方法来获取该对象的现有实例。

当我执行以下代码时，我收到“对象创建失败 - 名字对象语法错误”。

我的问题真的是语法吗？

我如何尝试使用这个对象是我的问题吗？

或者我想要完成的事情不能完成吗？

代码：

Dim IEObject as object

Sub Main  
  Set IEObject =  GetObject( "InternetExplorer.Application" )

  'Set the window visable
  IEObject.Visible = True

  'Navigate to www.google.com
  IEObject.Navigate( "www.google.com" )
End Sub

另外，我运行 CreateObject() 没有问题，它会打开一个新的 Internet Explorer 窗口并导航到我想要的位置，但我不想让宏打开 Internet Explorer 的多个实例。

Answer 1

试试这个：

Set IEObject =  GetObject( ,"InternetExplorer.Application" )

*注意“InternetExplorer.Application”前面的逗号

编辑： 试试这个：

Dim IE As SHDocVw.InternetExplorer

Set IE = GetObject(,"InternetExplorer.Application")

你也可以试试这个：

Dim ShellApp
Set ShellApp = CreateObject("Shell.Application")
Dim ShellWindows
Set ShellWindows = ShellApp.Windows()
Dim i
For i = 0 To ShellWindows.Count - 1
    If InStr(ShellWindows.Item(i).FullName, "iexplore.exe") <> 0 Then
        Set IEObject = ShellWindows.Item(i) 
    End If
Next
IEObject.Navigate2("http://www.google.com")

编辑：
您正在尝试的可能是不可能的，看看这个。 http://support.microsoft.com/kb/239470