with out object repository i need to launch IE and then
navigate to a login page and then operate the objects
within the page. How will be the script?
Answers were Sorted based on User's Feedback
Answer / ramanestalu dasari
create instance object using InternetExplorer.Application
Ex: Dim IE
set IE=createobject("InternetExplorer.Application")
IE.navigate("www.gmail.com")
IE.visible=True
Browser().page().webedit().set "value"
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / sonal
Sample code to open browser and navigate to google site and
click on link.
------------------------------------------------------------
---------------------------------------------------------
If Browser("index:=0").Exist(1) then
wHandle1 = Browser("index:=0").GetROProperty
("hwnd")
hWindow = wHandle1
Browser("hwnd:=" & hWindow).Navigate
("http://www.google.com")
'msgBox "Opened URL"
Browser("hwnd:=" & hWindow).Sync
wait 2
Else
Call SystemUtil.Run
(BROWSER_EXE, "http://www.google.com", "", "open")
wHandle1 = Browser("index:=0").GetROProperty
("hwnd")
hWindow = wHandle1
Browser("hwnd:=" & hWindow).Sync
End If
Browser("hwnd:=" & hWindow).Page("title:=.*").Link
("name:=Images","index:=0").Click
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / rajesh
If Browser("index:=0").Exist(1) then
hWindow = getHandleBrowser
Browser("hwnd:=" &
hWindow).Navigate("http://www.google.com")
'msgBox "Opened URL"
Browser("hwnd:=" & hWindow).Sync
wait 2
else
SystemUtil.Run "iexplore.exe",
"http://www.google.com", "", "open"
hWindow = getHandleBrowser
Browser("hwnd:=" & hWindow).Sync
End If
Browser("hwnd:=" &
hWindow).Page("title:=.*").Link("name:=Images","index:=0").Click
Function getHandleBrowser
wHandle1 = Browser("index:=0").GetROProperty("hwnd")
getHandleBrowser = wHandle1
End Function
| Is This Answer Correct ? | 0 Yes | 0 No |
How to Analyze the Checpoint results by Text/Text Area Checkpoint?
What are the different types of qtp test assets and their extensions?
When to Insert transactions in QTP?
in which situation u will use recording and in which situation u will used to write script manually
hi, for QTP TRAINING......SURESH REDDY SMART SOLUTIONS sr.nagar IS BEST OR NOT? how faculty teaches?
Can we use same virtual objects in many number of tests?
How to check and display a particular word from a paragraph?
in which case & which method we can use "native" property of an object ?
How to add multiple values in rows, under a single column of a run time datatable?
For the below written code , i want to be stop the loop (ex:10 times), but it is focusing to first line of the code & generating error. vbwindow("vbname:=frmMain").Type micAltDwn + "6" + "2" + "D" +micAltUp 'wiil open the particular window in application vbwindow("vbname:=frmDeduction").vbbutton("vbname:=cmdNew").Click DataTable.ImportSheet"F:\QTP VBScript\Form 26-1.xls","Deduction",Global RowCount = DataTable.GetSheet("Global").GetRowCount i=RowCount For j =1 to i 'vbwindow("vbname:=frmDeduction").WinObject("nativeclass:=DataComboWndClass","abs_y:= 187").Type DataTable("Name", dtGlobalSheet) vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 187").Type DataTable("Name", dtGlobalSheet) vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 187").Type micF4 vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 187").Type micTab vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 216").Type micF4 vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 216").Type DataTable("Section", dtGlobalSheet) vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 216").Type micTab vbwindow("vbname:=frmDeduction").VbEdit("vbname:=txtAmtOfPay").Set DataTable("Amount_of_Payment", dtGlobalSheet) vbwindow("vbname:=frmDeduction").VbEdit("vbname:=txtAmtPaidDate").Set DataTable("Amount_PaidCredited_Date", dtGlobalSheet) vbwindow("vbname:=frmDeduction").VbEdit("vbname:=txtAmtPaidDate").Type micTab vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 316").Type micF4 vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 316").Type DataTable("Deduction_is", dtGlobalSheet) vbwindow("vbname:=frmDeduction").ActiveX("acx_name:=DataCombo","abs_y:= 316").Type micTab vbwindow("vbname:=frmDeduction").VbButton("vbname:=cmdSave").Click DataTable.SetNextRow Next vbwindow("vbname:=frmDeduction").VbButton("vbname:=cmdClose").Click
Where are the snapshots stored?
what is object repository?