WebBrowser自动填表问题请教

[lililaoj]

上次发控件区了,没人解答,我再发一次希望有人帮忙:
下面这个表单"确认密码"用webbrowser应当怎么自动输入
帐户密码：<input name="userpwd" type="hidden" value="" id="userpwd"><input name="text" type="text" class="txtstyle" onBlur="getpass(this,'userpwd')" onKeyUp="getpass(this,'userpwd')" value="" size="24" maxlength="15" autocomplete="off" class="txtstyle" /></td>
确认密码：<input name="reuserpwd" type="hidden" value="" id="reuserpwd"><input name="text" type="text" class="txtstyle" onBlur="getpass(this,'reuserpwd')" onKeyUp="getpass(this,'reuserpwd')" value="" size="24" maxlength="15" autocomplete="off" class="txtstyle" /></td>
根据name的值不成,只能根据后面的input,可是上面和下面的怎么区分,谢谢各位
现在第一个我可以用:w1.Document.getElementById("text").Value = "要写的内容"
填上,第二个实在没办法填了!

[清晨曦月]

可以用名引用,,..我BLOG上有

[wang2oo8]

Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
Set vTag = vDoc.All(i)
Select Case vTag.tagname
Case "INPUT" '这里注意大写
Select Case vTag.name
Case "username"
vTag.Value = Text1.Text
Case "text"
vTag.Value = "你想要的内容"

end select
end select
next

用你的那段代码测试成功！^_^

[lililaoj]

谢谢二楼的已经按你的办法解决,又学到了一些东西!

[crxwz]

楼上的太麻烦了：我说一下我的方法：

With WebBrowser1.Document
.All("userpwd") = "" '密码
.All("text").Item(0) = "" '第1个text
.All("reuserpwd") = "" '确认密码
.All("text").Item(1) = "" '第2个text
End With

注：上面的代码没什么扩展性，主要是说明一下引用元素的方式。
我写过一个表单内容本地化保存的子程序，那要复杂一点，但比较通用

[Ulick]

呵呵，自己写几行HTML就行了哦，在FROM中，ACTION指向那个站。

偶就见过一个这么BT的，写：<input name="userpwd" maxlength="5">。。。。。。

也没有在服务器上加个SESSION，偶用上面的方法，50个字也写进去了。