Advanced QTp

Synchronizing Script Execution between different machines

The following code shows how to get the environment of a local or a remote PC using AOM

'Get an object reference to the running QTP

Set qtpLocalPC = CreateObject("QuickTest.Application")

sRemoteIP = "10.1.1.1"

Set qtpRemotePC = CreateObject("QuickTest.Application", sRemoteIP)

 

'Then get its Environment object

Set qtpLocalEnv = qtpLocalPC.Test.Environment

Set qtpRemoteEnv = qtpRemotePC.Test.Environment

 

'Lastly, access the environment variables

MsgBox qtpLocalEnv("TestDir")

MsgBox qtpRemoteEnv("TestDir")

We want to wait for QTP to reach a point,we have the script update the environment variable after reach that point

'Script 1

'Create a SyncPoint environment variable here

Environment.Value("SyncPoint1") = False

 

Msgbox "Job 1 Completed"

'Do some operations

'<-- Another job waiting for execution to reach this point

Environment.Value("SyncPoint1") = True

 

Msgbox "Starting Job 2"

This Script wait for QTP to reach the point(SyncPoint1) to start its execution

'Script 2

'Local machine IP

strCompIP = "127.0.0.1"

 

Set qtpApp = CreateObject("QuickTest.Application", strCompIP)

 

'Wait till the script has not started

While Not qtpApp.Test.IsRunning

Wend

 

'Now wait for the SyncPoint environment variable to be true

While qtpApp.Test.Environment("SyncPoint1") <> True

Wend

 

MsgBox "Script 1 has passed the sync point."

Enumerating the Setting Variables

Method1 l-looking for settings in Registry

First launch regedit.exe from the window Run Dialog,there are two main keys where the settings variable exists

HKEY_LOCAL_MACHINE\SOFTWARE\MERCURY Interactive\QuickTest Professional\MicTest\

HKEY_LOCAL_MACHINE\SOFTWARE\MERCURY Interactive\QuickTest Professional\PacKages\

We can access the supported data inside the TSRManager key,we need to use the following code

msgbox setting("TSRManager")("Supported")

Note:changing some of these setting at run-time might cause unexpected behavior

 

Method2Enumeratingthe Setting Objects and Variables
The Setting Object is actually the“mercury.Scriptings”COM library,this library provide two undocumented arrarys for Enumerating,the arrays named keys and items(return all the object/values stored for given index/key)

 

'ObjSetting is of Type

Public Function EnumerateSettings(objSetting)

  'Get arrays of key

  vKeys = objSetting.Keys

 

  'Get the 2nd dimenstion of the Keys array

  i_Count = UBound(vKeys,2)

 

'  On error resume next

 

  'Loop through all the keys and get the details

  For i = 0 to i_Count

    DataTable("Key",dtGlobalSheet) = vKeys(0,i)

    DataTable("Value",dtGlobalSheet) = objSetting.Item(vKeys(0,i))

    DataTable("Type",dtGlobalSheet) = TypeName(objSetting.Item(vKeys(0,i)))

    DataTable.GlobalSheet.SetCurrentRow i+2

  Next

End Function

Call EnumerateSettings(Setting)

We can get a list from the datatable:

Key

Value

Type

(default)

 

String

actionsspath

C:\Program Files\Mercury Interactive\QuickTest Professional\Tests\advance\Action1

String

activepanetab

0

Long

addin manager

 

IScriptSetting2

additionalfunclibfileslist

 

String

advancedlockmode

0

String

allowtdconnect

1

Long

analogreplay

0

Long

appendresfiles

False

Boolean

appfunclibfileslist

 

String

applicationtypename

QuickTest Professional

String

attributes

 

IScriptSetting2

autmode

0

Long

automaticlinkcheck

0

Long

automaticlinkrun

0

Long

autotmprunmode

-1

Long

browserinvokingsettled

0

Long

browserstepcount

695

Long

browsertype

IE

String

businesscomponentiter

0

Long

checkbrokenlinks

0

Long

checkforupdates

1

Long

checkhtmlcontent

0

Long

checkhtmltag

0

Long

checkimagessource

1

Long

checklinksurl

1

Long

checkloadtime

1

Long

checknumberofimages

1

Long

checknumberoflinks

1

Long

closebrowser

0

Long

connectscriptdebuger

1

Long

copyresinsaveas

False

Boolean

copysnapinsaveas

True

Boolean

currentreportpath

C:\Program Files\Mercury Interactive\QuickTest Professional\Tests\advance\Res10

String

datatablepath

 

String

debuginitfailure

0

Long

defaultdelay

500

Long

defaultloadtime

10

 

 

If we notice the type of the various keys we will notice that many of them have“IScriptSetting2” which is nothing but the Interface for “mercury.Scriptings”,it means we can also enumerate that object using the same method we used for the Setting object,for example

Call EnumerateSettings(Setting("attributes"))

 

The table below Shows some of the settings and the description for them

Setting("FirstGlobalIteration")

Starting iternation row number of the global data table from the run Settings

Setting("LastGlobalIteration")

Ending iternation row number of the global data table from the run Settings

Setting("GlobalIterationMode")

The Iteration mode in the run setting

1=Run on all rows

2=Run on single row/Run on specified rows

Setting("DisableRepalyUsingAlgorithm")

Disable smart identification at run-time

0= smart identification enabled

1= smart identification disabled

 

 

Setting("OnPlayError")

Set what action need to be taken in case an error occurs while replaying the script

Following are the possible values

Dialog=Pop up message box

nextIteration=proceed to the next action

stop=stop run

skip=proceed to the next step

 

Setting("UseExternalDatatablePath")

Whether a external data table is being used or not

0=No external dataTable

1=External dataTable

Setting("ExternalDataPath")

Path of external datatable in case UseExternalDatatablePath is 1

Setting("SnapshotOnErrorActiveUI")

Save image to deskstop when error occurs

0=disabled

1=enabled

setting("TSRManager")("ObjRepType")

Type of the Repository being used in the test

0=Per-action repository

1=shared object Repository

setting("TSRManager")("TSRFilePath")

File Path of the shared object repository in case ObjRepType=1

setting("TSRManager")("DefaultObjRepType")

Default Type of the Repository being used in the test

0=Per-action repository

1=shared object Repository

Setting("RepalyRecovery")(“enabled”)

Recovery scenarios

0=disabled

1=enabled

Setting("isreadyOnly")

The script opened in the read only type

True -Read-Only

False-read/write

Setting("actionsPath")

CurrentActionsPath on the local machine

Setting("launchreport")

View test result after run is completed

0-Do not show any results

1-    show the results

 

Setting persistence

在运行时添加这些Setting变量在脚本完成时不会销毁，除非QTP关闭或者一个新的脚本打开

The following code demonstrates this persistence

If Setting.Exists("Session") Then

      msgbox "The Session exists"

      else

      Setting.Add "Session","Session1"

      msgbox "Session created"

End If

 

The first run displays the message "session created" while the subsequent runs of the same QTP run display "The Session exists",this demonstrate the Settings are persisted in memory

 

Stop and Re-Run QTP Using Code（没太看懂）

有如下的几种情况需要重新启动QTP

1、 场景恢复在运行时添加，他不能应用于test，除非停止并且重新运行

2、  

'Function stop and restart QTP

Sub StopAndReRunQTP(restartFlag)

  'Only restart if the flag has not been used

  If Setting.Exists(restartFlag) = False then

     'Flag does not exist add. Settings added at

     'run-time are kept for whole session of QTP

     Setting.Add restartFlag,True

     'Call the routine for launching jon to

     're-run QTP after we have stopped QTP

     Call AsyncReRunQTP

    

     'Disable reporting failure    

     Reporter.Filter = rfDisableAll

    

     'Change the setting to stop on any error

     Setting("OnReplayError") = "Stop"

    

     'Stopping Test by causing an intentional error

     Err.Raise vbObjectError + 1,"Stop", "Causing Error for Stopping QTP"

  End if

End Sub

 

Sub AsyncReRunQTP()

   'Create the re-run script at run-time

   Call CreateQTPRunScript()

  

   'Run the script asynchronously

   Set wShell = CreateObject("WScript.Shell")

   wShell.Run "ReRunQTP.vbs" 

End Sub

 

Public Function CreateQTPRunScript()

   'Create script to wait for QTP to stop and then re run it

   Set fso = CreateObject("Scripting.FileSystemObject")

   set file = fso.OpenTextFile("ReRunQTP.vbs",2, True)

   file.WriteLine "Set qtpApp = CreateObject(""QuickTest.Application"")"

   file.WriteLine "While qtpApp.Test.IsRunning"

   file.WriteLine "Wend"

   file.WriteLine "qtpApp.Test.Run ,False"

   file.close

   set file = nothing

   set fso = nothing

End Function

Adding Recovery Scenarios at run time

Recovery scenariocan be added at run-time using AOM，but we need to stop and re-run function as described above

'Check if the setting exists or not

If Not Setting.Exists("AddingRecoveryScenario") then

  Dim qtpApp

  'Add the recovery scenario

  Set qtpApp = CreateObject("QuickTest.Application")

  qtpApp.Test.Settings.Recovery.RemoveAll

  qtpApp.Test.Settings.Recovery.SetActivationMode "OnEveryStep"

  sRecoveryFileName = "C:\Program Files\Mercury Interactive\" _

                      & "QuickTest Professional\recovery\WebRecovery.qrs"

  qtpApp.Test.Settings.Recovery.Add sRecoveryFileName, "Security Warning", 1

  qtpApp.Test.Settings.Recovery.Item(1).Enabled = "True"

  StopAndReRunQTP "AddingRecoveryScenario"

End If

Executing code when Script ends

VBScript don’t have script start or script end evens， execute some code at the start of a script is easy which is done by adding that code in the vbs file and associating it with the test resource.

We can execute a code at end of script to export a datatable , this is commonly done at the end of the last action ,but the problem is when we are using global iteration, the code will called again and again ,we can give a workaround to execute the code at the last iteration only:

If environment.value("testIteration")=setting("LastGlobalIteration")then

 dataTable.export "C:\Test.xls"

End if

The code above works fine in most situations but when it fails when we have imported the global sheet as setting("LastGlobalIteration") is not updated at run time.

A solution to this problem:

'place this code into the C:\LoadUnload.vbs file

Class LoadUnload

  Sub Class_Initialize()

    MsgBox "Initialized"

  End Sub

 

  Sub Class_Terminate()

    MsgBox "Terminated"

  End Sub

End Class

 

Dim oLoadUnload

Set oLoadUnload = New LoadUnload

the following example provide a solution that works with both QTP8.X and 9.X

'Variable declaration

Dim FSO

Dim xlApp

Dim oMyClass

 

Class MyClass

  '....

End Class

 

Class LoadUnload

  Sub Class_Initialize()

    Set FSO = CreateObject("Scripting.FileSystemObject")

    Set xlApp = CreateObject("Excel.Application")

   

    Set oMyClass = New MyClass

  End Sub

 

  Sub Class_Terminate()

    On Error Resume Next

    'Clean up all the objects

    Set FSO = Nothing

   

    'Close all open sheet and quit excel

    For Each workBook In xlApp.Workbooks

     'Close the work book and dont save changes

     workBook.Close False

    Next

   

    'Quit the Excel application

    xlApp.Quit

   

    Set xlApp = Nothing

   

    Set oMyClass = Nothing

  End Sub

End Class

 

Dim oLoadUnload

Environment.Value("oLoadUnload") = New LoadUnload

Making an object visible on a web page

Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set "cora"

Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").MakeObjVisible

Browser("百度一下，你就知道").CaptureBitmap "C:\Snap1.bmp",True

Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Submit

Advanced Text CheckPoints

?

Extending Test Objects using Classes

Class entendWebTable

      Private oWebTable

         Public Property Set Item(pObject)

               Set oWebTable=pObject

         End Property

         Public Property Let Item(pObject)

               Set oWebTable=pObject

         End Property

         Sub Click(Byval Row,ByVal Col)

               Set oCell=oWebTable._

                WebElement("html tag:=TR","index:="&(Row-1)).WebElement("html tag:=TR","index:="&(Col-1))

                oCell.click

         End Sub

         Sub ClickDOM(Byval Row,ByVal Col)

                    Set oCell=oWebTable.Rows(Row-1).Cells(Col-1)

                    oCell.click

         End Sub

        public  Function GetCellData(Byval Row,ByVal Col)

               GetCellData=oWebTable.GetCellData(Row,Col)

         End Function

           public Function GetCellDataDOM(Byval Row,ByVal Col)

               GetCellData=oWebTableobject.Rows(Row-1).Cells(Col-1).outerText

         End Function

        

         Public Function getColIndex(byval Col)

               If varType(Col)=vbString Then

                      Col="Text:="&Col

                      If  oWebTable.WebElement("html tag:=TR","index:=0").WebElement("html tag:=TD|TH",Col).Exist(0) Then

                           set oCell=oWebTable._

                           WebElement("html tag:=TR","index:=0").WebElement("html tag:=TD|TH",Col)

                           getColIndex=oCell.GetROPProperty("attribute/cellindex")+1

                           else

                                  getColIndex=0

                           end if

                    else

                           getColIndex=Col

                      End If

         End Function

         Function FindTextBySearch(Byval SearchText,ByVal matchIndex,ByRef Row,ByRef Col)

               ''..

         End Function

End Class

 

'method1

'Create a extend WebTable class object

Set exWebTable=new entendWebTable

Set exWebTable.item=Browser("..").Page("..").WebTable("..")

 

exWebTable.click 1,1

msgbox exWebTable.GetCellDataDOM(1,1)

 

'method 2

'registers the class as a function using the QTP RegisterUserFunc

Public Function exWebTable(oObject)

      Set exWebTable=nothing

      Set  exWebTable=new entendWebTable

      Set exWebTable.item=oObject

End Function

'Register the entend function as one of the method for Webtable object

RegisterUserFun "WebTable","Extend","exWebTable",true

msgbox Browser("..").Page("..").WebTable("..").extend.GetCellDataDOM(1,1)