作者cff0000ff (screct)
看板Visual_Basic
标题[VB6 ] 有关WebBrowser的一些问题
时间Tue Jun 14 17:41:15 2011
请问各位一下
在VB 2010中，我制作一个表单上的按钮A
希望当我按下这个按钮A後
就以WebBrowser.Navigate(网址B) 去连结到网址B
(网址B的网页中,包含一个图示C,)
并且在连结的同时达到, 按下图示C的功能(启动某项设备开关)
但是却一直无法成功启用
我的code如下:
Dim theElementCollection As HtmlElementCollection =
WebBrowser1.Document.GetElementsByTagName("IMG")
For Each curElement As HtmlElement In theElementCollection
If curElement.GetAttribute("src").ToString = "on.gif" Then
curElement.InvokeMember("click")
End If
Next
图示C的原始码部分如下:
<td> <input type='image' src = 'on.gif' onclick="newAJAXCommand('3?' +
document.getElementById('ONString').value + '=I=3')"></td>
如果改成按下网页中的另一个按钮D
原始码为:
<tr><td><input type='button' class='smbuttons' value="Save and return"
onclick="UpdateAllandgoback();"> </td>
使用以下code:
Dim theElementCollection As HtmlElementCollection =
WebBrowser1.Document.GetElementsByTagName("input")
For Each curElement As HtmlElement In theElementCollection
If curElement.GetAttribute("value").ToString = "Save and return"
Then
curElement.InvokeMember("click")
End If
Next
即可成功执行
想请问这是因为button和image之间的差异吗?
若是这样, 该如何修改code呢??
谢谢各位!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.116.72.91
※ 编辑: cff0000ff 来自: 140.116.72.91 (06/14 17:41)
※ 编辑: cff0000ff 来自: 140.116.72.91 (06/14 17:44)