С помощью следующего сценария я создаю элемент определенного типа тега, устанавливаю идентификатор и планирую затем использовать метод Document.getElementById для работы с ним. Однако следующий код приводит к тому, что элемент создается как
<DIV id=JSBridge></DIV>
Для правильного HTML это должно быть
<DIV id="JSBridge"></DIV>
Так что кавычки отсутствуют.
Пока мой код:
Private Sub JS_Bridge(JsToRun As String)
Dim body As IHTMLElement
Dim scriptEl As IHTMLElement
Dim controlEl As IHTMLElement
Set body = WebBrowser1.Document.GetElementsByTagName("body")(0)
Set controlEl = WebBrowser1.Document.createElement("div")
Set scriptEl = WebBrowser1.Document.createElement("script")
controlEl.ID = "JSBridge"
MsgBox controlEl.outerHTML
scriptEl.Text = JsToRun
body.appendChild scriptEl
body.appendChild controlEl
End Sub
Я также пробовал:
controlEl.ID = """" & "JSBridge" & """"
Однако это приводит к:
<DIV id='"JSBridge"'></DIV>
Что недействительно.