VB网页填表
我想实现网页的填表，但是貌似遇到疑难杂症，

我使用的是

 
onblur="RegisterV2.keyup.securityCode();" maxlength="10" /> </span>
<div class="msg">
<span class=""></span>
</div>
</div>
<div class="fi cs-clear fi-yzm" style="margin: 0 0 0 100px;">
<span class="textbox cs-clear"><a
href="javascript:RegisterV2.changeSecurityCode()" title="看不清?换一张?"><img
src="/verify/register.do" id="imgSecurityCode" height="70" />
</a>
</span>
</div>
<div class="fi cs-clear fi-yzm" style="margin: 0 0 5px 100px;">
<span>看不清?<a
href="javascript:RegisterV2.changeSecurityCode()" title="看不清？?换一张?">换一张?</a>
</span>
</div>

[解决办法]
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

WebBrowser1.Navigate("http://www.facebook.com/index.php?lh=ea4cfd7f7252005e2be3d69c05a3f22c")

End Sub


'按Click事件
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

'填
WebBrowser1.Document.GetElementById("email").SetAttribute("value", "您的")

'填密
WebBrowser1.Document.GetElementById("pass").SetAttribute("value", "您的密")


For Each he As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
If he.GetAttribute("type") = "submit" And he.GetAttribute("value") = "登入" Then
he.InvokeMember("click") '行Click作
End If


Next

End Sub
[解决办法]
vb.net跟vb.60的写法不一样，你第一句赋值的时候就写错了 要用
WebBrowser1.Document.GetElementById("pass").SetAttribute("value", "您的密")

[解决办法]
您好，我想写的就是VB的代码。不是vb.net，请问要怎么做
[解决办法]

引用:

vb.net跟vb.60的写法不一样，你第一句赋值的时候就写错了 要用
WebBrowser1.Document.GetElementById("pass").SetAttribute("value", "您的密")

您好，我想写的就是VB的代码。不是vb.net，请问要怎么做
[解决办法]
没有高手可以解答吗