如果不使用 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