Hi Naresh .
I am try to write my own code element properties using object spy
I am try to write my own code element properties using object spy
Code:
Option Explicit
Dim MyBrowser
Dim MyPage
Dim MyWebEdit
Dim Num_Ber
'Step 1: Open browser and navigate to http://www.mortgagecalculator.org/
navigate_browser("http://www.mortgagecalculator.org/")
'step 2: Enter Required data
Set MyBrowser=Browser("name:=Mortgage Calculator")
Set MyPage=Page("title:=Mortgage Calculator")
Set MyWebEdit=WebEdit("name:=param[homevalue]")
'Set Num_Ber=100000
'Updated by test maintenance run
'Browser("name:=Mortgage Calculator").Page("title:=Mortgage Calculator").WebEdit("name:=param[homevalue]").Set "100000"
Browser(MyBrowser).Page(MyPage).WebEdit(MyWebEdit).Set 100000
Browser(MyBrowser).Page(MyPage).WebEdit("name:=param[principal]").Set "80000"
Browser(MyBrowser).Page(MyPage).WebEdit("name:=param[interest_rate]").Set "5"
Browser(MyBrowser).Page(MyPage).WebEdit("name:=param[term]").Set "10"
Browser(MyBrowser).Page(MyPage).WebButton("name:=Calculate").Click
Browser(MyBrowser).Close