51Testing软件测试论坛

标题: 用QTP录制下的操作所显示的脚本和VBscrip的差别？？？ [打印本页]

作者: xlewy 时间: 2007-6-13 10:33
标题: 用QTP录制下的操作所显示的脚本和VBscrip的差别？？？
初学QTP，刚试着把QTP运用到自己的应用程序上，可是查看脚本，毫无头绪，查VBscrip也对不上号，毫无语法可寻。。望高手指点。。。。？？请看如下：

  .WebButton("增加合作商家").Click
End With
.Frame("mainFrame_2").WebButton("新增").Click
With .Frame("mainFrame_3")
Browser("AA系统").Page("AA系统").Frame("mainFrame_3").Check CheckPoint("mainFrame_6")
Browser("AA系统").Page("AA系统").Frame("mainFrame_3").Check CheckPoint("mainFrame_7")
Browser("AA系统").Page("AA系统").Frame("mainFrame_3").Check CheckPoint("mainFrame_8")
Browser("AA系统").Page("AA系统").Frame("mainFrame_3").Check CheckPoint("mainFrame_9")
.WebEdit("Form:prodCode").Set "000009"
.WebButton("新增").Click
End With
With .Frame("mainFrame_4")
.WebEdit("Form:prodCode").Set "0000013"
.WebEdit("Form:catalogName").Set "a"
.WebRadioGroup("Form:status").Select "I"
.WebEdit("Form:fax").Set "11"
      .WebButton("新增").Click
   .Check CheckPoint("mainFrame_4")
End With
With .Frame("mainFrame_5")
.WebEdit("Form:fax").Set "1111111"
.Check CheckPoint("mainFrame_11")
.WebButton("新增").Click
End With
With .Frame("mainFrame_6")
.WebList("Form:area").Select "B区"
.WebButton("新增").Click
End With
.Frame("mainFrame_7").WebButton("确定").Click
End With

作者: yuandjing 时间: 2007-6-13 10:59
呵呵，录制的不是VB，但是可以用VB增强脚本
比如：
'Option explicit
Dim result,list,temp,row1,row2,i
Dim ActualResult
list=DataTable("list", dtGlobalSheet)
'写文件
Set fileSystemObj = CreateObject("Scripting.FileSystemObject")
fileSpec ="C:\" &"测试报告"& ".txt"
Set logFile = fileSystemObj.OpenTextFile(fileSpec, 8, true)
'Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
logFile.WriteLine ("#######################################################################")
logFile.WriteLine ("测试用例"+list+"：")

Window("Softdog管理客户端").Activate
Window("Softdog管理客户端").Window("新建软件更换订单").WinObject("MFCGridCtrl").Click 850,380
Window("Softdog管理客户端").Window("新建软件更换订单").WinEditor("Edit").Type DataTable("Account", dtGlobalSheet)
row1=DataTable("Account", dtGlobalSheet)
row1=cstr(row1)
Window("Softdog管理客户端").Window("新建软件更换订单").WinEditor("Edit").Type  micReturn
Window("Softdog管理客户端").Window("新建软件更换订单").WinObject("MFCGridCtrl").Click 935,381
Window("Softdog管理客户端").Window("新建软件更换订单").WinEditor("Edit").Type DataTable("Discount", dtGlobalSheet)
row2=DataTable("Discount", dtGlobalSheet)
row2=cstr(row2)
Window("Softdog管理客户端").Window("新建软件更换订单").WinEditor("Edit").Type  micReturn
Window("Softdog管理客户端").Window("新建软件更换订单").WinObject("MFCGridCtrl").Click 1108,382
Window("Softdog管理客户端").Window("新建软件更换订单").WinEditor("Edit").Type micCtrlDwn + "c" + micCtrlUp
Window("Form1").Activate
Window("Form1").WinObject("WindowsForms10.EDIT.app.0.3787").Click 95,10
Window("Form1").WinObject("WindowsForms10.EDIT.app.0.3787").Type micCtrlDwn + "v" + micCtrlUp
'获取应收金额数值 RunTime
result =trim(Window("Form1").WinObject("WindowsForms10.EDIT.app.0.3787").GetROProperty("text"))
'Test
ActualResult=trim(Round(DataTable("Account", dtGlobalSheet), 2) * Round(DataTable("Discount", dtGlobalSheet), 2) * 0.01)
ActualResult=Round(ActualResult,2)

'打印测试报告
If cstr(result)=cstr(ActualResult) Then
logFile.WriteLine ("测试通过")
logFile.WriteLine (" ")
else
logFile.WriteLine ("测试不通过")
logFile.WriteLine ("更换金额："+row1+space(6)+"折扣："+row2)
logFile.WriteLine ("实际值："+cstr(result))
logFile.WriteLine ("期望值："+cstr(ActualResult))
logFile.WriteLine (" ")
End If

'清楚文本框内容
Window("Form1").Activate
While Window("Form1").WinObject("WindowsForms10.EDIT.app.0.3787").GetROProperty("text")<>""
Window("Form1").WinObject("WindowsForms10.EDIT.app.0.3787").Type  micBack
Wend

'关闭文件
logFile.Close
Set logFile = Nothing

作者: xiaonan 时间: 2007-6-13 15:46
QTP完全采用是的vbscript的语法

作者: xlewy 时间: 2007-6-13 16:07
"yuandjing"说的是VBscrip也要结合录制下应用程序的步骤基础上，在原脚本上进行增强吗？

作者: youxipp 时间: 2007-6-13 16:11
是的，或者加对象，自己写脚本

作者: yuandjing 时间: 2007-6-15 13:56
正解

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)