Skip to main content

Connect QC from QTP and Execute Scripts

Here is the sample code to connect QC and execute scripts stored in QC using QTP.
  1. Dim QTP_App      ' Declare the Application object variable
  2. Dim QTP_Test     ' Declare a Test object variable
  3. Dim QTP_Results  ' Declare a Run Results Options object variable
  4. Dim QC_Path      ' Declare QC Path and assigned actual path
  5.      
  6. ' Create the QTP Application object
  7. Set QTP_App = CreateObject("QuickTest.Application")
  8. ' Start QuickTest
  9. QTP_App.Launch
  10. ' Make the QuickTest application visible
  11. QTP_App.Visible = True
  12.  
  13. 'Connect to Quality Center
  14. QTP_App.TDConnection.Connect QC_Path, False
  15.  
  16.    
  17. 'Function to open QTPScript and run that script
  18. Function OpenScriptRunTest (ScriptName,TestSetName)
  19.    QTP_App.Open QC_Path&ScriptName,True
  20.    QTP_App.Options.Run.ImageCaptureForTestResults = "OnError"
  21.    QTP_App.Options.Run.RunMode = "Fast"
  22.    QTP_App.Options.Run.ViewResults =True
  23.    Set QTP_Test = QTP_App.Test
  24.    QTP_Test.Settings.Run.IterationMode = "allIterations"
  25.    QTP_Test.Run.StartIteration = 1
  26.    QTP_Test.Run.EndIteration = 1
  27.    QTP_Test.Run.OnError = "NextStep"
  28.    Set QTP_Results = CreateObject("QuickTest.RunResultsOptions")
  29.    QTP_Results.TDRunName="Run_Sample"
  30.    QTP_Results.TDTestInstance=1
  31.    QTP_Results.TDTestSet=QC_Path&TestSetName
  32.    QTP_App.Test.Run qtRunResultsOptions
  33.    QTP_App.Close    
  34. End Function
  35.  
  36. 'Run a test
  37. Call OpenScriptRunTest (ScriptName,TestSetName)

Comments

Post a Comment

Popular posts from this blog

Some good Resources / Blogs / Sites for Selenium Users

Here I have listed out some good blogs and sites by extensive selenium automation users. Hope these will help you a lot. http://automationtricks.blogspot.com  - by NirajKumar http://www.theautomatedtester.co.uk/ http://testerinyou.blogspot.com   - by Naga/Mathu http://seleniumready.blogspot.com  - by Farheen Khan http://seleniumdeal.blogspot.com/  - Amit Vibhuti http://seleniumexamples.com/blog Sauce Labs and BrowserMob are companies doing cloud and extensive selenium automation services, products, etc http://saucelabs.com/blog http://blog.browsermob.com http://testingbot.com/ Cedric Beust -  creator of the TestNG Java testing framework. http://beust.com/weblog/ http://blog.reallysimplethoughts.com/  - by Samit Badle, Created many Selenium IDE Plug-Ins Available Colud Testing: 1. SauceLabs 2. Soasta 3. BrowserMob 4. CloudTesting.com  etc. Selenium Testing Products: 1. Twist by ThoughtWorks 2.  TestMaker by...
93 comments
Read more

UFT - Take full page screenshot by scrolling the page

'######################################################################################## 'This is navigate through the full page and taking individual screenshot of visible area '######################################################################################## Function TakeScreenshot Dim intScrolls, intScroll, strScrollPos Set pgApp = Browser ( " " ) .Page ( " " ) intScrolls = Round ( pgApp . RunScript ( " document.documentElement.scrollHeight / (screen.height) " ) , 2 ) If intScrolls < 1 Then intScrolls = - 1 pgApp . RunScript " window.scrollTo(0, 0); " Wait 1 Browser ( " " ) .CaptureBitmap " C:\screenshot0.png " , True For intScroll = 0 To intScrolls If Environment . Value ( " Browser " ) = " CHROME " Then strScrollPos = " scrollY " Else strScrollPos = " document.documentElement.scrollTop " End If If p...
7 comments
Read more

Change IE Browser ZOOM settings

Lot of UI automation testers could have faced this problem as we could change the zoom settings while operating manually for our convenience and forgot to reset to 100%. But our QTP and some other related tools would operate the browser perfectly if browser zoom is 100%. So wee need to change the zoom before start to run the scripts. Its better to have a code snippet in our framework to change this zoom setting right? Here we go... 1. We can simply change the Registry values before Invoking IE Function  ChangeRegistry   Dim  objShell   Set  objShell =  CreateObject ( "WScript.Shell" )  objShell.RegWrite  "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom\ZoomFactor" ,  "100000" ,  "REG_DWORD"   Set  objShell =  Nothing End   Function This option is very useful. But in real time, lot of customers could have restricted write access to windows registry. So we can try othe...
17 comments
Read more