'┏〓〓〓〓〓〓〓〓〓 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 〓〓〓〓〓〓〓〓〓┛
VB源码 按ID点击网页元素
最新推荐文章于 2023-07-28 15:15:13 发布