关于vb中webbrowser控件如何提交的问题？

Question

<!--HTML-->
<div class="Comment1">              
<div><textarea  id="Area2"></textarea></div>
<div class="input" id="text2"><strong class="txt2" id="word2">还可以输入300个汉字</strong></div>
<div class="btn"><a href="javascript:;" onclick="return false;" class="submit_btn Btn"><cite id="submit_btn">提交</cite></a></div>
</div>
<!--end HTML-->Private Sub Command1_Click()    On Error GoTo a:
    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 '找到input标签
            Set vTag = vDoc.All(i)
            If vTag.Type = "submit" Then   '找到发表按钮。
                vTag.Select '也可以没有这个
                vTag.Click '点击提交了，一切都OK了
            End If
        End If
    Next i
'***********************************
a:     Exit Sub
End Sub
问题：请问各位高手，提交按钮好像是CSS控制的，就是不知道怎么提交了，VB代码中**处代码不会写了。多谢帮助了~~~~

Answer 1

你的代码好像不完整，既然要执行submit，那么一定有一个form，你完全可以使用
一、如果form有ID，Me.WebBrowser1.Document.getElementById("你的form的id").submit。
以下假设只有一个form：
二、如果form有name，Me.WebBrowser1.Document.getElementsByName("你的form的名字")(0).submit
三、如果form没有名字也没有id，Me.WebBrowser1.Document.getElementsByTagName("FORM")(0).submit。
当然，如果form有多个，则自己判断要提交的是哪个。

Answer 2

哦，我有专门查看了，
这个页面就是没有form的，所以我也很郁闷的~~~
要是有form倒是容易解决的。参考新浪的留言页面
http://profile.blog.sina.com.cn/wall.php?uid=1243741630

Answer 3

可能你说的对吧，
不过我已经搞定了，
仍然谢谢你~~~
        If vDoc.getElementsByTagName("cite")(i).id = "submit_btn" Then   '找到cite标签
            vDoc.getElementsByTagName("cite")(i).Click
        End If