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