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