一个自动填表并提交问题

Question

一个自动填表并提交问题   
比如   go.htm网页内容如下   
<form   id   ="form1"   name="form1"   action="into.asp"   method="post">   
请输入您的认证码:   
<input   type="text"   id="Ipt1"   name="Ipt1">   
<input   type="submit"   name="submit1"   value="提交">   
</form>   ss.htm内容如下:   
<iframe   height="50"   width="100"   name="myframe"   id="myframe"   scrolling="no"   src="go.htm"> </iframe>   问题是,现在我要在VB的WEBBROWSER控件打开   SS.HTM   ,那么我怎么才能实现   自动添入内容并提交,请高手帮忙啊!

Answer 1

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)
    On Error GoTo error:
    If url = "" Then Exit Sub
    Set webdoc = WebBrowser1.Document
    If url = "go.htm" Then
       '添入内容并提交
        webdoc.form1.ipt1.Value = ""
 　　　 webdoc.form1.submit
    End If
error:
End Sub