如何用Python实现网页按钮的自动点击
2个回答
展开全部
内容:
<TD><INPUT TYPE="text" NAME="crystalcount" value="100" size=10 maxlength=10> <INPUT type="button" class=btn1_mouseout onmouseover="this.className='btn1_mouseover'" onmouseout="this.className='btn1_mouseout'" value="最大值" onclick="javascript:document.f1.crystalcount.value=3960"> 你现有500万</TD>
代码:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "button" And vTag.Value = "最大值" Then '找到确定按钮。
vTag.Select '也可以没有这个
vTag.Click '点击提交了,一切都OK了
End If
End If
Next i
End Sub
但不是对所有网页均有用,有些网页调用其它页面或JS的,就无法使用了。只能用模拟鼠标点击等方法实现了。
<TD><INPUT TYPE="text" NAME="crystalcount" value="100" size=10 maxlength=10> <INPUT type="button" class=btn1_mouseout onmouseover="this.className='btn1_mouseover'" onmouseout="this.className='btn1_mouseout'" value="最大值" onclick="javascript:document.f1.crystalcount.value=3960"> 你现有500万</TD>
代码:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "button" And vTag.Value = "最大值" Then '找到确定按钮。
vTag.Select '也可以没有这个
vTag.Click '点击提交了,一切都OK了
End If
End If
Next i
End Sub
但不是对所有网页均有用,有些网页调用其它页面或JS的,就无法使用了。只能用模拟鼠标点击等方法实现了。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询