【软件测试自动化-QTP系列讲座 45】== JScript在QTP中的应用探究（一） ==

作者：zzxxbb112

时间：2011/11/16 版权所有，侵权必究。

出处：http://blog.csdn.net/zzxxbb112

我们都知道QTP工具的后台语言是VBScript，并且也只能唯一支持VBScript语言来进行执行测试脚本。但是你有没有想过试用JS来运行你的测试脚本呢。那样就会是一个完全不同的面向对象的世界，可以试用prototype来扩展行为，更好的try……catch异常处理机制，这些都是VBS语言所无法触及的。

那么接下来就来看一个简单的例子

首先确保你的QTP最新版本11，因此接下来要演示的是11才有的新功能。

实例1 - 输出消息框：

view plaincopy to clipboardprint?

Dim iquicktest
iquicktest = "blog.csdn.net/zzxxbb112"
systemutil.Run "C:\Program Files\Internet Explorer\iexplore.exe",iquicktest
Browser("micClass:=Browser").Page("micClass:=Page").RunScript "alert('iquicktest');"

view plaincopy to clipboardprint?

function iquicktest()

{
var ret = [];

var myName,myWebsite ;

myName = 'zzxxbb112';

myWebsite = "www.iquicktest.com"

ret.push(myName);
ret.push(myWebsite);
return ret;

}

iquicktest();

function iquicktest()
{
var ret = [];
var myName,myWebsite ;
myName = 'zzxxbb112';
myWebsite = "www.iquicktest.com"
ret.push(myName);
ret.push(myWebsite);
return ret;
}

iquicktest();

完毕后保存为c:\iquicktest.js

接着在QTP中输入以下脚本：

view plaincopy to clipboardprint?

'定义变量
Dim iquicktest : iquicktest = "blog.csdn.net/zzxxbb112"

'启动浏览器，并跳转页面
systemutil.Run "C:\Program Files\Internet Explorer\iexplore.exe",iquicktest

'运行jscript脚本并传递回参数

set arr = Browser("micClass:=Browser").Page("micClass:=Page").RunScriptFromFile("c:/1.js")

'分割字符串
arr = split(arr,",")

'遍历所有值并打印

For each i in arr

msgbox i

Next

'定义变量
Dim iquicktest : iquicktest = "blog.csdn.net/zzxxbb112"

'启动浏览器，并跳转页面
systemutil.Run "C:\Program Files\Internet Explorer\iexplore.exe",iquicktest

'运行jscript脚本并传递回参数
set arr = Browser("micClass:=Browser").Page("micClass:=Page").RunScriptFromFile("c:/1.js")

'分割字符串
arr = split(arr,",")

'遍历所有值并打印
For each i in arr

msgbox i

Next

分析：在QTP的说明文档中规定，如果需要传递值就必须在js中通过push的方式把值传递出来，接着通过RunScriptFromFile方法返回一个JScriptTypeInfo类型的对象出来，注意必须以set方式把其当作对象接收，最终把所有值打印出来。

结果：

分别打印了 zzxxbb112, www.iquicktest.com.

总结：

这一章主要是简单让大家尝鲜了一下jscript在QTP中的初步应用，在下一讲内容我们会讲座如何在QTP脚本编辑器中直接运行js脚本，揭秘当初QTP大师Tarun视频演示JScript直接运行QTP脚本内容（到目前为止并为公开此技术），这将会是真正意义上的划时代。