用QTP录制下的操作所显示的脚本和VBscrip的差别？？？

xlewy

初学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

呵呵，录制的不是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

QTP完全采用是的vbscript的语法

xlewy

"yuandjing"说的是VBscrip也要结合录制下应用程序的步骤基础上，在原脚本上进行增强吗？

youxipp

是的，或者加对象，自己写脚本

yuandjing

正解