路过的 —— webbrowser 控件 网页元素click 方法的有关问题

路过的救命啊 —— webbrowser 控件 网页元素click 方法的问题
vb6+webbrowser自动提交前台为asp(有java的调用)后台为sqlserver2005的表单
以前运行正常，最近提交表单总是出现2条记录。写入的表没触发器，存储过程没看；单步跟踪和将vdoc.All(i).Click去掉用手工点击按钮提交都是正常的1条记录。


按钮用HttpAnalyzer分析是：<input type="submit" name="Button1" value="确定" id="Button1" class="btn" />
在vb6监视 type="submit" tagname="INPUT" Value = "确定"

代码：

…… 遍历 填写表单就不复制了……

提交的代码：
Set vdoc = WebBrowser1.Document
For i = 0 To vdoc.All.length - 1
    If UCase(vdoc.All(i).tagname) = "INPUT" Then
        If vdoc.All(i).Type = "submit" Then
            If vdoc.All(i).Value = "确定"  Then
                vdoc.All(i).select
                vdoc.All(i).Click
                Exit For
            End If
        End If
    End If
Next i
webbrowser click vb
[解决办法]
网页操作？建议采用POST方式。网址是什么？或站内信，帮你分析下。
[解决办法]
去掉那个vdoc.All(i).select
，看看？
[解决办法]

WebBrowser1.Document.getelementbyid("Button1").Click

Dim btnSubmit As HtmlElement
btnSubmit = WebBrowser1.Document.GetElementById("Button1")
                    btnSubmit.InvokeMember("click")