when we enter url,one page should open.write a vb script
,that page is open or not
Answer Posted / leena
Browser is open with blank home page
Browser("version:=internet explorer
6", "Title:=about:blank", "openurl:=about:blank").Navigate
("http://www.google.com/")
Dim a
a=Browser("version:=internet explorer
6", "Title:=Google", "openurl:=about:blank", "name:=Google")
.Page("Title:=Google", "url:=http://www.google.co.in").Exist
if a="True" then
msgbox " Page is open"
else
msg "Page is not open"
| Is This Answer Correct ? | 1 Yes | 4 No |
Post New Answer View All Answers
How QA specialist can identify when programmatic descriptions are useful?
Can the user toggle between using Local OR and shared OR for the same action?
Can launch two instances of qtp on the same machine?
How to save your test using quicktest professional (qtp)?
Which recording modes need more memory?
how can we preform retesting(DATA driven test) using function please gine the code for loginpage
i want information about API testing and i want info like how process can be done in company? i want added info like coding ,debugging, desing in c.v ? what should add in c.v for eg banking domin? pls any answer my question?
What is the synchronization point in qtp?
How to add verification steps to tests?
can anyone tell me what to say in interview when interviewer asks about "tell me about your framework in your project"?
How to use descriptive programming?
How can you write the scripts that operate on different objects depending on run-time information?
I have two For loop, first For loop does is creates a customer and input the customer info and then the second for loop within the first for loop does the follows which is capture the customer name and verify the with the data within the datatable. The problem I am coming across is that when it goes through the second time creating another customer and then verify the second customer then it creates the following during runtime. I want is to have the customer2 below Customer1 under the Customer_from_Apps. Any help will be greatly appreciate it. Customer Customer_from_Apps Customer_from_Apps1 Customer1 Customer 1 Customer2 Customer2 Window("Customer Desktop").Window("Customer Tracking (Privacy").WinObject("TreeView20WndClass").Click 92,244 runtimevalue = .VbTreeView("vbname:=AppServerTree").GetROProperty("Selectio n") Customer_Val= Datatable.GlobalSheet.AddParameter ("Customer_from_Apps",runtimevalue) row=datatable.getsheet("Global").GetRowCount For x=1 to row datatable.SetCurrentRow(x) Data_Val=Datatable.Value("Customer",dtGlobalSheet) If (trim(Customer_Val)=trim(Data_Val)) Then Reporter.ReportEvent micPass, "Customer validation successful", "Actual Value: " &Data_Val&vbcrlf& "Customer Value: " &Customer_Val else Reporter.ReportEvent micFail, "Cusotmer validation unsuccessful", "Actual Value: " &Data_Val&vbcrlf& "Customer Value: " &Customer_Val End If Next
tell me abt a time when u had to go above &beyind the call of duty to get the job done
when I try to run below script in QTP "totalPages" value is 2. But i am getting error message (Type mismatch: 'totalPages' Line (): "For i=1 to totalPages".) totalPages=Browser("Name:=User").Page("Title:=User").WebElem ent("innertext:=of.*").GetROProperty("InnerText") msgbox totalPages For i=1 to totalPages rnum=Browser("Name:=User").Page("Title:=User").WebTa ble("column names:=User Name;ID;Last Name;First Name").GetRowWithCellText("store4") If rnum>0 Then r=rnum Exit for End If Browser("Name:=User").Page("Title:=User").WebElement ("html tag:=A","x:=471").Click MsgBox "Exit" Next