(转) QTP Scripting - 实践2
上一篇 /
下一篇 2008-12-20 11:58:33
/ 个人分类:QTP
今天培训的内容是关闭特定程序,这里特定程序是browser,涉及到的知识点有com,可描述性编程,虽然有些难度,老婆还是很快搞定了,希望老婆再接再厉。
Write a program to close all browsers from QTP?
思路:解决问题 关闭ie所有的进程 利用dp的方法关闭
程序1:利用Systemutil的方式关闭
systemutil.CloseProcessByName "IEXPLORE.EXE"
程序2:利用wmi关闭
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
strProcessKill = "'IEXPLORE.EXE'"
Set ōbjWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
Set ōbjWMIService=Nothing
程序3:
利用QuickTest Professional Descrīptive Programming.动态处理Browser
Do While Browser("CreationTime:=0").Exist
Browser("CreationTime:=0").Close
Loop
思考题:利用api的方式关闭特定的进程
收藏
举报
TAG: