怎么实现自动点击网页里的一个按钮?最好用vc实现
如何实现自动点击网页里的一个按钮?最好用vc实现
我想实现网页里的一个按钮点击,然后获得网页返回的数据
------解决方案--------------------
得到IHTMLDocument2接口指针,使用all方法得到IHTMLElementCollection,然后通过length,item方法遍历得到IHTMLElement,通过IHTMLElement的getAttribute等方法判断是不是需要点击的按钮项,是的话调用IHTMLElement中的click方法
------解决方案--------------------
CInternetSession模拟提交数据即可。
------解决方案--------------------
这有个vb写的,参考下
用VB的WebBrowser控件
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Set doc = WebBrowser1.Document
Dim i As Integer '设置一个长度未知变量
For i = 0 To doc.All.length - 1 '给i赋值
If UCase$(doc.All(i).tagname) = "INPUT" Then '寻找input部分
Set Item = doc.All(i)
If Item.Type = "text" Then '在input部分里寻找type为text
item.value=text1.text '为该输入框赋值
ElseIf Item.Type = "submit" Then '寻找提交的按钮
Item.Click '单击提交按钮拉~
End If
End If
Next i
End Sub
我想实现网页里的一个按钮点击,然后获得网页返回的数据
vc
html
http
------解决方案--------------------
得到IHTMLDocument2接口指针,使用all方法得到IHTMLElementCollection,然后通过length,item方法遍历得到IHTMLElement,通过IHTMLElement的getAttribute等方法判断是不是需要点击的按钮项,是的话调用IHTMLElement中的click方法
------解决方案--------------------
CInternetSession模拟提交数据即可。
------解决方案--------------------
这有个vb写的,参考下
用VB的WebBrowser控件
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Set doc = WebBrowser1.Document
Dim i As Integer '设置一个长度未知变量
For i = 0 To doc.All.length - 1 '给i赋值
If UCase$(doc.All(i).tagname) = "INPUT" Then '寻找input部分
Set Item = doc.All(i)
If Item.Type = "text" Then '在input部分里寻找type为text
item.value=text1.text '为该输入框赋值
ElseIf Item.Type = "submit" Then '寻找提交的按钮
Item.Click '单击提交按钮拉~
End If
End If
Next i
End Sub