老婆测试工具培训记 - QTP Scripting - 实践2

今天培训的内容是关闭特定程序，这里特定程序是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的方式关闭特定的进程