一个自动填表并提交问题

[wanyag]

一个自动填表并提交问题
比如 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 ,那么我怎么才能实现 自动添入内容并提交,请高手帮忙啊!

[浪客]

可以给input加属性

<input type="text" id="Ipt1" name="Ipt1">
改为
<input type="text" id="Ipt1" name="Ipt1" value="123456">

那么它的默认值就是123456.。

[蒋晟]

枚举所有元素找到支持IHtmlInputElement的，设置其value属性，然后找所属的forum，调用submit方法

[zzyong00]

Private Sub Form_Load()
WebBrowser1.Navigate "ss.htm"

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = "ss.htm" Then
 WebBrowser1.Document.parentWindow.frames("myframe").Document.All("Ipt1").Value = "1234"
 WebBrowser1.Document.parentWindow.frames("myframe").Document.All("submit1").Click
End If
End Sub

[wanyag]

Private Sub Form_Load()
WebBrowser1.Navigate "ss.htm"

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = "ss.htm" Then
WebBrowser1.Document.parentWindow.frames("myframe").Document.All("Ipt1").Value = "1234"
WebBrowser1.Document.parentWindow.frames("myframe").Document.All("submit1").Click
End If
End Sub

拒绝访问

[meiZiNick]

支持搂主，收藏

[CathySun118]

参考：http://bbs.huistd.com/detail.php?id=207&pagenum=0