Internet Explorer'ı yeniden kullanma COM Otomasyon Nesnesi

Question

InternetExplorer.Application COM otomasyon nesnesini kullanmak için VBScript makrolarını kullanıyorum ve bu nesnenin varolan bir örneğini yeniden kullanmakta zorlanıyorum.

Okuduklarımdan, bu nesnenin varolan bir örneğini tutmak için VBScript'te GetObject() yöntemini kullanabilmem gerekir.

Aşağıdaki kodu çalıştırdığımda bir "Nesne oluşturma başarısız oldu - moniker sözdizimi hatası" alıyorum.

Sorunum gerçekten sözdizimi mi?

Sorunum bu nesneyi nasıl kullanmaya çalışıyorum?

veya gerçekleştirmeye çalıştığım şey, henüz yapılmayabilir mi?

Kodu: Ayrıca

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 

, ben CreateObject (çalıştıran sorunum yok) Yeni bir internet explorer penceresi açılır ve ben istediğiniz gider, ama daha ziyade makro birden açmak olmazdı Internet Explorer örnekleri.

Answer 1

Bu deneyin:

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

* "InternetExplorer.Application"

DÜZENLEME önce virgül Uyarı: bu deneyin:

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

:

Dim IE As SHDocVw.InternetExplorer 

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

Ayrıca bu deneyebilirsiniz

DÜZENLEME:
Denediğiniz şey mümkün olmayabilir, buna bir bakın. http://support.microsoft.com/kb/239470