VB点击网页按钮问题

我想点击网页的一个按钮,但是找了半天试了半天也是点击不成功,网页代码是
<td></td>
</tr>
<tr>
<td></td>
<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>
</tr>
</table>
</form>
</div>
<div class="login_right">
<h4>友情提示:<br />如果您还不是会员,请注册</h4>
<p>注册之后你就可以</p>
<ol>
我是用的WeBer1.Document.getElementById("Submit").Click '我是用的这句代码点击的,

1 下面的代码放在窗体顶部,在所有过程声明的前面
Dim WithEvents MyDom As MSHTML.HTMLDocument

2 你的语句WeBer1.Document.getElementById("Submit").Click
用下边两句替换它

myDom=WebBrowser1.Document.getElementsByName("Submit")
mydom.onclick
温馨提示:内容为网友见解,仅供参考
第1个回答  2013-08-07
1 在窗体头部定义 Dim WithEvents MyDom As MSHTML.HTMLDocument

2 其次找到element对象 myDom=WebBrowser1.Document.getElementsByName("Submit")
最后执行onclick : mydom.onclick追问

小弟刚学VB看不懂,麻烦说清楚一点,最好给出代码

追答

给你的可不就是代码吗?
1 下面的代码放在窗体顶部,在所有过程声明的前面
Dim WithEvents MyDom As MSHTML.HTMLDocument

2 你的语句WeBer1.Document.getElementById("Submit").Click
用下边两句替换它

myDom=WebBrowser1.Document.getElementsByName("Submit")
mydom.onclick

第2个回答  2013-08-07
你没有给你的按钮设置ID,却又使用getElementById,当然找不到了,要么设置按钮的ID,要么改为 getElementByName,建议设置按钮ID,在兼容性方面会好些追问

小弟刚学VB看不懂,麻烦说清楚一点,最好给出代码,网页代码是无法修改的

请问VB大神们,为什么我编程点击网页上的这个浏览按钮会弹出错误,怎么解 ...
Item.Select '(这个对象是没有Select方法的,所以出错)Item.Focus Sendkeys ("{ENTER}") '(这个括号也是画蛇添足)

VB点击网页按钮问题
1 下面的代码放在窗体顶部,在所有过程声明的前面 Dim WithEvents MyDom As MSHTML.HTMLDocument 2 你的语句WeBer1.Document.getElementById("Submit").Click 用下边两句替换它 myDom=WebBrowser1.Document.getElementsByName("Submit")mydom.onclick ...

vb 按钮 打开网页
首先,打开你的VB项目,选择或创建一个适当的窗体,然后在窗体上添加一个命令按钮。通常,命令按钮可以使用快捷键“Alt + 1”快速访问。接着,双击命令按钮以跳转到代码编辑器。在代码编辑器中,输入以下代码:vba Private Sub Command1_Click() On Error Resume Next Dim o As Object Set o = Crea...

关于vb点击网页上图片按钮的代码。。我试了好几种点击方式都不行...
可以试试指定id属性,如果网页代码改不了,可以试试用getElementsByName或getElementsByTagName两种方法,通过集合索引进行访问.比如 WebBrowser1.Document.getElementsByName("submit")(0).Click

VB 点击命令按钮代码问题?
解决VB点击命令按钮代码问题,需要添加一个label的Change事件。例如,当label显示数值5时,改变Text1中的文字颜色为红色。具体代码如下:在Private Sub Label1_Change()方法中,编写以下内容:若Label1的Caption属性等于5,则执行以下操作:Text1的ForeColor属性设置为vbRed,实现文字颜色变为红色。通过此方法...

VB中,如何点击一个按钮后,弹出一个网页?
假设第一个窗体名为form1,第二个窗体名为form2。在form1窗体中添加个按钮command1。按钮单击事件的代码为:private sub command1_click()form2.show '用show方法加载并且显示名为form2的窗体 end sub show 方法后面省略了两个参数即form2.show 0或form2.show 1此参数可缺省。可自行运行验证 ...

vb 如何实现自动点击网页中的按钮
i)If vTag.Type = "button" And vTag.Value = "最大值" Then '找到确定按钮。vTag.Select '也可以没有这个 vTag.Click '点击提交了,一切都OK了 End If End If Next i End Sub 但不是对所有网页均有用,有些网页调用其它页面或JS的,就无法使用了。只能用模拟鼠标点击等方法实现了。

vb6使用Webbrowser1,点击网页里面的按钮,触发网页的js时,触发vb中定义...
HTM文件只负责布局,执行代码都集中到VB程序里。还有个办法是找到mICustomDoc.SetUIHandler Me的逆操作,文本框(如果能)取得焦点,就采取该逆操作,使得文本框能够输入。文本框取得焦点的时候最好添加个遮布来屏蔽页面其他元素,如果这样,文本框也就不如没有好。

...嘛?我设计网页自动登录代码,自动点击网页标签按钮没反应啊。_百度知...
对于一般的机器,用vb的执行命令,执行【c:\\ProgramFiles\\InternetExplorer\\iexplorer.exe网址】应该就行了,或者加个读注册表取出默认浏览器的路径。。。这个路径是手打的,没准打错了,检查一下。我不清楚vb的库函数,但是肯定是有一个函数用来执行其他外部程序的。

vb点击网页按钮后,弹出提示框,如何用vb点击确定按钮
模拟按键试试 先延时1秒,然后发送回车键或ESC键 Call keybd_event(13, 0, 0, 0) '模拟按下回车键 ' Call keybd_event(27, 0, 0, 0) '模拟按下ESC键

相似回答
大家正在搜