Set brows=description.Create()
Set pages=description.Create()
Set newobj=description.Create()
OpenURL “http://www.baidu.com” ‘调用方法，打开IE，并进入百度首页
getobjs(22) ‘调用getobjs方法，设置对象newobj
newobj.set “bbbb” ‘操作对象，输入框中输入 bbbb
getobjs(11) ‘调用getobjs方法，设置对象newobj
newobj.click ‘点击webbutton进行查询。
”””””””””””””””””””””””””””””””
数据准备：Datatable中的Action1写入以下数据（本代码为测试用，可改写function，将对象保存在excel中，建立对象库）：
id type desc parent_id
11 WebButton name:=百度一下
22 WebEdit name:=wd

Function getobjs(nid)
Set brows=description.Create()
Set pages=description.Create()
Set myobj=browser(brows).page(pages)
Set newobj=description.Create()
mysheet=”Action1″
desc=getcol(nid,”desc”) ‘调用getcol方法，获取desc的内容
types=getcol(nid,”type”) ‘调用getcol方法，获取type中的值
Select Case types
case “WebEdit”
set newobj=myobj.WebEdit(desc)
case “WebButton”
set newobj=myobj.WebButton(desc)
‘还需补全其他对象的设置
End Select

End Function

Function getcol(nid,col)
mysheet=”Action1″
datatable.GetSheet(mysheet).SetCurrentRow(1)
For i=1 to datatable.GetSheet(mysheet).GetRowCount
If cstr(datatable(“id”,mysheet))=cstr(nid) Then
getcol=datatable(col,mysheet)
Exit for
End If
datatable.GetSheet(mysheet).SetCurrentRow(i+1)
Next
End Function

Public Function OpenURL(url)
Dim fso
Set fso=createobject(“scripting.FileSystemObject”)
iepath= “C:\Program Files (x86)\Internet Explorer\iexplore.exe”
If fso.FileExists(iepath) then ‘—-
systemutil.Run iepath,url
else
iepath=”c:\Program Files\Internet Explorer\IEXPLORE.EXE”
systemutil.Run iepath,url
end if
End Function