Saturday 9 February 2013

Descriptive programing

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 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

No comments:

Post a Comment