VB模拟点击 网页中“确认”按钮的问题和POST数据问题
第一个web控件上的按钮问题网页代码如下:<divclass="items-couponskin-gray"><buttonclass="small-btn"type="...
第一个web控件上的按钮问题
网页代码如下:
<div class="items-coupon skin-gray">
<button class="small-btn" type="submit">确认</button>
<a class="small-btn" href="/shopbonusapply/shopbonus_apply.htm">取消</a>
</div>
怎么才能点击到这个确认 ,要代码 !
第二个问题
关于 inet控件 post数据的问题
我明明截取到了指定的数据包 但为什么 按数据包发送回去 网页上接收不到这个数据呢
首先谢谢您对这个问题参与 非常感谢
我从网上也搜到了类似的这个解决方法 代码相对来说稍微简单一些 ,代码如下
Dim a As Variant
For Each a In WebBrowser1.Document.GetElementsByTagName("button")
a.Click
Next
但相对来说你那个代码更灵活一些 ,尤其是在同一个网页中出现多个 button 按钮的时候 !
另外 我想知道第二个问题
inet控件POST的数据 提交后总部成功 截取的数据包有点长,如果可以我加你HI,给你详细的数据包 展开
网页代码如下:
<div class="items-coupon skin-gray">
<button class="small-btn" type="submit">确认</button>
<a class="small-btn" href="/shopbonusapply/shopbonus_apply.htm">取消</a>
</div>
怎么才能点击到这个确认 ,要代码 !
第二个问题
关于 inet控件 post数据的问题
我明明截取到了指定的数据包 但为什么 按数据包发送回去 网页上接收不到这个数据呢
首先谢谢您对这个问题参与 非常感谢
我从网上也搜到了类似的这个解决方法 代码相对来说稍微简单一些 ,代码如下
Dim a As Variant
For Each a In WebBrowser1.Document.GetElementsByTagName("button")
a.Click
Next
但相对来说你那个代码更灵活一些 ,尤其是在同一个网页中出现多个 button 按钮的时候 !
另外 我想知道第二个问题
inet控件POST的数据 提交后总部成功 截取的数据包有点长,如果可以我加你HI,给你详细的数据包 展开
4个回答
展开全部
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
With WebBrowser1.Document
For Each x In .All
If UCase(x.tagName) = "BUTTON" Then
If (x.innerText) = "确认" Then
x.Click
End If
End If
Next
End With
End Sub
With WebBrowser1.Document
For Each x In .All
If UCase(x.tagName) = "BUTTON" Then
If (x.innerText) = "确认" Then
x.Click
End If
End If
Next
End With
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
有几个检查地方:
1。是否有让前面所选信息的状态完成,再发送确认包
2。你之前在定义中有包含button么?先要指定button type=submit, 然后发送
1。是否有让前面所选信息的状态完成,再发送确认包
2。你之前在定义中有包含button么?先要指定button type=submit, 然后发送
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
一、
WebBrowser1.Document.GetElementsByTagName("button"),click
二、
我需要看你的数据包,才能给出准确答案。 可以联系企鹅53753317@qq.com
WebBrowser1.Document.GetElementsByTagName("button"),click
二、
我需要看你的数据包,才能给出准确答案。 可以联系企鹅53753317@qq.com
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
adsfaas
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询