QTP_Calculator basic

最新推荐文章于 2022-06-02 12:00:45 发布

betterfate

最新推荐文章于 2022-06-02 12:00:45 发布

阅读量559

点赞数

分类专栏： QTP

本文链接：https://blog.csdn.net/BetterFate/article/details/8716017

版权

QTP 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

' Core points of this execise:

'1. Object property set in Object Repository

2. Check property

'3. Check checkpoint

'4. Output checkpoint

SystemUtil.Run "C:\WINDOWS\system32\calc.exe","","C:\WINDOWS\system32","open"
Window("Calculator").WinButton(datatable("V1",dtGlobalSheet)).Click
Window("Calculator").WinButton(datatable("V3",dtGlobalSheet)).Click
Window("Calculator").WinButton(datatable("V2",dtGlobalSheet)).Click
'msgbox Window("Calculator").WinButton(datatable("V2",dtGlobalSheet)).GetROProperty("text")

Window("Calculator").WinButton("+").Click
Window("Calculator").WinButton(datatable("V1",dtGlobalSheet)).Click
Window("Calculator").WinButton(datatable("V3",dtGlobalSheet)).Click
Window("Calculator").WinButton(datatable("V2",dtGlobalSheet)).Click
'Window("Calculator_2").WinButton("=").Output CheckPoint("V4")
Window("Calculator").WinButton("=").Click
'Window("Calculator").WinEdit("Edit").CheckProperty "text", int(datatable("Re",dtGlobalSheet))
'Window("Calculator").WinEdit("Edit").Check CheckPoint("Edit")
Window("Calculator").WinEdit("Edit").Output CheckPoint("Edit_2")

'Reporter
Dim str
str=datatable("V1",dtGlobalSheet) & datatable("V3",dtGlobalSheet) & datatable("V2",dtGlobalSheet) & "+" & datatable("V1",dtGlobalSheet) & datatable("V3",dtGlobalSheet) & datatable("V2",dtGlobalSheet) & "=" & datatable("Re",dtGlobalSheet)
Reporter.ReportEvent micPass, "ADD", str

Window("Calculator").Close