launching and Closing QTP Application by using single file

[vnskumar]

Hi
Friends
This is Shiva
I have an issue of launch script for launching QTP application.

I want to write code for the application if it is open it should be closed and if it is closed it should be opened.
Please help me to solve this problem
Thanks in advance

1. This is the code to launch the QTP Application

Code:

Dim qtp_app
Set qtp_app = CreateObject("quicktest.application")
    If qtp_app.launch = false Then
      qtp_app.quit
      qtp_app.launch
      qtp_app.new
      qtp_app.visible=true
    End if

It is working

2. This is the code to close the qtp application

Code:

Dim qtp_app
Set qtp_app = CreateObject("quicktest.application")
    If qtp_app.visible = true Then
      qtp_app.quit
      Set qtp_app=nothing
    End if

It is working

But when we are giving the condition for launch and close in the single file it is not working

Code:

Dim qtp_app
Set qtp_app = CreateObject("quicktest.application")
    If qtp_app.visible = true Then
      qtp_app.quit
      Set qtp_app=nothing
    End if
  If qtp_app.launch = false Then
      qtp_app.quit
      qtp_app.launch
      qtp_app.new
      qtp_app.visible=true
    End if

what is the solution ?

[sreekanth chilam]

Hi,

Check with the below code:

Code:

Dim qtp_app
Set qtp_app = CreateObject("quicktest.application")
If qtp_app.launch = False Then
    qtp_app.quit
    qtp_app.launch
    qtp_app.new
    qtp_app.visible=True
End if

WScript.sleep 3000

If qtp_app.visible = True Then
qtp_app.quit
Set qtp_app=nothing
End if

[vnskumar]

Thank you
Can u explain me the reason

---

I have asked for
If the QTP application is open when we execute this script it should quit,
if it is not launched then if we run the same script it should be launched but should be closed only if the script is executed again

[sreekanth chilam]

Hi Vinay,

Here we go !!!

Check the below code for both conditions i.e Launching and Closing QTP by using single file/script.

Condition1: If we execute this script, if Launch=False and if QTP is Visible then it will closes QTP.

Condition2: If we execute the same script, if Launch=False and Not Visible then it would launch QTP.

Code:

Dim qtp_app
Set qtp_app = CreateObject("quicktest.application")
If (qtp_app.Launch=False) And (qtp_app.visible=True) Then
         qtp_app.quit
Else
     If (qtp_app.Launch=False) And (qtp_app.visible=False) Then
         qtp_app.launch
         qtp_app.visible=True        
    End if
End if
Set qtp_app=Nothing

[vnskumar]

Thank you Bro
It is working
Why we are using launch=false in the both cases

---

Its not Vinay ,Its V.N.S.kumar