关于WebBrowser1控件的提交有关问题

关于WebBrowser1控件的提交问题
WebBrowser1 对 提交 按钮，
用下列代码执行没有问题
<input type="submit" class="best-submit" name="signIn" id="signIn"  value="Sign in"> 

Dim doc
Set doc = WebBrowser1.Document

For i = 0 To doc.All.length - 1
If (LCase(doc.All(i).tagname)) = "input" Then
If (LCase(doc.All(i).Name)) = "signin" Then
WebBrowser1.Document.All(i).Click
End If
End If

Next i

我下面对 send 提交按钮，做了一些类似的代码，怎么不执行呀
 <div Name="mysend" id="my-send" class="my2-send">Send</div>

Dim doc
Set doc = WebBrowser1.Document

For i = 0 To doc.All.length - 1
If (LCase(doc.All(i).tagname)) = "div" Then
If (LCase(doc.All(i).Name)) = "mysend" Then
WebBrowser1.Document.All(i).Click
End If
End If

Next i

忘大家指点一下，难道 input 和div会是本质的不同吗，我的后面的代码 该怎么改呀。

[解决办法]
div是标签

<input type="submit" class="best-submit" name="signIn" id="signIn" value="Sign in">  这是一个按钮
[解决办法]

引用:

引用:

div是标签

<input type="submit" class="best-submit" name="signIn" id="signIn" value="Sign in"> 这是一个按钮


请哥们指点一下，我的标签，该怎么样 修改代码，点击 Send 成功呀。多谢了

你点这个Send标签有什么用，点了又没反应，只是一个简单的文字标签，除非有onclick事件

查看更多 下一篇