VB源码 按ID点击网页元素

'┏〓〓〓〓〓〓〓〓〓 ClickDocById,start 〓〓〓〓〓〓〓〓〓┓
'［简介］：
'按ID点击网页元素
Function ClickDocById(Doc As HTMLDocument,ById As String) As Boolean
   '[mycode_id:1883],edittime:2011-6-26 下午 12:26:50
   On Error GoTo Err
   Doc.getElementById(ById).Click
   ClickDocById = True
   Exit Function
   Err:
End Function
'┗〓〓〓〓〓〓〓〓〓  ClickDocById,end  〓〓〓〓〓〓〓〓〓┛