QTP Codes - Quick Test Professional

More Xpath for Web Objects

2012-01-02T07:44:00.001-08:00

Identifying using Id attribute

obj.WebEdit("xpath:=//input[@id='htmlID']").Set "QTP"

Identifying using Type attribute

obj.WebEdit("xpath:=//input[@type='text'][1]").Set "QTP"'Setting value in first textBox

Identifying using Tagname

obj.WebList("xpath:=//select[1]").Select "London"'Highlighting first listBox

Identifying using Innertext

obj.Link("xpath:=//a[.='Google']").Click'Clicking Google link

Identifying WebTable based on Rowcount

obj.WebTable("xpath:=//table[count(.//tr)=2]").Highlight 'Highlighting the table which has only two rows

More examples will be added

Running Javascript in QTP

2011-10-31T04:41:00.000-07:00

You can run Javascript in QTP using Runscript method. This is a new feature in QTP 11. Here is an example for it.


Set oPage=Browser("name:=Google").Page("title:=Google")

Set oTxtGoogle=oPage.RunScript("document.getElementsByName('q')(0);")
'The above line gets DOM object for Google textbox using Javascript.

oTxtGoogle.Value="qtp"

I hope it is helpful.

Retrieve values from Quality Center Test Lab and Defects tab using OTA

2011-10-21T22:40:00.000-07:00

Getting the Number of Passed, Failed, No Run and Not Completed Test cases

We can make use of the Filter as given below to get the number of Test cases according to the status Passed, Failed, No Run, Not Completed,etc.

Dim tdc, qcServer
Dim qcUsername,qcPassword,qcDomain,qcProject

Set tdc = CreateObject("TDApiOle80.TDConnection")
qcServer = "QC URL"
tdc.InitConnectionEx qcServer

If tdc.Connected Then
  Msgbox "Connected to QC"
  Else
  MsgBox "Not connected to QC"
End If

qcUsername = "Your QC Username" 'Username
qcPassword = "Your Password"   'Password
tdc.Login qcUsername, qcPassword

If tdc.LoggedIn Then
  MsgBox "Logged in to QC"
  Else
  MsgBox "Logged out from QC"
End If

qcDomain = "Domain" 'QC Domain Name
qcProject = "Project" 'QC Project Name

tdc.Connect qcDomain, qcProject

Dim vPath: vPath="Root\Account1\Proj1" 'Path to the folder containing test set
Dim vPass,vFail,vNR,vNC

Dim oTestSet: Set oTestSet = tdc.TestSetTreeManager.NodeByPath(vpath).TestSetFactory.NewList("").Item(1).TsTestFactory 'Item(1) Refers to the 1st test set in the path
Dim testFilter1: Set testFilter1 = oTestSet.Filter

'To Filter by Passed status
testFilter1.Filter("TC_STATUS") = "Passed"
vPass = vPass + oTestSet.NewList(testFilter1.Text).Count

'To Filter by Failed Status
testFilter1.Filter("TC_STATUS") = "Failed"
vFail = vFail + oTestSet.NewList(testFilter1.Text).Count

'To Filter by No Run status
vNR = vNR + oTestSet.NewList("[Filter]{TableName:TESTCYCL,ColumnName:TC_STATUS,LogicalFilter:" & Chr(39) & "No" & Chr(32) & "Run" & Chr(39) & ",VisualFilter:" & Chr(39) & "No" & Chr(32) & "Run" &Chr(39) & ",NO_CASE:}").Count

'To Filter by Not Completed status
vNC = vNC + oTestSet.NewList("[Filter]{TableName:TESTCYCL,ColumnName:TC_STATUS,LogicalFilter:" & Chr(39) & "Not" & Chr(32) & "Completed" & Chr(39) & ",VisualFilter:" & Chr(39) & "Not" & Chr(32) &"Completed" & Chr(39) & ",NO_CASE:}").Count

Msgbox "Passed: "&vPass&" Failed: "&vFail&" No Run: "&vNR&" Not Completed: "&vNC

Set testFilter1=Nothing

Set oTestSet=Nothing

Set tdc=Nothing

Getting the Number of Test cases executed by a tester in a specific test set

We can use the below code to get the count of test cases executed by a tester in a particular test set.

Dim vPath: vPath="Root\Account1\Proj1" 'Path to the folder containing test set

Dim oTestSet: Set oTestSet = tdc.TestSetTreeManager.NodeByPath(vpath).TestSetFactory.NewList("").Item(1).TsTestFactory 'Item(1) Refers to the 1st test set in the path ; tdc refers to the test
connection object in the previous snippet

Dim testFilter1: Set testFilter1 = oTestSet.Filter
Dim vtestcount: vtestcount=0
Dim tester_name:tester_name="divya" 'QC username of the tester for whom the count has to be calculated
testFilter1.Filter("TC_ACTUAL_TESTER") =chr(34)&Cstr(tester_name)&chr(34)

vtestcount = vtestcount + oTestSet.NewList(testFilter1.Text).Count
Msgbox "Number of Test Cases executed by "&tester_name&" : "&vtestcount
Set testFilter1=Nothing
Set oTestSet=Nothing

Getting the number of defects raised by a tester in a specific release according to severity

We need to apply multiple filters as we are using Tester name, Release Name and Defect Severity as the criteria.

Dim Bug_Ct:Bug_Ct=0
Dim tester_name:tester_name="divya"
Dim test_severity:test_severity="2-High"

Dim oBugFactory: Set oBugFactory=tdc.BugFactory
Dim TotBugcnt: TotBugcnt=oBugFactory.NewList("").Count 'To get the total number of defects in Defects tab.
Dim oBugFilter1:Set oBugFilter1=oBugFactory.Filter

oBugFilter1.Filter("BG_DETECTED_BY")=tester_name 'QC username of the tester for whom the defect count has to be calculated
oBugFilter1.Filter("BG_DETECTED_IN_REL") = "^Releases\proj1\1.1.01.201^" 'Name of the Release
oBugFilter1.Filter("BG_SEVERITY")=test_severity 'Defect Severity. Eg.: Can be 2-High, 1-Critical, 4-Low. Possible Values can be obtained from QC defects tab

Bug_Ct = Bug_Ct + oBugFactory.NewList(oBugFilter1.Text).Count
Msgbox Bug_Ct

Set oBugFilter1=Nothing

Getting the number of defects in a specific release according to defect status

Here we need to apply the following criteria: Release Name, Defect status. If we want to be more specific , say, we need to find the same for a particular tester, then we can include tester name as a filter criteria.

The following code will give the output for number of defects raised in a specific release having the status "Closed" which were raised by tester1 and tester2.


Dim Bug_Ct:Bug_Ct=0
Set oBugFactory=tdc.BugFactory
Set oBugFilter1=oBugFactory.Filter
oBugFilter1.Filter("BG_DETECTED_IN_REL") = "^Releases\proj1\1.1.01.201^" 'Name of the Release
oBugFilter1.Filter("BG_STATUS")="Closed" 'Defect status for which count is calculated
oBugFilter1.Filter("BG_DETECTED_BY")="tester1 or tester2" 'QC Username of the testers for whom the count is calculated
Bug_Ct = Bug_Ct + oBugFactory.NewList(oBugFilter1.Text).Count
Msgbox Bug_Ct
Set oBugFilter1=Nothing

How To Get Cursor Position From WebEdit

2011-10-11T10:26:00.000-07:00

The below snippet can be used to get the cursor position from WebEdit

Dim oPage:Set oPage=Browser("name:=Google").Page("title:=Google")
Dim oSel:Set oSel=oPage.Object.Selection.createRange
Dim oWebEdit:Set oWebEdit=oPage.WebEdit("name:=q").Object

oSel.moveStart "character",-Len(oWebEdit.value)

Msgbox  Len(oSel.text)'Here you will get the cursor position.

Set oPage=Nothing
Set oSel=Nothing
Set oWebEdit=Nothing

Xpath Based QTP Object Identification

2011-10-10T00:25:00.000-07:00

Xpath object identification is a new feature in QTP 11. I would like to share an example for it using Google web page


Dim oPage

Set oPage=Browser("name:=Google").Page("title:=Google")

oPage.WebEdit("xpath:=//INPUT[@name='q']").Set "advancedqtp"'Entering value in Google textbox.

oPage.WebButton("xpath:=//INPUT[@value='Google Search']").Click'Clicking Google Search button.

Try it and enjoy

Getting File Path List Using Wild Card Characters

2011-10-06T07:07:00.000-07:00

In this article, I would like to share how to get the file path for the files which are residing in a folder using wild card.

Consider the case where we have a folder containing text files temp.txt, tem.txt, temp1.txt, temp2.txt.

In the above text file list if we want to get path for the files using “temp*.txt” wild card, GetFiles (System.IO.Directory) method can be used.


Dim inFile,oColFilesList,oArrayList,oDI

Set oArrayList=DotNetFactory.CreateInstance("System.Collections.ArrayList","")
Set oDI=DotNetFactory.CreateInstance("System.IO.Directory","mscorlib")

Set oColFilesList=oArrayList.Adapter(oDI.GetFiles("C:\Files List","temp*.txt"))

For inFile=0 to Cint(oColFilesList.Count)-1
Msgbox oColFilesList(inFile)
Next

Set oArrayList=Nothing
Set oDI=Nothing
Set oColFilesList=Nothing

The above code will retrieve paths of temp.txt, temp1.txt, and temp2.txt files but not for tem.txt file.

Merging Images Using DOT NET Factory

2011-10-04T11:18:00.000-07:00



strImage1Path="C:\Sunset.jpg"
strImage2Path="C:\Winter.jpg"
strMergedImagePath="C:\MergeImage.jpg"'Path where the merged image is to be stored.

Set oImage=DotNetFactory.CreateInstance("System.Drawing.Image","System.Drawing")
Set oGraph=DotNetFactory.CreateInstance("System.Drawing.Graphics","System.Drawing")
Set oPens=DotNetFactory.CreateInstance("System.Drawing.Pens","System.Drawing")
Set oImage1=oImage.FromFile(strImage1Path)
Set oImage2=oImage.FromFile(strImage2Path)

inWidth=Cint(oImage1.Width)+Cint(oImage2.Width)

If oImage1.Height >=oImage2.Height Then
 inHeight=Cint(oImage1.Height )
 Else
  inHeight=Cint(oImage2.Height )
End If

Set oBmp=DotNetFactory.CreateInstance("System.Drawing.Bitmap","System.Drawing",inWidth,inHeight)

Set gr=oGraph.FromImage(oBmp)

gr.DrawRectangle oPens.Black,0,0,Cint(inWidth)-1,Cint(inHeight)-1

gr.DrawImage oImage1,0,0
gr.DrawImage oImage2,oImage1.Width,0

oBmp.Save(strMergedImagePath)

Set oImage=Nothing
Set oGraph=Nothing
Set oPens=Nothing
Set oImage1=Nothing
Set oImage2=Nothing
Set oBmp=Nothing
Set gr=Nothing

Retrieving Excel Column Names Using ADODB

2011-10-03T11:02:00.000-07:00


strExcelPath="C:\Book1.xls"
strTableName="Sheet1$"'Note: $ symbol should be included with Table Name.
Set oCon=CreateObject("ADODB.Connection")

With oCon
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ="&strExcelPath&"; ReadOnly=False;"
.Open
End With

Set oRs1=oCon.OpenSchema(4,Array(Empty, Empty,strTableName,Empty))

Do Until oRS1.EOF
Msgbox oRs1.Fields.Item("COLUMN_NAME").Value
oRS1.MoveNext
Loop

oRs1.Close
oCon.Close

Set oRs1=Nothing
Set oCon=Nothing

QTP Codes blog is being updated

2011-09-29T11:14:00.000-07:00

QTP Codes blog is being updated. You will see post design changes shortly.

More Methods For PathFinder Object

2011-09-29T11:07:00.000-07:00

Most of us are aware of the Locate method available for PathFinder object. But there are more useful and unfamiliar methods associated with PathFinder Object. I would like to share how these methods can be used in QTP.

# INSERT
Description:
This method is used to add a new folder path to the Folders list (Tools-> Options-> Folders).

Syntax:

PathFinder.Insert [Path],[Index]

Example:

PathFinder.Insert "C:\Test",0

The above example will add new folder path to the Folders list.

# FIND
Description:
This method returns the Index of the specified path.

Syntax:

Msgbox PathFinder.Find [Path]

Example:

Msgbox PathFinder.Find("C:\Test")

The above example returns the Index of the specified path. If the path is not found, it will return -1.

# MOVEITEM
Description:
This method can be used to swap the Index of two folder paths.

Syntax:

Pathfinder.MoveItem [Source_Index],[Destination_Index]

Example:

Pathfinder.MoveItem 1,0

# REMOVE
Description:
This method removes the specified folder path from the folders list.

Syntax:

Pathfinder.Remove [Path]

Example:

Pathfinder.Remove("C:\Test")

# REMOVEALL
Description:
This method removes all the items from the folders list.

Syntax/Example:

Pathfinder.RemoveAll

Note: It removes default folder item as well.

# REMOVEBYINDEX
Description:
This method removes the folder path item using Index.

Syntax:

PathFinder.RemoveByIndex([Path_Index])

Example:

PathFinder.RemoveByIndex(0)

# SAVE
Description:
This method can be used to commit all the changes which are done using PathFinder object. If Save method is not used, your changes in Folder List will not be retained.

Syntax/Example:

PathFinder.Save

Unknown QTP Webtable Methods

2010-11-28T01:19:00.000-08:00

The below listed unknown QTP webtable methods were present in Astra LoadTest. But we are still able to use these methods in QTP. I would like to share this to you.

#1 CellText
This method works as same as GetCellData method.

Eg.: Msgbox Browser("name:=qtp").WebTable("index:=0").CellText(1,1)

#2 CellTextByContext
This method returns the text within a cell delimited by a character. We can retrieve the text before (or) after the delimiter using this method.
Eg.: Consider a cell having the text “Asiq;Ahamed”. Here “;’ is the delimiter

Code to retrieve the text before the delimiter

Msgbox Browser("name:=qtp").WebTable("index:=0").CellTextByContext(1,1,"",";")

Code to retrieve the text after the delimiter

Msgbox Browser("name:=qtp").WebTable("index:=0").CellTextByContext(1,1,";")

#3 TextCellExist

This method checks whether a text exists in a cell or not. It returns true, if the input text exists in the cell, else it returns false. Rather than using GetCellData method and then comparing the result with the input text, we can achieve it using this simple method.

Msgbox Browser("name:=qtp").WebTable("index:=0").TextCellExist(1,1,"asiq")

I hope this is useful to all.

Beware of setting value in webedit using DOM

2010-11-21T06:47:00.000-08:00

If you set value in a disabled webedit, QTP will throw the below error.

But do not enter value in webedit using DOM. The problem is: You can set value in web text box even it is disabled.
We have a work around for this.


Set obj=Browser("name:=Google").Page("title:=Google").WebEdit("index:=1").Object
If Not obj.disabled Then
obj.Value ="qtp"
End If

I always use DOM to retrieve text or count no. of objects. I hope this is helpful.

Adding Hyperlink In An Excel Sheet

2010-08-06T10:18:00.000-07:00

Method #1


Set obj=CreateObject("Excel.Application")
obj.Visible=True

Set oWorkBooks=obj.WorkBooks.Open("C:\Desktop\Book1.xls")
Set oWorksheet=oWorkBooks.Worksheets(1)

With oWorksheet
.Hyperlinks.Add .Range("A1"),"http://qtpcodes.blogspot.com"
End With

Method #2


Set obj=CreateObject("Excel.Application")
obj.Visible=True

Set oWorkBooks=obj.WorkBooks.Open("C:\Desktop\Book1.xls")
Set oWorksheet=oWorkBooks.Worksheets(1)
sLink="http://www.qtpcodes.blogspot.com"

oWorksheet.Cells(1, 1).Value= "=HYPERLINK("&Chr(34)&sLink&Chr(34)&",""CLICK HERE"")"

Resizing Bitmap using Dotnet Factory

2010-06-26T21:23:00.000-07:00


Set oImage=DotNetFactory.CreateInstance("System.Drawing.Image","System.Drawing") 
vstPath="C:\Sample Pictures\Water lilies.jpg" 'path of the bitmap to be resized. 
Set oBitmap=DotNetFactory.CreateInstance("System.Drawing.Bitmap","System.Drawing",oImage.FromFile(vstPath),30,40) 
vStResizedPath="C:\Sample Pictures\Water lilies1.jpg" 
oBitmap.Save(vStResizedPath)'Save the resized bitmap. 
Set oBitmap=Nothing 
Set oImage=Nothing

Reuse Your QTP Code

2010-06-03T10:36:00.000-07:00

In this article, I am going to explain you how can we reuse the code which is written for web application.
In the below class, I have written function fnc_set to set value in a WebEdit.


Class FirstClass
Private VarBrowserObj
Private VarWebEditObj
Private VarSetValue
'**********Let Property*****************************************
Public Property Let fnc_VarSetValue(val)
VarSetValue=val
End Property
'**********Set Property****************************************
Public Property Set fnc_VarBrowserObj(val)
Set VarBrowserObj=val
End Property

Public Property Set fnc_VarWebEditObj(val)
Set VarWebEditObj=val
End Property
'**************Funtions and Procedures**********************
Public Function fnc_set
Browser(VarBrowserObj).WebEdit(VarWebEditObj).Set VarSetValue
End Function
End Class

Here, I am creating an object for the above class and setting up values and objects for class properties.


Public objClass
'Creating object for class
Set objClass=new FirstClass 

'Calling Let to assign value for VarSetValue property
objClass.fnc_VarSetValue="QTP"


'Calling Set property method for Browser object
Dim objBrowser:Set objBrowser=Description.Create()
objBrowser("name").Value="Google"
Set objClass.fnc_VarBrowserObj=objBrowser


'Calling Set property method for WebEdit object
Dim objWebEdit:Set objWebEdit=Description.Create()
objWebEdit("name").Value="q"
Set objClass.fnc_VarWebEditObj=objWebEdit

'Calling fnc_set function for Web operation
objClass.fnc_set

You may think that the above class can be used only for web application. But we are able to use for other application also.


'Calling Let to assign value for VarSetValue property
objClass.fnc_VarSetValue="mercury"

'Calling Set property method for Dialog object
Dim objDialog:Set objDialog=Description.Create()
objDialog("text").Value="Login"
objDialog("micclass").Value="Dialog"'Here is the trick, you need to inlcude micclass property along with main property.
Set objClass.fnc_VarBrowserObj=objDialog

'Calling Set property method for WinEdit object
Dim objWinEdit:Set objWinEdit=Description.Create()
objWinEdit("attached text").Value="Agent Name:"
objWinEdit("micclass").Value="WinEdit"
Set objClass.fnc_VarWebEditObj=objWinEdit

objClass.fnc_set 'Setting value in winedit with same function.

Overriding GetRowWithCellText Method

2010-05-31T09:39:00.000-07:00

GetRowWithCellText method finds the specified text in a webtable and returns the number of the first row found.
If you want to find all matches in a webtable, then we have to override the GetRowWithCellText method using RegisterUserFunc as below,

RegisterUserFunc "WebTable","GetRowWithCellText","NewGetRowWithCellText"


Function NewGetRowWithCellText(obj,val1,val2,val3)
Dim v_st_returnText
Set objRow=obj.Object.getElementsByTagName("TR")
If val2<>0 Then val2=val2-1
If val3<>0 Then val3=val3-1
For i=val3 to objRow.Length-1
If val1=Trim(objRow(i).getElementsByTagName("TD")(val2).InnerText) Then
If v_st_returnText="" Then
v_st_returnText=Cstr( i+1)
Else
v_st_returnText=Cstr( i+1)+","+v_st_returnText
End If
End If
Next
NewGetRowWithCellText=v_st_returnText
End Function


Msgbox Browser("name:=QTP Codes").Page("title:=QTP Codes").WebTable("index:=0").GetRowWithCellText("Cell3",1,1)

Quitting Excel Workbooks Using Getobject

2010-05-15T09:00:00.000-07:00

Let’s consider that we have opened two excel workbooks using CreateObject. If you want to quit those two workbooks, try the below snippet.

Function fnc_CreateExcel
Set objNewExcel=CreateObject("Excel.Application")
objNewExcel.Visible=True
objNewExcel.Workbooks.Add
Set objNewExcel=Nothing
End Function


Call fnc_CreateExcel'Creating Book1
Call fnc_CreateExcel'Creating Book2


Call fnc_Quit_Excel("Book1")'Quitting Book 1
Call fnc_Quit_Excel("Book2")'Quitting Book 2


Function fnc_Quit_Excel(v_St_ExcelName)
Set objExcel=GetObject(v_St_ExcelName).Application'Getting Excel Object using Book name
objExcel.Quit
Set objExcel=Nothing
End Function

Capturing Bitmap When Text Is Mismatched

2010-04-30T09:35:00.000-07:00

Whenever a text in a webpage is mismatched, you may use QTP report event to report the failure.
You can try the below snippet along with report event, the code captures and highlights the mismatched text in the webpage.

Set obj=Browser("name:=Google").Page("title:=Google").Object.getElementsByTagName("LABEL")(0)
vStrActualText= obj.innerText
vStrExpectedText="The Web"
If vStrActualText<>vStrExpectedText Then
obj.innerHTML=""&vStrActualText&""
Browser("name:=Google").Page("title:=Google").highlight
Browser("name:=Google").Page("title:=Google").CaptureBitmap "C:\TEST.PNG",True
obj.innerHTML=vStrActualText
End If

If your text is mismatched in the webpage, the script captures bitmap of the page.

Finding Disabled Radio Buttons

2010-04-17T20:02:00.000-07:00

The below snippet finds disabled radio button from a webradiogroup using DOM.

Set obj= Browser("name:=Google").Page("title:=Google").Object.getElementsByName("meta")
For i=0 to obj.Length-1
If obj(i).Type="radio" and obj(i).Disabled="True" Then
Msgbox "Radio " &i+1& " is disabled" 'This msgbox indicates the disabled radio button.
End if
Next

Changing Screen Resolution at Runtime

2010-04-17T19:03:00.000-07:00

So far I have not found a code for changing screen resolution at runtime using vb script. If anyone finds that, please post it.

An alternative solution, we can go for third party tool like Qres and MultiRes. These tools can be operated using QTP at runtime.

Download Links:
Qres: http://home.no/aksoftware/
MultiRes: http://www.entechtaiwan.com/util/multires.shtm

If you know any other tool(s), please don’t hesitate to include in the comment section.

Do You Want To View Your Web Table's Structure?

2010-03-30T18:03:00.000-07:00

Do you want to view your web table's structure? If the answer is Yes, then try the below snippet.

Set objTable=Browser("name:=Google").Page("title:=Google").WebTable("name:=q").Object
strTRCount=objTable.getElementsByTagName("TD").Length-1
For i=0 to strTRCount
objTable.getElementsByTagName("TD")(i).style.borderstyle="solid"
objTable.getElementsByTagName("TD")(i).style.borderwidth="2px"
objTable.getElementsByTagName("TD")(i).style.bordercolor="#98bf21"
Next

Try the above code with Google page, you will get the output as below.

Now, you are able to view all the cells of the webtable.

How To Check Elements In A Weblist Are In Alphabetical Order

2010-03-27T05:29:00.000-07:00


arrCtry=Split(Browser("name:=QTP").Page("title:=QTP").WebList("name:=select1").GetROProperty("all items"),";")

Set objArray=DotNetFactory.CreateInstance("System.Collections.ArrayList","")

For i=0 to Ubound(arrCtry)
If arrCtry(i)<>"--Choose One--" Then
objArray.Add(arrCtry(i))
End If
Next

objArray.Sort()
objArray.Insert 0,"--Choose One--"

For j=0 to Ubound(arrCtry)
strOuput=strOuput+objArray(j)
strOuput=strOuput+";"
Next

If strOuput=Browser("name:=QTP").Page("title:=QTP").WebList("name:=select1").GetROProperty("all items")+";" Then
Msgbox "The Weblist's values are sorted in alphabetical order"
Else
Msgbox "The Weblist's values are not sorted in alphabetical order"
End If

I hope the above snippet is useful.

Use WMI Code Creator Tool for Quick WMI Scripting

2010-03-14T08:06:00.000-07:00

Are you searching for WMI codes? Or do you want to know about WMI classes and properties?

Microsoft has created an application to reduce our WMI scripting time. That is WMI Code Creator. This is a free tool from Microsoft. You can download it from the below link,

http://www.microsoft.com/downloads/details.aspx?FamilyID=2cc30a64-ea15-4661-8da4-55bbc145c30e&displaylang=en

This tool reduces our WMI scripting time.
If anyone uses this tool, please include your comments. It may encourage QTP developers to opt this tool for quick WMI scripting.

Working with ChildItem and ChildItemCount methods

2010-03-12T02:39:00.000-08:00

Consider a webtable has one row and two columns and the second column contains a webedit.
If you run the below code, Exist method will be passed and the value will be set into webedit.


If obj.ChildItem(1,2,"WebEdit",0).Exist(0) Then 
obj.ChildItem(1,2,"WebEdit",0).Set "QTP"
End If

Suppose, if you run the code for negative condition (I.e. You are going to look for webedit in the first column where it does not exist), you will get an error as same as below.
To avoid this problem, use ChildItemCount method instead of ChildItem for the above criteria.


If obj.ChildItemCount(1,1,"WebEdit")>0 Then
obj.ChildItem(1,1,"WebEdit",0).Set "QTP"
End If

Now, you do not get the error for negative case.

Generating Random Data

2010-02-23T23:23:00.000-08:00

Do you want to generate random data for your test? Try the below methods.
Method #1:


Set objRandm = CreateObject("Scriptlet.TypeLib")
strGUID = objRandm.Guid
Msgbox strGUID

Method #2:


Set oGuid=DotNetFactory.CreateInstance("System.Guid","mscorlib")
Set oConvert=DotNetFactory.CreateInstance("System.Convert","mscorlib")

temp= oConvert.ToBase64String(oGuid.NewGuid().ToByteArray())
temp=Left(temp,22)
temp=Replace(temp,"/", "_")
strRandm=Replace(temp,"+", "-")
Msgbox strRandm

This method is as same as previous one, but length of the string is shorter.
Method #3:


Msgbox hex(( ( (timer+rnd(1)) *100) + int(rnd(1)*16)*&hf0000 ) mod &h100000 )

The above code generates semi-unique random strings.