博客分类：
VB的webbrowser点击网页上的按钮链接问题
日
　　///////////////实现点击网页上的按钮
　　Private Sub Command1_Click()
　　Dim vDoc, vTag
　　Dim i As Integer
　　Set vDoc = WebBrowser1.Document
　　For i = 0 To vDoc.All.length - 1
　　If UCase(vDoc.All(i).tagName) = "INPUT" Then
　　Set vTag = vDoc.All(i)
　　If vTag.Type = "submit" And vTag.Value = "百度一下" Then vTag.Click
　　End If
　　Next i
　　End Sub
　　///////////////VB WebBrowser1中如何点击网页文字链接
　　Dim vTag As Variant, I As Integer, vCount As Integer
　　If Web1.ReadyState = READYSTATE_COMPLETE Then
　　Set vTag = WebBrowser1.Document.getElementsByTagName("a")
　　vCount = vTag.length
　　For I = 0 To vCount - 1
　　'以下注释部分为方法之一
　　'&&&&&&&&&&& If vTag(I).innerText = "首页" Then WebBrowser1.Navigate vTag(I).href
　　If vTag(I).innerText = "首页" Then
　　Web1.Document.All.Tags("a")(I).Click
　　End If
　　Next
　　End If
coub63coub
浏览: 5920 次
(window.slotbydup=window.slotbydup || []).push({
id: '4773203',
container: s,
size: '200,200',
display: 'inlay-fix'&>&VB 模拟点击网页按钮、输入、搜索
VB 模拟点击网页按钮、输入、搜索
上传大小：8KB
VB 模拟点击网页按钮、输入、搜索 学做插件的基本
综合评分：4
{%username%}回复{%com_username%}{%time%}\
/*点击出现回复框*/
$(".respond_btn").on("click", function (e) {
$(this).parents(".rightLi").children(".respond_box").show();
e.stopPropagation();
$(".cancel_res").on("click", function (e) {
$(this).parents(".res_b").siblings(".res_area").val("");
$(this).parents(".respond_box").hide();
e.stopPropagation();
/*删除评论*/
$(".del_comment_c").on("click", function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_invalid/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parents(".conLi").remove();
alert(data.msg);
$(".res_btn").click(function (e) {
var parentWrap = $(this).parents(".respond_box"),
q = parentWrap.find(".form1").serializeArray(),
resStr = $.trim(parentWrap.find(".res_area_r").val());
console.log(q);
//var res_area_r = $.trim($(".res_area_r").val());
if (resStr == '') {
$(".res_text").css({color: "red"});
$.post("/index.php/comment/do_comment_reply/", q,
function (data) {
if (data.succ == 1) {
var $target,
evt = e || window.
$target = $(evt.target || evt.srcElement);
var $dd = $target.parents('dd');
var $wrapReply = $dd.find('.respond_box');
console.log($wrapReply);
//var mess = $(".res_area_r").val();
var mess = resS
var str = str.replace(/{%header%}/g, data.header)
.replace(/{%href%}/g, 'http://' + window.location.host + '/user/' + data.username)
.replace(/{%username%}/g, data.username)
.replace(/{%com_username%}/g, data.com_username)
.replace(/{%time%}/g, data.time)
.replace(/{%id%}/g, data.id)
.replace(/{%mess%}/g, mess);
$dd.after(str);
$(".respond_box").hide();
$(".res_area_r").val("");
$(".res_area").val("");
$wrapReply.hide();
alert(data.msg);
}, "json");
/*删除回复*/
$(".rightLi").on("click", '.del_comment_r', function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_comment_del/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parent().parent().parent().parent().parent().remove();
$(e.target).parents('.res_list').remove()
alert(data.msg);
//填充回复
function KeyP(v) {
var parentWrap = $(v).parents(".respond_box");
parentWrap.find(".res_area_r").val($.trim(parentWrap.find(".res_area").val()));
评论共有7条
不好，不是想要的。
测试有用,非常好的一个例子
不错，正好有我需要了解的
VIP会员动态
CSDN下载频道资源及相关规则调整公告V11.10
下载频道用户反馈专区
下载频道积分规则调整V1710.18
spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip
资源所需积分/C币
当前拥有积分
当前拥有C币
输入下载码
为了良好体验，不建议使用迅雷下载
VB 模拟点击网页按钮、输入、搜索
会员到期时间：
剩余下载个数：
剩余积分：0
为了良好体验，不建议使用迅雷下载
积分不足！
资源所需积分/C币
当前拥有积分
您可以选择
程序员的必选
绿色安全资源
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
您的积分不足，将扣除 10 C币
为了良好体验，不建议使用迅雷下载
无法举报自己的资源
你当前的下载分为234。
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可返还被扣除的积分
被举报人：
xxhuang002
请选择类型
资源无法下载 （ 404页面、下载失败、资源本身问题）
资源无法使用 （文件损坏、内容缺失、题文不符）
侵犯版权资源 （侵犯公司或个人版权）
虚假资源 （恶意欺诈、刷分资源）
含色情、危害国家安全内容
含广告、木马病毒资源
*投诉人姓名：
*投诉人联系方式：
*版权证明：
*详细原因：
VB 模拟点击网页按钮、输入、搜索VB点击网页按钮问题_百度知道
VB点击网页按钮问题
我想点击网页的一个按钮,但是找了半天试了半天也是点击不成功,网页代码是&td&&/td&&/tr&&tr&&td&&/td&&tdcolspan=&2&&&inputtype=&submit&name=&Submit&value=&&class=&login_btn&tit...
我想点击网页的一个按钮,但是找了半天试了半天也是点击不成功,网页代码是
&td colspan=&2&&&input type=&submit& name=&Submit& value=&& class=&login_btn& title=&立即注册& /&
&a href=&redirect.asp& title=&用QQ账号登录，无需注册账号，登录后绑定即可&&&img border=&0& height=&42& src=&qq2.jpg& alt=&用QQ账号登录，无需注册账号，登录后绑定即可&&&/a&&/td&
&div class=&login_right&&
&h4&友情提示:&br /&如果您还不是会员，请注册&/h4&
&p&注册之后你就可以&/p&
&ol&我是用的WeBer1.Document.getElementById(&Submit&).Click
'我是用的这句代码点击的,
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
顶级网络黑客
顶级网络黑客
采纳数：416
获赞数：1151
1 下面的代码放在窗体顶部，在所有过程声明的前面Dim WithEvents MyDom
As MSHTML.HTMLDocument2
你的语句WeBer1.Document.getElementById(&Submit&).Click
用下边两句替换它myDom=WebBrowser1.Document.getElementsByName(&Submit&)mydom.onclick
采纳数：686
获赞数：1118
1 在窗体头部定义
Dim WithEvents MyDom
As MSHTML.HTMLDocument
2 其次找到element对象
myDom=WebBrowser1.Document.getElementsByName(&Submit&)
最后执行onclick :
mydom.onclick
小弟刚学VB看不懂,麻烦说清楚一点,最好给出代码
给你的可不就是代码吗？1 下面的代码放在窗体顶部，在所有过程声明的前面Dim WithEvents MyDom
As MSHTML.HTMLDocument2
你的语句WeBer1.Document.getElementById(&Submit&).Click
用下边两句替换它myDom=WebBrowser1.Document.getElementsByName(&Submit&)mydom.onclick
采纳数：621
获赞数：246
你没有给你的按钮设置ID,却又使用getElementById,当然找不到了,要么设置按钮的ID,要么改为 getElementByName,建议设置按钮ID,在兼容性方面会好些
小弟刚学VB看不懂,麻烦说清楚一点,最好给出代码,网页代码是无法修改的
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb如何获取网页按钮点击事件_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：109,647贴子：
vb如何获取网页按钮点击事件收藏
vb&如何获取网页按钮点击事件,有没有人写过啊，提供点意见
通用软件不合适,定做软件太昂贵,自己用vb.net开发太难,何不试试FoxTable?
这是一段自动登录的代码，包含按钮事件，可以参考一下，我刚用这段代码写了一个邮箱自动登录器
Function&denglu()
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&&Or&Item.Type&=&&password&&Then&'在input部分里寻找type问text或者type为password部分。大家看我给大家提取的网页源码的
&Select&Case&Item.Name&'判断比较名称
&Case&&email&&'注意：这里的text改为网页上用户名那个文本框的名字
&Item.Value&=&&&&'输入用户名
&Case&&password&&'注意：这里的password改为用密码那个文本框的名字
&Item.Value&=&&&&'输入密码
&End&Select&'如果有验证码部分。。此次还需要判断。并输入验证码~这里不讨论。
&ElseIf&Item.Type&=&&submit&&Then&'寻找提交的按钮
&Item.Click&'单击提交按钮拉~
&End&If
&End&If
&Next&i
End&Function
QQ:&可以交流
留名关注.
BHO可能行.
你这个事件可以实现断点登录，应该是没有问题的。用这种方法是解决不了，我上面的问题的。我的问题已经解决了，通过找打开网页的句柄来解决。
你的是什么网页，是什么按钮
登录百度帐号vb /WebBrowser 网页中的图片按钮怎么实现模拟点击_百度知道
vb /WebBrowser 网页中的图片按钮怎么实现模拟点击
网页源码&tdvalign=&bottom&&&INPUTtype=&image&src=&images/cx_enter.gif&width=&41&height=&16&border=0name=&imageField&&　&imgsrc=&images/cx_reset.gif&width=&41&height=&16&b...
网页源码&td valign=&bottom&&&INPUT type=&image& src=&images/cx_enter.gif& width=&41& height=&16& border=0 name=&imageField&&　&img src=&images/cx_reset.gif& width=&41& height=&16& border=&0& style=&cursor:& onClick=&MM_openBrWindow('readme.asp','','scrollbars=yes,width=500,height=400')& /&&/td&
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
来自电脑网络类芝麻团
采纳数：341
获赞数：1361
参与团队：
实现模拟网页点击按钮的功能代码如下：Private Sub Command1_Click() WB1.Navigate Text1 End Sub Private Sub Command2_Click() Timer1.Enabled = True End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() Dim vDoc, vTag Dim I As Integer Set vDoc = WB1.Document List1.Clear For I = 0 To vDoc.All.length - 1 If UCase(vDoc.All(I).tagName) = &INPUT& Then Set vTag = vDoc.All(I) If vTag.Type = &submit& Then List1.AddItem vTag.Name Select Case vTag.Name Case &btnBack& vTag.Click End Select End If End If Next I End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Dim a As Long a = a + 1 Label1 = &已经运行了& & Fix(a / 60) & &分钟& If a Mod 600 = 0 Then Command4_Click End If End Sub
youngking87
youngking87
采纳数：291
获赞数：472
看一下dom吧，web控件有一个属性叫document，我们可以使用它的函数：getelementById或者getelementByTagName来查找页面中的元素，然后调用它的click方法就ok了。
源代码为INPUT type=&image& src=&images/cx_enter.gif& width=&41& height=&16& border=0 name=&imageField&&　可否写成 vDoc.All.Item(&imageField&).Click
貌似不行哦，你用getelementByName获得这个input后，再调用不久得啦
getelementByName经常报错（“实时错误424
要求对象”）
代码贴一下吧，报错哪里附近的代码都贴一下。
If UCase(WebBrowser1.Document.All(i).Tagname) = &img& And WebBrowser1.Document.All(i).src = &enter.gif& Then '这行报错对象不支持该属性或方法
哦，因为src，不是每个对象都有src这个属性的。If UCase(WebBrowser1.Document.All(i).Tagname) = &img& then
if WebBrowser1.Document.All(i).src = &enter.gif& Then代码改成这样，已经是img后，再去判断src属性。
运行到这句就不运行了，单独运行还是报一样的错
循环那个i应该从1开始吧？
还是不行呢，我发现网页源码有好几个“enter.gif”是不是这个原因？vDoc.getelementbyid(&imageField&).Click可以运行的，但网页有两个一样的按钮都叫imageField，点击的是另一个该怎么识别我要选得那个呢网址我要的是个人的那个查询
这样吧。Dim Doc As HTMLDocumentSet Doc = Me.WebBrowser1.documentDoc.getElementsByName(&imageField&)(1).Click
个人里的提交
本回答被提问者采纳
来自知道合伙人认证行家
互联网类行家
采纳数：628
获赞数：1834
2000年接触计算机；2002年接触互联网并开始学习黑客技术；有多年编程开发经验以及信息安全项目实践经验。
Private Sub web_DocumentComplete(ByVal pDisp As Object, URL As Variant)On Error Resume Nextset aa=web.Document.getElementsByTagName(&img&)
For Each a In aa
If InStr(tmp, &reset.gif&) & 0 Then
'按图片地址识别，点它
'a.scrollIntoView
Set aa = Nothing
本回答被网友采纳
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}