QTP测试Windows计算器

relevantcodes.com在《Automating Windows Calculator Part 1》这篇文章中介绍了用QTP测试Windows计算器的例子，对于初学者理解QTP自动化测试过程、函数的使用等方面的内容都很有帮助：

http://relevantcodes.com/automating-windows-calculator-part-1/

 

例如封装了一个函数叫TypeKey用于处理各个按钮的点击：

Function TypeKey(vKey)

       'Use a Select block for special regex characters

       Select Case vKey

              Case "*", "+", "+/-", "."

                     vKey = "/" & vKey

              Case "M+"

                     vKey = "M/+"

       End Select

 

       With Window("nativeclass:=SciCalc", "index:=0")

              .WinButton("text:=" & vKey).Click

       End With

End Function

 

调用方法：

TypeKey "1"

TypeKey "*"

TypeKey "2"

TypeKey "+"

TypeKey "3"

TypeKey "="

 

MsgBox CalculatedValue