'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' METHOD1 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Set br = description.Create
' Set pg = description.Create
' Set usertext = description.Create
' Set click = description.Create
' br("name").value = "Google"
' pg("title").value = "Google"
' usertext("type").value = "text"
' click("name").value = "Google Search"
' browser(br).page(pg).webedit(usertext).Set "chandu"
' browser(br).page(pg).webbutton(click).Click
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' METHOD2 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' username = datatable("username",dtglobalsheet)
' msgbox username
'' browser("name:=Google").page("title:=Google").webedit username
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' METHOD3 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'browser("name:=Google").page("title:=Google").webedit("type:=text").Set "chandu"
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' METHOD4 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set objlink = description.Create
objlink("micclass").value = "link"
Set chlink = browser("name:=Google").page("title:=Google").ChildObjects(objlink)
linkcount = chlink.count
For i = 0 to linkcount -1
datatable.SetCurrentRow(i +1)
linkname = chlink(i).getroproperty("name")
datatable("username",dtglobalsheet) = linkname
Next
' Set br = description.Create
' Set pg = description.Create
' Set usertext = description.Create
' Set click = description.Create
' br("name").value = "Google"
' pg("title").value = "Google"
' usertext("type").value = "text"
' click("name").value = "Google Search"
' browser(br).page(pg).webedit(usertext).Set "chandu"
' browser(br).page(pg).webbutton(click).Click
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' METHOD2 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' username = datatable("username",dtglobalsheet)
' msgbox username
'' browser("name:=Google").page("title:=Google").webedit username
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' METHOD3 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'browser("name:=Google").page("title:=Google").webedit("type:=text").Set "chandu"
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' METHOD4 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set objlink = description.Create
objlink("micclass").value = "link"
Set chlink = browser("name:=Google").page("title:=Google").ChildObjects(objlink)
linkcount = chlink.count
For i = 0 to linkcount -1
datatable.SetCurrentRow(i +1)
linkname = chlink(i).getroproperty("name")
datatable("username",dtglobalsheet) = linkname
Next
No comments:
Post a Comment