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  〓〓〓〓〓〓〓〓〓┛

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!