如果不使用 Navigate2 的方法去通路現有頁面，如何将JS寫到該浏覽器中???

WebBrowser1控件必須打開一個頁面，空白也可以，然後在下列事件處理

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    Dim doc As HTMLDocument

    Dim js As HTMLScriptElement

    Set js = doc.createElement("script")

    js.defer = True

    js.src = "http://localhost/a.js"

    doc.body.appendChild js

End Sub