lyj20080 发表于 2010-8-31 00:07:13

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

TIB 发表于 2010-8-31 13:25:32

不错!

luxiuxiu1987 发表于 2010-9-2 09:24:03

受教,俺试试去
页: [1]
查看完整版本: QTP中关掉进程(举例关Outlook)