Left 函数（Right函数就是从右边开始算起）
T%Y\w x+JW!xhg128649返回指定数目的从字符串的左边算起的字符。Left(string, length)
~U\o8^rG128649参数软件测试专业网站:51Testing软件测试网.c B+? Tp|Cr
string:字符串表达式，其最左边的字符被返回。如果 string 参数中包含 Null，则返回 Null。
.?N6u-tB&h{1`128649Length:数值表达式，指明要返回的字符数目。如果是 0，返回零长度字符串 ("")；如果大于或等于 string 参数中的字符总数，则返回整个字符串。
+n5N,Z$t1S2c3\128649例子：软件测试专业网站:51Testing软件测试网 FtBk#m9o5A
Dim MyString, LeftString软件测试专业网站:51Testing软件测试网7w]g0E}:] ^0u/T8M/k@
MyString = "VBscrīpt"软件测试专业网站:51Testing软件测试网7C)s9~ _0A'\ tn
LeftString = Left(MyString, 3) ' LeftString contains "VBS".软件测试专业网站:51Testing软件测试网6ow s9Kzd
***********************************
A6T?m G,y128649Mid 函数软件测试专业网站:51Testing软件测试网/qO2R.JY6}"? J$\J-q
从字符串中返回指定数目的字符。软件测试专业网站:51Testing软件测试网+M!vYM4w(NT
Mid(string, start[, length])
B:dYa4]:I4j&Lq/K128649参数：软件测试专业网站:51Testing软件测试网 rb ~ b+pz
by
string：字符串表达式，从中返回字符。如果 string 包含 Null，则返回 Null。软件测试专业网站:51Testing软件测试网4WU#Wx)X-b
Start：string 中被提取的字符部分的开始位置。如果 start 超过了 string 中字符的数目，Mid 将返回零长度字符串 ("")。软件测试专业网站:51Testing软件测试网{yn'[XG-bH
Length：要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到字符串结束的所有字符。软件测试专业网站:51Testing软件测试网 t9M Hm3@ O
例子
&G.gid _;](K128649Dim MyVar软件测试专业网站:51Testing软件测试网hY+d kx#W1g?%h
MyVar = Mid("VB scrīpt is fun!", 4, 6) ' MyVar contains "scrīpt".
q!H7h1?qk |6F128649********************软件测试专业网站:51Testing软件测试网6r
a&\^6\0n%o+p
InStr函数（InStrRev函数相反从最后向前起）软件测试专业网站:51Testing软件测试网2j hz9F x|
返回指定的字符串在另一字符串中最先出现的位置。
l0X\a`"QD%{U'd128649InStr([start, ]string1, string2[, compare])软件测试专业网站:51Testing软件测试网:[To`l9cs l
参数：软件测试专业网站:51Testing软件测试网 ]r2Kr
Qv
start：起始位置，默认从第一位软件测试专业网站:51Testing软件测试网 c
TX"S["fO:\ F+y
string1:主体字符串，从左向右查找。如果string1为 Null，则返回 Null。软件测试专业网站:51Testing软件测试网(h3ZNo)]dO
string2：查找的字符串，如果string2为 Null，则返回 Null。找不到就返回0。
R$Y1}^ A128649compare：0是二进制比较，1是文本比较。0为缺省值。个人感觉区别就是在大小写。软件测试专业网站:51Testing软件测试网]3fSw?
例子
#G}5xhKczh6P128649Dim SearchString, SearchChar, MyPos
(ps6TX"|,A$m0P128649SearchString ="XXpXXpXXPXXP"   ' String to search in.软件测试专业网站:51Testing软件测试网_%@(F ?J
SearchChar = "P"   ' Search for "P".软件测试专业网站:51Testing软件测试网:\w*Y\Z?1l
MyPos = Instr(4, SearchString, SearchChar, 1)   ' A textual comparison starting at position 4. Returns 6.软件测试专业网站:51Testing软件测试网 O0D$IP:^ ^}%f t"z
MyPos = Instr(1, SearchString, SearchChar, 0)   ' A binary comparison starting at position 1. Returns 9.   
.}(k Y)N!yOr128649MyPos = Instr(SearchString, SearchChar)   ' Comparison is binary by default (last argument is omitted). Returns 9.软件测试专业网站:51Testing软件测试网?"y1_:R;~I
MyPos = Instr(1, SearchString, "W")   ' A binary comparison starting at position 1. Returns 0 ("W" is not found).软件测试专业网站:51Testing软件测试网Q;fn2BR/J _?
******************
0B0a-V2Z[b128649Split 函数
ET,b&k Me+Tp128649在指定的 delimiter 参数出现的所有位置断开 String 对象，将其拆分为子字符串，然后以数组形式返回子字符串。软件测试专业网站:51Testing软件测试网,w$F^Ba;A
Split(expression[, delimiter[, count[, compare]]])
0z?(XY5sq#z7Ht3E128649参数
dh^n%a0g;his128649expression:主体字符串，也就是要被拆分处的字符或字符串。软件测试专业网站:51Testing软件测试网
~8KEZ9C3d
delimiter：拆分元素，默认是(" ") 软件测试专业网站:51Testing软件测试网C1x R,o^|V
count:Number [可选] 要放入数组中的项目数。
#TK9sK u3D+m ]128649compare：0是二进制比较，1是文本比较。0为缺省值。软件测试专业网站:51Testing软件测试网a9R|9|c4v/nN
例子
m:b~?3|/ORUx128649Dim MyString, MyArray, Msg软件测试专业网站:51Testing软件测试网L8x+U6Mt9P$Z}/Z
MyString = "VBscrīptXisXfun!"软件测试专业网站:51Testing软件测试网:h/n uM'p-@2G
MyArray = Split(MyString, "x", -1, 1)
'SW|8fH128649' MyArray(0) contains "VBscrīpt".软件测试专业网站:51Testing软件测试网J
i uw4NJ H*B
' MyArray(1) contains "is".软件测试专业网站:51Testing软件测试网p"LwW6R
' MyArray(2) contains "fun!".软件测试专业网站:51Testing软件测试网[jdp'Q1b5[6s
Msg = MyArray(0) & " " & MyArray(1)软件测试专业网站:51Testing软件测试网z;rr;w!FQd S
Msg = Msg   & " " & MyArray(2)软件测试专业网站:51Testing软件测试网
yP{d%CM
MsgBox Msg软件测试专业网站:51Testing软件测试网1s%o2ChJ9Jf3l c

例三:(来自MSN 秀)

[功能]
`+e+y)o:N1W0I~Y@(z128649    1.启动一个VB的windows application。设置好Excel文件和QTP的安装路径。软件测试专业网站:51Testing软件测试网)S?}]S0Rtq X7[
    2.启动脚本进行测试，测试代码是QTP自带的订票系统。

[脚本的参数设定]
1qr @wc2MOM128649    脚本中有2个参数-EXCEL文件和QTP安装路径从VBS文件传入。在QTP中设定如下：
*cA!a!HoT m `128649    1.在KeyWord view界面。在Action1上点击右键，选Action properties，弹出 Action properties对话框。在其中添加2个入参。如下图所示：软件测试专业网站:51Testing软件测试网Qo \!u&q

Q&FL/F"I3SQ2y2F128649
sO;_;Wbe1286492.设置测试参数
a:[9d:z|&q } V128649    Test->Test Settings->Parameters.设置2个入参。如下图所示：软件测试专业网站:51Testing软件测试网p#JT(BG;C+i

3.将Action参数和Test参数关联起来
~bGYU,}1x1^H s128649     1.在KeyWord view界面。在Action1上点击右键，选择Action Call properties
}$FU'Om-}$\,},C%u S128649软件测试专业网站:51Testing软件测试网:o+Br)m/vt9L+v

#s:an;i6vx*B128649

软件测试专业网站:51Testing软件测试网#`V!@7ps
软件测试专业网站:51Testing软件测试网8`9ve"BEU,v9oO
点Vaiue
Hc/Z*|)K^.Q5C128649

在脚本中使用以下语句可以取得2个入参：
;T e,{UM+[D M ~128649    filename= Parameter("InAction1")

i9I(P3I)qcc8e"{ `.C128649    QtpPath= Parameter("InAction2")软件测试专业网站:51Testing软件测试网9R MX5i
D
q)D6BP$pb.x
[脚本部分]
/W$Ee6r}~128649Dim conn,rst,filename,coboname
:la-K D;g128649Dim user,passwd软件测试专业网站:51Testing软件测试网-q `y~] _
'filename="C:\DATA.xls"
:DH F$g{n/a gV128649filename= Parameter("InAction1")
*Z%L5gt j:H#r5K+x|128649QtpPath= Parameter("InAction2")软件测试专业网站:51Testing软件测试网2c"\"J_*x Q!S
'datatale.import(filename)软件测试专业网站:51Testing软件测试网5?&N)}!U?(o7yLa9y
Set conn= createobject("ADODB.Connection")软件测试专业网站:51Testing软件测试网5K
rH8L5Q3Z ^
'msgbox filename
V:VsW^}-O128649conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&filename&";Extended Properties='Excel 8.0;hdr=yes'"
bM K1B9J(`W eB128649Set rst= createobject("ADODB.Recordset")

'  Excelファイルのデータを読み込む软件测试专业网站:51Testing软件测试网:N)ON3TB
rst.Open "select  *   from [sheet1$] " ,conn,1,1

' table WHCT0717のデータをセットする软件测试专业网站:51Testing软件测试网^Y7mk7P
L-N,i
 While Not rst.EOF 
4N6Ge_(\128649   systemutil.run  QtpPath&"\samples\flight\app\flight4a.exe",""软件测试专业网站:51Testing软件测试网s2V7xV8MakM(F
    user = rst.fields("user")软件测试专业网站:51Testing软件测试网f@N9Z@
 passwd = rst.fields("password")软件测试专业网站:51Testing软件测试网8hL#T#X,Z8d/H
 Dialog("ﾛｸﾞｲﾝ").WinEdit("代理店名:").Set  (user)
`+j9dYtQ128649   ' Dialog("ﾛｸﾞｲﾝ").WinEdit("代理店名:").Type  micTab
4AFQO uN128649 Dialog("ﾛｸﾞｲﾝ").WinEdit("ﾊﾟｽﾜｰﾄﾞ:").set(passwd)
:V"o8g4H+K^128649 Dialog("ﾛｸﾞｲﾝ").WinButton("OK").Click
0XWa+R@B)F+z-I4O,Xa128649 reporter.filter=0
B y xwQ'],hQ;Y128649 If ( Dialog("ﾛｸﾞｲﾝ").Dialog("ﾌﾗｲﾄ予約").WinButton("OK").Exist(2) )  Then
b5km-A\X? {128649    text = Dialog("ﾛｸﾞｲﾝ").Dialog("ﾌﾗｲﾄ予約").GetVisibleText软件测试专业网站:51Testing软件测试网i;hlV8B(A!K \hO"v
 reporter.ReportEvent micFail ,"Load Error",text软件测试专业网站:51Testing软件测试网 K8`^)Fi,n$w"X
  Dialog("ﾛｸﾞｲﾝ").Dialog("ﾌﾗｲﾄ予約").WinButton("OK").Click软件测试专业网站:51Testing软件测试网k;^)J T*g b H
  Dialog("ﾛｸﾞｲﾝ").WinButton("ｷｬﾝｾﾙ").Click
y W:aIk1u)]128649 else
W
p B6pe~128649   Window("ﾌﾗｲﾄ予約").close
M?.LvJ0?Z'E5O128649 end if软件测试专业网站:51Testing软件测试网"v0FR1Mrqp
     rst.MoveNext 软件测试专业网站:51Testing软件测试网)~Y4|!L
bmI
   Wend
Ew U,xW+amom128649 rst.close

PJhH9a*@'H128649软件测试专业网站:51Testing软件测试网2uX D%B6ia9b)o6] G L
   脚本部分最主要的是注意QTP对象的选择和使用。(Tools-->object Repository 对象的添加和删除)

[VB application]软件测试专业网站:51Testing软件测试网;tlK})w%]u
     以下是Button1单击的触发事件软件测试专业网站:51Testing软件测试网9G.\#}t Li0x
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click软件测试专业网站:51Testing软件测试网kDX6f#{!L
        Dim qtApp
Pj/P!vO%z;k%N128649        Dim qtTest 
*{-it$~Mv Vk5\128649        Dim qtResultsOpt
c%{ cH!k-p f128649        Dim pDefColl, pDef, rtParams, rtParam1, rtParam2
.F%E#YcU5KGT128649        Dim QtpTestPath
b
|#b+J3lKJ%n/D$g128649        qtApp = CreateObject("QuickTest.Application") 
8G/^ r0KVsJ&paGL128649        qtApp.Launch()软件测试专业网站:51Testing软件测试网;\-E,vre:E'J
        qtApp.Visible = True '使得QTP的程序可见

软件测试专业网站:51Testing软件测试网H.xr M,]x'OX2k
        ' 设置运行属性
"RbuuY128649        QtpTestPath = QtpPath.Text & "\Tests\Test3" '设置脚本路径
.JII8x*SXhZ9q128649        qtApp.Options.Run.RunMode = "Fast"
'x+G$Gy R(Lvq128649        qtApp.Open(QtpTestPath, True) ' Open the test in read-only mode

        ' set run settings for the test
;}0Bq$sdn128649        qtTest = qtApp.Test
7@ S!j [w/R128649        qtTest.Settings.Run.OnError = "NextStep" 软件测试专业网站:51Testing软件测试网-hZ"IOl @)?X
        qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") 软件测试专业网站:51Testing软件测试网+]O%qdV3M
        qtResultsOpt.ResultsLocation = "D:\program files\Mercury Interactive\QuickTest Professional\Tests\Test3" ' 设置放结果的地方

        pDefColl = qtApp.Test.ParameterDefinitions软件测试专业网站:51Testing软件测试网
} j&^IT6x;|2h4^q
        Dim cnt = pDefColl.Count软件测试专业网站:51Testing软件测试网 A$VC l7wPJ
        Dim Indx = 1软件测试专业网站:51Testing软件测试网,P*M*Xlc'b9N
        While Indx <= cnt软件测试专业网站:51Testing软件测试网U{&|?!Z/qv ?
            pDef = pDefColl.Item(Indx)

g-vD9[-U;NrU:D128649            Indx = Indx + 1软件测试专业网站:51Testing软件测试网$T iPf0h*l(})K
        End While
,UjQA-VW128649        rtParams = pDefColl.GetParameters()
k&Z UM3RPk ]128649        rtParam1 = rtParams.Item("InParameter1")
e!x*c.z&N7i128649        rtParam1.Value = DataFileName.Text软件测试专业网站:51Testing软件测试网 MlUCfS5d u.~5B0n(y
        ' MsgBox(TextBox1.Text)
{2p)CV,l| k Y128649        rtParam2 = rtParams.Item("InParameter2")
-y L ?+@kF)L128649        rtParam2.Value = QtpPath.Text

        qtTest.Run(, True, rtParams) ' Run the test
3Z.bp2{ ^a:Xz128649        'MsgBox(rtParams.Item("OutParameter1").Value)

        'qtTest.Close ' Close the test 软件测试专业网站:51Testing软件测试网8@,Y$O$I-itS-J\-U
        qtResultsOpt = Nothing     ' Release the Run Results Options object 软件测试专业网站:51Testing软件测试网 F&Ev_ QA.c~
        qtTest = Nothing     ' Release the Test object 软件测试专业网站:51Testing软件测试网 t Ch+Y4o-J ?!Q
a*i
j`
        qtApp = Nothing     ' Release the Application object 软件测试专业网站:51Testing软件测试网-u"o5J4m[d,l
        qtTest.quit()

    End Sub软件测试专业网站:51Testing软件测试网
l(GC8s+J

例一:(来自测试者家园)

QTP录制过程

   1.确定用于描述当前操作对象的测试对象类,并创建测试对象

   2.读取当前操作对象属性的当前值,并存储一组属性和属性值到测试对象中

   3.为测试对象创建独特的有别于其他对象的名称,通常使用一个突出属性的值

   4.记录在对象上执行的操作

录制过程中可能出现的问题:

   1.无法识别对象

   解决方案:如果是没有相应程序的插件,而导致的对象不能识别,请填加相应的插件.如果是少量的几个控件不能识别的话,可以用合适类型的虚拟对象来代替.当然还有两个万能的办法,就是更改录制模式使用LOW-LEVEL Recording 和 Analog Recording来录制.软件测试专业网站:51Testing软件测试网k?[A0Ir+d
软件测试专业网站:51Testing软件测试网0Ok2P'Z3|)I@ M
   2.无法生成脚本,但对象可以识别

   解决方案:把对象手工添加到对象库中去,然后手工来生成需要的脚本

 

QTP回放过程

   1.根据对象的名称到对象存储库中查找相应的对象

   2.读取对象的描述,既对象的属性和属性值

   3.基于对象的描述,QTP在应用程序中查找相应的对象

   4.执行相关的操作

 

回放过程中可能出现的问题:  

   1.找不到测试对象 

   解决方案:把该对象填加到对象库中去

   2.测试对象与运行时对象不匹配

  解决方案:如果是因为脚本的上下文依赖而导致的对象不能识别,请加相应的延时.如果是由于对象属性发生了变化而导致的对象不能识别,请修改相应的属性.

   3.无法执行脚本操作

   解决方案:请检查脚本程序

    最近有不少朋友在论坛里问到"QTP如何做回归测试?"的问题,这里我们有必要来探讨一下.首先这个问题中存在一个误区,事实上回归测试怎么做,跟自动化工具没有必然的联系.所以这里的如何做回归测试并不是一个QTP的问题,而是一个回归测试的策略的问题.

     我们先来了解一下回归测试的概念和策略以及一般大致会采用的流程.

     那么什么是回归测试呢?简单的说,回归测试是贯穿在整个测试的各个阶段的一个测试活动.它的目的是检验已经被发现的缺陷有没有被正确的修改和修改过程中有没有引发新的缺陷.软件在测试或者其他活动中发现的缺陷经过修改后,都要进行回归测试的验证.

    我们在做回归测试的时候可以采用不同的策略.

策略(1) 可以选择完全重复测试.把所有的测试用例,全部再完全的执行一边,以确认问题修改的正确性和修改后周边是否受到影响.缺点是由于要把用例全部执行,所以会增加项目成本,也会影响项目进度.所以很难来完全执行,所以引出了回归测试策略(2) 选择性重复测试.

策略(2) 可以选择性重复测试.可以选择一部分进行执行,以确认问题修改的正确性和修改后周边是否受到影响.那么我们怎样去选择用例呢？这里有三个方法：１．覆盖修改法　针对发生错误的模块，选取这个模块的全部用例进行测试．这样只能验证本模块是否还存在缺陷，但不能保证周边与它有联系的模块不会因为这次改动而引发缺陷．所以引出第２个方法，即２．周边影响法．除了把出错模块的用例执行之外，把周边和它有联系的模块的用例也执行一边，保证回归测试的质量．当然我们还可以用量化的角度去分析模块的质量，比如：经过上面的一系列回归测试后，看看遗留的缺陷率是否已经在允许的范围之内了，那么我们以此为标准可以结束本次回归测试．也就是我要提到的第三个方法　３．指标达成法．

　　　回归测试的流程

１．在测试策略制定阶段，制定回归测试策略

２．确定回归测试版本

３．回归测试版本发布，按照回归测试策略执行回归测试

４．回归测试通过，关闭缺陷跟踪单

５．回归测试不通过，缺陷单返回开发人员．等重新修改，再次做回归测试．

那么我们为什么会把工具和回归测试联系起来呢?原因是在回归测试中我们会去做大量的重复的执行测试用例的操作.为了让测试员能够从这种重复的工作中解放出来,去测试更多新的用例,我们所以可以选用一些自动化测试工具,来录制脚本,代替一部分手工操作.但事实上并不是这些工具只能用在回归测试中,在其他操作上也可以应用.但有一点是工具不能完全代替手工测试,它只是手工测试的一种补助.所以QTP作为一款功能测试工具,可以运用到回归测试中.51Testing软件测试网5DR$T"B`e'Le

要创建数据库检查点或输出值，请执行下列操作：

 

     

 

了解“表/数据库检查点属性”对话框

通过“表/数据库检查点属性”对话框，可以指定要检查表或数据库的哪些单元格内容以及要使用哪些验证方法和类型。还可以对检查中所含单元格的预期数据进行编辑或参数化。

注意： ActiveX 表的“表检查点属性”对话框看上去与下面显示的对话框稍有不同。对于 ActiveX 表，除了检查表内容（使用“表内容”选项卡）以外，还可以选择是否要检查表对象的属性（使用“属性”选项卡）。根据要检查信息的类型，选中位于“表检查点属性”对话框相关选项卡顶部的“选择表内容”复选框和/或“选择属性”复选框。

有关“表内容”选项卡中的选项的信息，请参阅下列部分。
8tW(]|#|"l12864951Testing软件测试网.l"`-_ Dw+mar7w
51Testing软件测试网qBj4\:~9NsS
51Testing软件测试网Q1| `"F \aK

“表/数据库检查点属性”对话框的顶部将显示为检查点捕获的数据。使用该区域可指定要检查的单元格。

在预期数据下，“表/数据库检查点”对话框包含下列三个选项卡：

预期数据 - 使您可以将每个已检查的单元格设置为常量值或参数化值。例如，可以指示 QuickTest 使用数据表中的值作为特定单元格的预期值。
设置 - 使您可以设置预期值与实际值之间成功匹配的条件。例如，可以指示 QuickTest 将值视为数字（因此 45 和 45.00 将被视为同一个值），或者，可以指示 QuickTest 在比较值时忽略空格。
单元格标识 - 使您可以指示 QuickTest 如何查找要检查的单元格。例如，假设您要检查显示在“表/数据库检查点属性”对话框中第一行和第二列中的数据。但是，您知道每次运行测试或组件时，这些行的顺序可能会有所不同，具体取决于在上一步中执行的排序。因此，您可能希望 QuickTest 根据列名和在关键字列中包含已知值的行来标识单元格，而不是根据行号和列号来查找数据。

提示： 值匹配设置和单元格识别条件将应用于检查点中所有选定的单元格。如果要对表或数据库中的不同单元格使用不同的值匹配或单元格标识条件，请分别创建检查点，并为每个检查点指定相关的单元格。

“表/数据库检查点属性”对话框的底部包含下列选项：

检查点超时 - 指定 QuickTest 试图成功执行检查点的时间间隔（以秒为单位）。QuickTest 将继续执行检查点，直到顺利通过或发生超时。如果在发生超时之前检查点尚未顺利通过，则检查点将失败。

例如，假设将数据加载到表中需要花费一些时间。在这种情况下，增加检查点超时值可确保有足够的时间来加载数据，从而使检查点在到达超时结尾之前可以顺利通过。

可以在“测试结果”窗口中查看有关检查点超时的信息，包括 QuickTest 用于执行检查点的时间间隔。

注意：只有在创建表检查点时，“检查点超时”选项才可用。创建数据库检查点时，该选项不可用。

插入语句 - 指定在测试或组件中执行检查点的时间。如果要在执行突出显示的步骤之前检查表或数据库内容，请选择“当前步骤之前”。如果要在执行突出显示的步骤之后检查表或数据库内容，请选择“当前步骤之后”。

注意：在录制期间添加检查点时或在修改现有检查点时，“插入语句”选项不可用。向现有测试或组件添加检查点时，该选项可用。

  正如使用 QuickTest 实现应用程序测试自动化一样，也可以使用 QuickTest Professional 自动化对象模型实现 QuickTest 操作自动化。 可以使用由 QuickTest 自动化对象模型公开的对象、方法和属性来编写程序，用以配置 QuickTest 选项和运行测试或业务组件，而不必使用 QuickTest 界面手动执行这些操作。

   自动化程序在以下情形特别有用：多次执行相同任务或就多个测试或组件执行相同任务；根据特定环境或应用程序的需要快速配置QuickTest。

   其实要自动化运行QuickTest 相当简单,只需自己在电脑上建个vbs文件,完成后双击运行就可以实现了.下面给个最简单的配置QuickTest自动化启动,打开测试脚本,然后保存测试结果,然后自己关闭QuickTest程序的例子脚本.

dim qtApp  

dim qttest

set qtApp = Createobject("QuickTest.Application")   '创建 Application 对象

qtApp.launch   ' 启动

qtApp.Options.Run.ViewResults = true

qtApp.Visible = True  '可见

qtApp.open "E:\Test1",true   '用只读的方法打开测试脚本

Set qtTest = qtApp.Test   '创建 Test 对象

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' 创建 Run Results Options 对象

qtResultsOpt.ResultsLocation = "E:\Test1\Res1" ' 设置测试结果保存位置

qtTest.run qtResultsOpt   '   执行测试

qtTest.close   ' 关闭测试

qtApp.quit    '关闭QTP

Set qtTest = Nothing ' 释放 Test 对象

set qtApp =nothing   '释放

有兴趣的可以自己再研究更深层次的配置运行,QTP中基本上大多数的配置都可以通过它提供的对象及其方法和属性来通过代码实现51Testing软件测试网"AV7HsY4ra;W6Z