如何用webbrowser自动点击网页中的一个JS按钮 5
<TDalign=rightwidth="15%"><Aclass=categoryNavigationonclick="set_selected_game(DOMCal...
<TD align=right width="15%"><A
class=categoryNavigation
onclick="set_selected_game(DOMCall('wbb_div_game_cat_id').value);"
href="javascript:;">刷新</A></TD>
点击这个刷新,我不知道tagname="A"后再用什么判断 展开
class=categoryNavigation
onclick="set_selected_game(DOMCall('wbb_div_game_cat_id').value);"
href="javascript:;">刷新</A></TD>
点击这个刷新,我不知道tagname="A"后再用什么判断 展开
2个回答
展开全部
两种方案,一种是屏蔽掉的部分,根据 刷新 二字
二是没有屏蔽的部分,按照链结内容。。 javascript
真不愿意回答低级别的人的提问,一般没有脑子。。
Sub gourl(canshu1)
For i = 1 To WebBrowser1.Document.All.length - 1
'If InStr(WebBrowser1.Document.All(i).innertext, "关键字!!") Then
'WebBrowser1.Document.All(i).Click
If UCase(WebBrowser1.Document.All(i).tagName) = "A" Then
If WebBrowser1.Document.All(i).HREF = canshu1 Then
WebBrowser1.Document.All(i).Click
Exit Sub
End If
End If
Next i
End Sub
二是没有屏蔽的部分,按照链结内容。。 javascript
真不愿意回答低级别的人的提问,一般没有脑子。。
Sub gourl(canshu1)
For i = 1 To WebBrowser1.Document.All.length - 1
'If InStr(WebBrowser1.Document.All(i).innertext, "关键字!!") Then
'WebBrowser1.Document.All(i).Click
If UCase(WebBrowser1.Document.All(i).tagName) = "A" Then
If WebBrowser1.Document.All(i).HREF = canshu1 Then
WebBrowser1.Document.All(i).Click
Exit Sub
End If
End If
Next i
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询