इंटरनेट एक्सप्लोरर COM ऑटोमेशन ऑब्जेक्ट का पुन: उपयोग

Question

मैं InternetExplorer.Aplication COM ऑटोमेशन ऑब्जेक्ट का उपयोग करने के लिए VBScript मैक्रोज़ का उपयोग कर रहा हूं और मैं इस ऑब्जेक्ट के मौजूदा उदाहरण का पुन: उपयोग करने के लिए संघर्ष कर रहा हूं।

जो मैंने पढ़ा है, उससे मैं इस ऑब्जेक्ट के मौजूदा उदाहरण को पकड़ने के लिए 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 (चल रहा कोई समस्या नहीं है), जो एक नया इंटरनेट एक्सप्लोरर विंडो खुल जाता है और नेविगेट करता है मैं कहाँ करना चाहते हैं, लेकिन मैं नहीं बल्कि मैक्रो कई खोल नहीं होगा इंटरनेट एक्सप्लोरर के उदाहरण।

Answer 1

इस प्रयास करें:

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

* सूचना अल्पविराम "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") 

:

Dim IE As SHDocVw.InternetExplorer 

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

आप भी इस कोशिश कर सकते हैं

संपादित करें:
आप जो कोशिश कर रहे हैं वह संभव नहीं हो सकता है, इसे देखें। http://support.microsoft.com/kb/239470