With WebBrowser1.Document.Links
For i = 0 To .length - 1
k = .Item(i).InnerText
If k = "投我一票" Then
'scripts = .Item(i).GetAttribute("href")
'WebBrowser1.Navigate scripts
'WebBrowser1.Document.parentWindow.execScript scripts, "javascript"
.Item(i).Click
'上面几种注释的方法都可以实现。
Exit For
End If
Next
End With
本文介绍了一段使用Web浏览器实现自动投票的脚本,包括遍历链接、判断目标内容并触发点击操作等关键步骤。
4093

被折叠的 条评论
为什么被折叠?



