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