reusing Internet Explorer COM Automation Object

问题

I am using VBScript macros to utilize the InternetExplorer.Application COM automation object and I am struggling with reusing an existing instance of this object.

From what I have read, I should be able to use the GetObject() method in vbscript to grab a hold of an existing instance of this object.

When I execute the following code I get an "Object creation failed - moniker syntax error".

Is my issue really syntax?

Is my issue how I am trying to use this object?

or can what I am trying to accomplish just not be done?

Code:

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

Also, I have no problem running the CreateObject() which opens up a new internet explorer window and navigates where i want to, but i would rather not have the macro open up multiple instances of Internet Explorer.

回答1:

Try This:


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

*Notice the comma before "InternetExplorer.Application"

EDIT: Try this:


Dim IE As SHDocVw.InternetExplorer

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

You can also try this:


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")

EDIT:
What you are trying may not be possible, take a look at this. http://support.microsoft.com/kb/239470

来源：https://stackoverflow.com/questions/941767/reusing-internet-explorer-com-automation-object

标签

internet-explorer

com

vbscript

automation