QTP中关掉进程(举例关Outlook)
QTP中关掉进程(举例关Outlook)If Window("Microsoft Outlook").Exist Then
hwnd = Window("Microsoft Outlook").GetROProperty("hwnd")
End If
If SystemUtil.CloseProcessByHwnd(hwnd) Then
LogWraper "WARNING - ", "Killed Outlook Processes and all its child window by logic hwnd from AO_O2K3_Configscrīpt scrīpt",
"STATUS"
End If
注:
1.使用GetROProperty获取控件属性
GetROProperty用于返回测试对象的当前属性,例如,下面的测试脚本用于获取Login窗口的标题属性:
Dim LoginTitle
LoginTitle = Dialog("Login").GetROProperty("text")
Msgbox LoginTitle
2.使用Exist属性来判断控件是否存在
可以通过访问控件的Exist属性来判断是否存在当前打开的应用程序中。例如,下面的测试脚本用于判断Login窗口是否存在:
If Dialog("login").Exist(3)Then
Msgbox("Login 窗口存在.")
Else
Msgbox("Login 窗口不存在.")
End If
3.SystemUtil对象的使用之关闭进程
SystemUtil对象中包含多个可用于关闭进程的方法,这些方法可以用于关闭任何标准应用程序,包括那刺耳停止响应的应用程序。包括
CloseDescendentProcess 用于关闭所有由QTP打开的进程。
CloseProcessByHwnd 用于关闭包含指定句柄的窗口的进程。
CloseProcessById 用于关闭指定进程ID(PID)的进程。
CloseProcessByName 用于关闭指定名称的进程。
CloseProcessByWndTitle 用于关闭拥有指定标题的窗口的进程。 不错! 受教,俺试试去
页:
[1]