QTP中关掉进程（举例关Outlook）

lyj20080

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 用于关闭拥有指定标题的窗口的进程。

TIB

不错！

luxiuxiu1987

受教，俺试试去