VB Scriptですでに開いているIEを使用するにはどうすればよいですか？ GetObjectが機能しない

Question

以下は、新しいウィンドウを開くために使用したコードブロックです。私はGetObjectの代わりにの代わりにオブジェクトを使ってみました。しかし、動作しませんでした。

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

「

Dim IE 
Set IE = CreateObject("InternetExplorer.Application") 

IE.Visible = True 
IE.navigate "https://msn.com" 

Do While IE.ReadyState <> 4 
    WScript.Sleep 1000 
Loop 

Set ElementCol = IE.Document.getElementsByTagName("a") 

For Each Link In ElementCol 
    If Link.innerHTML = "News" Then 
    Link.Click 
    WScript.Sleep(6000) 
Exit For 
End If 
Next 

IE.navigate "https://msn.com" 

Answer 1

これは、インターネットを行うために使用エクスプローラを使用しています。

Set objShell = CreateObject("Shell.Application") 
Do 
    Set AllWindows = objShell.Windows 
    Count = 0 
    For Each window in AllWindows 
msgbox window.locationname 
'  window.refresh2 3 
     Count = Count + 1 
    Next 
    If Count = 0 then Exit Do 
    Wscript.sleep 5000 
Loop