目的:利用Tab键来检查焦点的位置变化是否正确
检查控件的focused属性的函数
Public function CheckFocus (TestObject) If TestObject.CheckProperty("focused","True",2) Then CheckFocus = True Else CheckFocus = False End If End Function |
tab按键的键值
Const VK_TAB = 15
创建DeviceReplay 对象
Set DeviceReplay = CreateObject("Mercury.DeviceReplay ")
创建Dictionary 对象,这个和创建数组很类似
Set dic = CreateObject("Scripting.Dictionary ")
添加Dictionary的key和value,把顺序号作为key, 控件对象作为value
dic.add "1",dialog("Login").WinEdit("Agent Name:") dic.add "2",dialog("Login").WinEdit("Password:") dic.add "3",dialog("Login").WinButton("OK") |
定位到程序窗口, 并判断窗口中的默认焦点是否在正确的位置
Dialog("Login").Activate CheckFocus(dic.item("1")) For i=2 to dic.count DeviceReplay.PressKey VK_TAB '此处就是点击tab键, If CheckFocus(dic.item(CStr(i))) = False Then Exit for Else msgbox "焦点正确" End If Next |
PS: 首先要将对象Login加入到Object Repository. 然后在运行脚本即可 。
1. 查看属性值的方法
Msgbox Window("名片界面").WinObject("名片界面_一般_昵称").GetROProperty("text") Msgbox TypeName (Window("名片界面").WinObject("名片界面_一般_昵称").GetROProperty("text")) actual="xiaochong" Msgbox StrComp (Window("名片界面").WinObject("名片界面_一般_昵称").GetROProperty("text"),actual,1) |
Result:
username 得到具体的text内容
string 得到text的类型
比较实际得到的和actual的差别
2. 标准Windows控件的基本属性和方法
1)使用Exist属性来判断空间是否存在
可以通过访问控件的Exist属性来判断控件是否存在于当前打开的应用程序中。
2)使用CheckProperty检查控件属性
使用此方法可以实现与标准检查点想类似的功能。 例如。检查控件的属性是否与指定值相一致,如果一致,则在测试结果中标示为pass,否则标识为fail。
其实现个功能与checkpoint实现的功能基本一致。
3)使用GetROProperty获取控件的属性
此方法用于返回测试对象的当前属性