强杀TestComplete进程

'还有可能，Dos还在运行，你新启动的进程也被杀掉，导致TC没运行
Function ForceCloseTCProcess()
        '******关闭未关闭的TC进程********************************  
        Dim wmi,pro_s,oShell
        Set Shell = CreateObject("WScript.Shell")    
        Set wmi=GetObject("winmgmts:\\.")
        Set pro_s=wmi.instancesof("win32_process")
        For Each p In pro_s
            if InStr(LCase(p.name),"testcomplete") > 0 Then                 
                 oShell.Run "cmd /C ntsd -c q -p " & p.ProcessId           
            End If
        Next
End Function     

      

'正常退出TC进程（有些进程此方法杀不了的。）
Function CloseTCProcess()
        '******关闭未关闭的TC进程********************************  
        Dim wmi,pro_s    
        Set wmi=GetObject("winmgmts:\\.")
        Set pro_s=wmi.instancesof("win32_process")
        For Each p In pro_s
            if InStr(LCase(p.name),"testcomplete") > 0 Then                 
                 p.Terminate
            End If
        Next
End Function

 

注，其他方法类型，自行修改。