For QTP Training

一：VBS基础

' '循环嵌套实现加减乘除
' Dim num1,num2,calc,Result
 ' num1=InputBox("Please input num1","Num1","18")
 ' num2=InputBox("Please input num2","Num1","15")
 ' calc=InputBox("Please input calc","calc","/")
 ' If calc="+" Then

 

Clonger,Cint都可以

 '  Result=Cdbl(num1)+Cdbl(num2) 
 ' ElseIf calc="-" Then
 '  Result=CDbl(num1)-CDbl(num2)
 ' ElseIf calc="*" Then
 '  Result=Cdbl(num1)*Cdbl(num2)      
 ' ElseIf calc="/" Then
 '  Result=Cdbl(num1)/Cdbl(num2)       
 ' End If         
 ' MsgBox Result

 ''Select分支实现加减乘除
' Dim num1,num2,calc,Result
 ' num1=InputBox("Please input num1","Num1","18")
 ' num2=InputBox("Please input num2","Num1","15")
 ' calc=InputBox("Please input calc","calc","*")
 ' Select Case calc

case 后面什么都不接或者另起一行都会报语法错误
 '  Case "+" Result=Cdbl(num1)+Cdbl(num2)
 '  Case "-" Result=Cdbl(num1)-Cdbl(num2)
 '  Case "*" Result=Cdbl(num1)*Cdbl(num2)
 '  Case "/" Result=Cdbl(num1)/Cdbl(num2)
 ' End Select
 ' MsgBox Result
 '  

逻辑运算符，不等于，与，或，等于，IS

算术运算符

分隔符split和len，数组的最大下标ubound,最小下标Lbound

'Dim CalcStr,CalArr,Result

'CalcStr=InputBox("please input calcsrt","CalcStr","2,+,6,*,5,-,5,/,2")
'CalcArray=Split(CalcStr,",")

'Result=CInt(CalcArray(0))
'For i=0 To UBound(CalcArray)
' Select Case CalcArray(i)
'  Case "+" Result=Result+CalcArray(i+1)
'  Case "-" Result=Result-CalcArray(i+1)
'  Case "*" Result=Result*CalcArray(i+1)
'  Case "/" Result=Result/CalcArray(i+1)
' End Select
'Next
'MsgBox Result

二：关于QTP
1.QTP的三种录制方式--未
2.对象库，对象识别--未
3.环境设置--未

三：QTP实战
1.Datatable

2.Check Property

CalcStr = DataTable.Value("CalcStr", "Global")

For i = 1 To len(CalcStr)
  Dialog("小蔡计算器").WinButton(mid(CalcStr,i,1)).Click
Next
Dialog("小蔡计算器").WinEdit("Edit").CheckProperty "text", DataTable("ExpectResult", dtGlobalSheet), 3000

2.Set TOProperty

For i=1 To 100
ilen=len(i)
For  p=1 to ilen
 cButton=cstr(mid(i,p,1))
 Dialog("小蔡计算器").WinButton("1").SetTOProperty "Text", cButton
 Dialog("小蔡计算器").WinButton("1").Click 
Next
Dialog("小蔡计算器").WinButton("1").SetTOProperty "Text", "+"
Dialog("小蔡计算器").WinButton("1").Click 
Next

3.Get ROProperty
Get TOProperty
Get ROProperty

Window("计算器").WinButton("1").Click
Window("计算器").WinButton("+").Click
Window("计算器").WinButton("2").Click
Window("计算器").WinButton("=").Click

Window("计算器").CaptureBitmap "c:\1.bmp"
actual = Window("计算器").WinEdit("Edit").GetROProperty("Text")
If cdbl(actual)=4.0 Then

Reporter.ReportEvent micPass, "compute add", "测试计算器加法的操作是否正常", "c:\1.bmp"
 print "pass"
else
Reporter.ReportEvent micFail, "compute add", "测试计算器加法的操作是否正常", "c:\1.bmp"
 print "fail"
End If