QTP Scripts : QTP Scripts http://www.gcreddy.com/
File System Operations : File System Operations 1) Creating a Flat FileSet objFSO = CreateObject("Scripting.FileSystemObject")Set objFile = objFSO.CreateTextFile("E:\Gcreddy.txt")2) Checking weather the File is available or not, if not creating the FilestrDirectory="E:\"strFile="Gcreddy.txt"Set objFSO = CreateObject("Scripting.FileSystemObject")If objFSO.FileExists(strDirectory & strFile) ThenSet objFolder = objFSO.GetFolder(strDirectory)ElseSet objFile = objFSO.CreateTextFile("E:\Gcreddy.txt")End if
For more Scripts visit: www.gcreddy.com
Database Operations : Database Operations Get Test Data From a Database and use in Data Driven Testing (through Scripting)1) Dim con,rs2) Set con=createobject("Adodb.connection")3) Set rs=createobject("Adodb.recordset")4) con.provider=("microsoft.jet.oledb.4.0")5) con.open "C:\Documents and Settings\Administrator\My Documents\Gcreddy.mdb"6) rs.open "Select * From Login",con7) While rs.eof <>True 8) SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"9) Dialog("Login").Activate10) Dialog("Login").WinEdit("Agent Name:").Set rs.fields ("Agent")11) Dialog("Login").WinEdit("Password:").Set rs.fields ("Password")12) Dialog("Login").WinButton("OK").Click13) Window("Flight Reservation").Close14) rs.movenext15) Wend
For more Scripts visit: www.gcreddy.com
Web Scripts : Web Scripts Count all opened Browsers on desktop and close them all?Set oDesc = Description.Create() oDesc("micclass").Value = "Browser" Set Browsers =Desktop.ChildObjects (oDesc)NumberofBrowsers = Browsers.Count() Reporter.ReportEvent 2,"Res","Number of Browsers are: "&NumberOfBrowsersFor Counter=0 to NumberofBrowsers-1Browsers(Counter).CloseNext2) Count, how many links available in Mercury Tours Home Page.Set oDesc = Description.Create() oDesc("micclass").Value = "Link" Set Lists = Browser("Welcome: Mercury").Page("Welcome: Mercury").ChildObjects (oDesc)NumberOfLinks = Lists.Count() Reporter.ReportEvent 2,"Res","Number of Links are: "&NumberOfLinks
For more Scripts visit: www.gcreddy.com
Excel Scripts : Excel Scripts Create an Excel file, enter some data and save the file through VB scripting? 1) Dim objexcel2) Set objExcel = createobject("Excel.application")3) objexcel.Visible = True4) objexcel.Workbooks.add5) objexcel.Cells(1, 1).Value = "Testing"6) objexcel.ActiveWorkbook.SaveAs("f:\exceltest.xls")7) objexcel.Quit2) Data Driven Testing through an External Excel Sheet1) Set myExcel=Createobject("Excel.Application")2) Set myFile=myExcel.workbooks.open ("C:\Documents and Settings\admin\My Documents\gcreddy.xls")3) Set mySheet=myFile.worksheets("Sheet1")4) Rows_Count=mySheet.usedrange.rows.count5) For i= 1 to Rows_Count6) Agent=mySheet.cells(i,"A")7) pwd=mySheet.Cells(i,"B")8) 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"9) Dialog("Login").Activate10) Dialog("Login").WinEdit("Agent Name:").Set Agent11) Dialog("Login").WinEdit("Password:").SetSecure pwd12) Dialog("Login").WinEdit("Password:").Type micReturn 13) Window("Flight Reservation").Close14) Next
For more Scripts visit: www.gcreddy.com