Stop Qtp (Quick Test Professional) at the End of the Testcase

If you are starting QTP using VB Script, then it is easy to Close the QTP again.

Below Code will help you to Start/Stop QTP

'*****************************

Dim App
StartQTP
StopQTP

' Start QTP
Function StartQTP ()
' Launch QuickTest Professional and make it visible.
Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
End Function

' Stop QTP
Function StopQTP ()
App.Quit
End Function

'*****************************

Make a Note that, You can be able to Close QTP using VB Script if you have started QTP using the same Script so you can use the same Object to Close it.

If you are starting QTP outside of any other Script then you have to Kill QTP Process.

To KILL QTP Process, you can use below CODE.

'*****************************
Call KillProcessByName("QTPro")

' Kill Process By Name
Public SubKillProcessByName (ByVal psProcessName As String)

'* Iterate through all running processes to locate the specified process and kill it.

For Each pProcess As Process In Process.GetProcessesByName(psProcessName)

'* Kill the process
If Not pProcess.HasExited Then Call pProcess.Kill()
'* Wait while the process completes it's exit.
Do While Not pProcess.HasExited
Call System.Windows.Forms.Application.DoEvents()
Loop

Next 'pProcess

End Sub
'*****************************

Enjoy Automated Testing!!