网页上的图片按钮的点击问题

Question

内网某网页登录页面的登录按钮是个图片代码类似<INPUT type=image height=27 width=110 src="images/web/denglu.jpg" >  这个句子，我试了下，这样的代码怎么不能点击，而是点的别的地方：Dim vDoc, vTag 
Dim i As Integer 
Set vDoc = WebBrowser1.Document 
For i = 0 To vDoc.All.length - 1 
set vTag= vDoc.All(i) 
if vTag.tagName="INPUT" And  vTag.Type = "image" And vTag.src = "http://www.*****.com/images/web/denglu.jpg" Then 
vTag.Click '模拟鼠标单击 
End if 
Next i 很郁闷，因为密码输入框内输入回车也等同与点击登录按钮，我原来用过if doc.all(i).name=password then
  doc.all(i).value="123"
  doc.all(i).focus
  sendkeys "{enter}" 
原来这样能成功登录，但是现在怎么不行了，很郁闷，大蛱们支下招！！！

Answer 1

用VB都是个菜鸟，还去ASP？？

Answer 2

if vTag.tagName="INPUT" And  vTag.Type = "image" And vTag.src = "http://www.*****.com/images/web/denglu.jpg" Then 
vTag.Click '模拟鼠标单击 
End if 我不建议有SRC会是一件好事,不过如果你一定要加SRC的话,我建议改成这样
if vTag.tagName="INPUT" And  vTag.Type = "image" And instr(1,vTag.src,"/denglu.jpg" ,3)>0 Then
我觉得是SRC取值出现问题,不过你也可以用MSGBOX列出所有SRC看看是否有问题.

Answer 3

用这句试试
vDoc.Forms(0).submit

Answer 4

列出所有SRC后看没有什么问题呀！！貌似正常啊！！

Answer 5

我用if vtyag.name="input" then debugprint vtag.name........src
得出tagname属第三个,但是webbrowser1.getelementsbytagname("input").(2).CLICK,却不行，求高手指点

Answer 6

其实你不要单击.直接 sendkeys "{enter}"

Answer 7

For i = 0 To vDoc.All.length - 1 
set vTag= vDoc.All(i) 
if vTag.Type = "image" Then 
vTag.Click '模拟鼠标单击 

Answer 8

不中我试了下，凡是用     "if vtag.src="XXX" then 怎么的"
这样的句子基本没反应，为什么？？？

Answer 9

我也不知啊还有这样的
<IMG onclick="FUN***********" src="images/web/denglu.jpg" > 
这样类似的句子，我用  "if vtag.src="XXX" then 怎么的"   也不中

Answer 10

vTag.Click '模拟鼠标单击
上面这一行设置断点，看看能不能执行到