'===============隐式创建描述性编程=========================
'Browser(":=").Page(":=").Sync
'Browser(":=").Navigate"http://www.baidu.com/"
'Browser(":=").Page(":=").WebEdit("type:=text","name:=wd").Set ("软件测试")
'Browser(":=").Page(":=").WebButton("type:=submit","name:=百度一下").Click
'Browser(":=").Page(":=").Sync
'Browser(":=").Close
'===============显式创建描述性编程=================
Dim bro,pag,wdt,btn
Set bro = descrīption.Create : Set pag = descrīption.Create : Set wdt = descrīption.Create :Set btn = descrīption.Create
bro("").value = ""
pag("").value = ""
Browser(bro).page(pag).Sync
Browser(bro).Navigate"http://www.baidu.com"
wdt("type").value ="text"
wdt("name").value ="wd"
Browser(bro).Page(pag).WebEdit(wdt).Set "软件测试"
btn("type").value = "submit"
btn("name").value = "百度一下"
Browser(bro).Page(pag).WebButton(btn).Click
Browser(bro).Page(pag).Sync
Browser(bro).Close