我有第三方应用程序(已编译),可以从HTML页面读取数据。这是通过创建Internet Explorer对象并加载空页(.navigate“about:blank”)来完成的。表单元素通过Document.Body.innerHTML添加到页面中。通过提交应用程序退出HTML页面时,通过CreateObject(“WScript.Shell”)读取提交数据。我想添加一些JavaScript来将输入数据合并到一个字符串中。也就是说,输入到输入文本框1和输入文本框2的数据在文本框3中连接,或者根据复选框或单选按钮改变文本框3中的值。然后我可以将这些值发送回应用程序。如何进一步修改此空网页以包含java脚本来完成上述操作
“g_objIE.Document.Body.innerHTML =”代码工作得很好。它非常基础,只包含表单元素。我可以简单地将java脚本添加到innerHTML吗?我不这么认为。我尝试添加非常基本的代码并收到“期待语句结束”错误。我试图插入:“
" & _ " document.getElementById("demo").innerHTML = 5 + 6; "& _这是工作代码。
' First step, set up the dialog (InternetExplorer)
Set g_objIE = CreateObject("InternetExplorer.Application")
g_objIE.Offline = True
g_objIE.navigate "about:blank"
g_objIE.document.focus()
' Wait for the navigation to the "blank" web page to complete
Do
crt.Sleep 900
Loop While g_objIE.Busy
g_objIE.Document.body.Style.FontFamily = "Sans-Serif"
' Here's where we "create" the elements of our dialog box. We basically
' throw HTML into the document, and IE loads it in real-time for us.
'
' The hidden "ButtonHandler" input is used to tie IE and
' SecureCRT together such that SecureCRT can know when a
' button is pressed, etc.
g_objIE.Document.Body.innerHTML = _
"<input type=radio name='LogMode' value='Append' AccessKey='A' checked>fpeth.3125 / Access" & _
"   " & _
"<input type=radio name='LogMode' value='Overwrite' Accesskey='w' >fpeth.3070 / Core<br>" & _
"<hr>" & _
"<b>Path/File</b> <input name='fName' size='60' maxlength='60' tabindex=1><br>" & _
"<b>HOST</b> <input name='tID' size='30' maxlength='30'><br>" & _
"<hr>" & _
"<button name='Cancel' AccessKey='C' onclick=document.all('ButtonHandler').value='Cancel';><u>C</u>ancel</button>" & _
"<input name='ButtonHandler' type='hidden' value='Nothing Clicked Yet'>"
g_objIE.MenuBar = False
g_objIE.StatusBar = True
g_objIE.AddressBar = False
g_objIE.Toolbar = False
g_objIE.height = 270
g_objIE.width = 510
g_objIE.document.Title = "TCP"
g_objIE.Visible = True
document.write
而不是body.innerHTML
。除了使脚本有效之外,还可以控制HTML头文件和文档类型。Dim htmlString
htmlString = _
"<!doctype html>" & _
"<html>" & _
"<head><title>tcp</title></head>" & _
"<body>" & _
"<input type=radio name='LogMode' value='Append' AccessKey='A' checked>fpeth.3125 / Access" & _
"   " & _
"<input type=radio name='LogMode' value='Overwrite' Accesskey='w' >fpeth.3070 / Core<br>" & _
"<hr>" & _
"<b>Path/File</b> <input name='fName' size='60' maxlength='60' tabindex=1><br>" & _
"<b>HOST</b> <input name='tID' size='30' maxlength='30'><br>" & _
"<hr>" & _
"<button name='Cancel' AccessKey='C' onclick=document.all('ButtonHandler').value='Cancel';><u>C</u>ancel</button>" & _
"<input name='ButtonHandler' type='hidden' value='Nothing Clicked Yet'>" & _
"<div id=demo>goes here</div>" & _
"<script> " & _
" document.getElementById('demo').innerHTML = (5 + 6).toString(); " & _
"</script>" & _
"</body>" & _
"</html>"
g_objIE.document.write(htmlString)