qtp中描述性编程

1 描述对象属性,描述对象属性语法为:=

Window("Class Name:=Window","RegexpwndTitle:=System Properties").Activate

 

2 在外面创建描述对象,给对象属性赋值,代码如下

'申明底层FindWindow方法
Extern.Declare micHwnd,"FindWindow","User32.dll","FindWindow" ,micString, micString

'描述窗口对象,通过窗口句柄找到窗口对象
Dim m_sysWindow
Set m_sysWindow=Description.Create
m_sysWindow("hwnd").Value=Extern.FindWindow(vbNullString,"System Properties")

'描述按钮对象
Dim m_sysButton
Set m_sysButton=Description.Create
m_sysButton("Class Name").Value="WInButton"
m_sysButton("Text").Value="OK"

'判断窗口是否存在,完成点击按钮动作
If (Window(m_sysWindow).Exist(1)) Then
Window(m_sysWindow).WinButton(m_sysButton).Click
Reporter.ReportEvent micDone,"button: ok","click the button, finished"
else
Msgbox "No Found"
End If

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值