路过的救命啊 —— webbrowser 控件 网页元素click 方法的问题

Question

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
webbrowserclickvb

Answer 1

网页操作？建议采用POST方式。网址是什么？或站内信，帮你分析下。

Answer 2

去掉那个vdoc.All(i).select
，看看？

Answer 3

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

Answer 4

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

Answer 5

晕啊，不知道怎么给分。
解决了，实在没办法只好重新抓了下包，不知道谁改了网页了，原来是这个网页botton1提交后写表的，后来改为下一个页面的另一个botton了。