launching and Closing QTP Application by using single file

launching and Closing QTP Application by using single file - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: launching and Closing QTP Application by using single file (/Thread-launching-and-Closing-QTP-Application-by-using-single-file)

launching and Closing QTP Application by using single file - vnskumar - 07-25-2010

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 Smile

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 ?

RE: launching and Closing QTP Application by using single file - sreekanth chilam - 07-25-2010

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

RE: launching and Closing QTP Application by using single file - vnskumar - 07-25-2010

Thank you Smile

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

RE: launching and Closing QTP Application by using single file - sreekanth chilam - 07-26-2010

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

RE: launching and Closing QTP Application by using single file - vnskumar - 07-26-2010

Thank you Bro Smile

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

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