Data Driven Testing using Data Table methodsĭatatable.ImportSheet “C:\Documents and Settings\Administrator\Desktop\karun.xls”,1,3 If cell.Value objWorksheet2.Range(cell.Address).Value ThenĦ. Set objWorksheet2= objWorkbook2.Worksheets(1) Set objWorksheet1= objWorkbook1.Worksheets(1) Set objExcel = CreateObject(“Excel.Application”) SystemUtil.Run “C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe”,””,”C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\”,”open”ĭialog(“Login”).WinEdit(“Agent Name:”).Set Agentĭialog(“Login”).WinEdit(“Password:”).SetSecure pwdĭialog(“Login”).WinEdit(“Password:”).Type micReturn Set myFile= (“C:\Documents and Settings\admin\My Documents\karun.xls”) Set myExcel=Createobject(“Excel.Application”) Data Driven Testing through an External Excel Sheet Set objExcel = createobject(“Excel.application”) Create an Excel file, enter some data and save the file through VB scripting? Reporter.ReportEvent 2,”Res”,”Number of Links are: “&NumberOfLinksģ.
Set Lists = Browser(“Welcome: Mercury”).Page(“Welcome: Mercury”).ChildObjects (Desc) Reporter.ReportEvent 2,”Res”,”Number of Browsers are: “&NumberOfBrowsersĢ.Count, how many links available in Mercury Tours Home Page. Set Browsers =Desktop.ChildObjects (Desc) Objheirarchy.capturebitmap”filename.bmp”, trueġ. Objectname(Oobjectname).objectname(Oobjectname).-objectname(Oobjectname).operation
Oobjectname(“propertyname”).value=”propertyvalue”
#MICROSOFT SCRIPT DEBUGGER FOR QTP 11.0 DRIVER#
If you want any logic or method or driver script …please use CNTRL+F …. definitely you will get… In this post i mentioned the script of qtp objects ,driver scripts etc…this one is i used in my projects and some other are i collected from various sites ….
0 kommentar(er)
