QTP的那些事—QTP run javascript in web page

转：

·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').onclick=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. )

---

作者：高级测试开发网·
本文版权归作者有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。

---