转:
参考的一个文档的地址:
http://www.softwareinquisition.com/81.htm
Dim newObj
Set newObj = Browser("**").Page("**").Object.createElement("Div")
'newObj.innertext = "试试"
newObj.id = "idtest"
Browser("**").Page("**").Object.body.appendChild newObj
'动态加载JS脚本
Dim objHead,objScript
Set bjHead = Browser("**").Page("**").Object.getElementsByTagName("HEAD").item(0)
Set bjScript. = Browser("*").Page("*").Object.createElement( "script" )
objScript.language = "javascript"
objScript.type = "text/javascript"
objScript.id = "sIdTest"
objScript.defer = true
objScript.text = "function aaa(){alert(""测试一下"");} document.getElementById('idtest').οnclick=aaa "
objHead.appendChild( objScript. )
newObj.fireEvent "onclick"
————————————————————————
**********************************8
以上的方法都是说需要特殊处理的情况,如果说只是执行已有JS函数或都JS脚本,那只要用以下方法即可:
Dim objHead,objScript
Set bjHead = Browser("**").Page("**").Object.getElementsByTagName("HEAD").item(0)
Set bjScript. = Browser("**").Page("**").Object.createElement( "script" )
objScript.language = "javascript"
objScript.type = "text/javascript"
objScript.id = "sIdTest"
objScript.defer = true
objScript.text = "JS脚本或JS函数名"
objHead.appendChild( objScript. )
本文转自hcy's workbench博客园博客,原文链接:http://www.cnblogs.com/alterhu/archive/2012/06/03/2533387.html,如需转载请自行联系原作者。