Thank u anil
On 8 Jan 2016 8:50 pm, "Anil" <[email protected]> wrote:
> Below provided code works fine for me. Kindly implement the same.
>
>
>
> Dim QTPObj,QTPTest
> Set QTPObj=CreateObject("QuickTest.Application")
>
> 'Check if the application is not already Launched
> If Not QTPObj.Launched then
> QTPObj.Launch
> End If
>
> QTPObj.Visible=True
>
> 'Set QuickTest run options
> QTPObj.Options.Run.ImageCaptureForTestResults = "OnError"
> QTPObj.Options.Run.RunMode = "Fast"
> QTPObj.Options.Run.ViewResults = True
>
> QTPObj.Open "Path of the Driver Script", True
>
> Set QTPTest=QTPObj.Test
>
> QTPObj.Settings.Run.OnError = "NextStep" ' Instruct QuickTest to perform
> next step when error occurs
>
> 'Save the test
> QTPObj.Test.Save
>
> QTPTest.Run 'Run the Test
>
> QTPTest.Close 'Close the Test
>
> QTPObj.Quit 'Quit the QTP Application
>
> Set QTPTest= Nothing ' Release the Test object
> Set QTPObj = Nothing ' Release the Application object
>
>
>
>
> On Monday, September 28, 2015 at 4:16:49 PM UTC+5:30, L V Prasad wrote:
>>
>>
>> Script 1:
>> Set qtApp=CreateObject("QuickTest.Application")
>> Set qtResultOpt=CreateObject("QuickTest.RunResultsOptions")
>> qtResult.ResultsLocation="Path"
>> qtApp.Launch
>> qtApp.Visible=True
>> qtApp.Open "driver script file path", True
>> Set objTest=qtApp.Test
>> qtApp.quit
>> qtApp=Nothing
>>
>> objTest.Run qtResultOpt
>> objTest=Nothing
>>
>>
>> Script 2:
>> Dim Test_path
>> Dim qtApp
>> Dim qtTest
>> Set qtApp = CreateObject("QuickTest.Application")
>> qtApp.Launch
>> qtApp.Visible = True
>> qtApp.Options.Run.RunMode = "Fast"
>> qtApp.Options.Run.ViewResults = False
>> qtApp.Open "path to execute my functional script"
>> Set qtTest = qtApp.Test
>> qtTest.Run
>> qtTest.Close
>> qtApp.quit
>> Set qtTest = Nothing
>> Set qtApp = Nothing
>>
>>
>> in both the ways, im getting error as can not run the test. (attacheD)
>>
>> Can some one please help me to fix this issue.
>>
> --
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
>
> ---
> You received this message because you are subscribed to the Google Groups
> "QTP - HP Quick Test Professional - Automated Software Testing" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to [email protected].
> For more options, visit https://groups.google.com/d/optout.
>
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
