自动发贴代码，从vb6到vb.net

[2066]

这是vb6中的代码，测试通过
Private Sub cmdfill_click()　　'点击按钮开始发言
On Error Resume Next
Dim vdoc As IHTMLDocument2
Dim vTag

Dim i As Integer
If Not brow.Busy Then '如果下载完成，就执行下面程序
Set vdoc = brow.Document　　'在vb.net中该如何定义？？？？？？？？
For i = 0 To vdoc.All.Length - 1 '检测所有标签
If UCase(vdoc.All(i).tagName) = "INPUT" Or UCase(vdoc.All(i).tagName) = "TEXTAREA" Then '找到input标签
Set vTag = vdoc.All(i)
If vTag.Type = "text" Or vTag.Type = "password" Then '看看是不是我们需要的
Select Case vTag.Name
Case "name"
vTag.Value = strUser　　'这是字符串变量，下同
Case "passwd"
vTag.Value = strPass
Case "subject" '写标题，不同的网页表单，vTage.name的值不同，要查看网页源码并根据实际更改?下同?
vTag.Value = strSub
End Select

ElseIf vTag.Name = "body" Then
vTag.Value = strBody

'ElseIf vTag.Type = "submit" And vTag.Value = "发表" Then '找到发表按钮。
' vTag.Click

End If
End If
Next i

vdoc.Forms(0).submit　'也可以用这句来提交表单
End If
Else
Exit Sub
End Sub








以上代码用vb.net 该如何改写？比如，该如何定义变量vdoc?vtag?

[myhex]

我不熟这个，但我想原理基本一样。你无非是找到几个input或textarea字段，然后记下它的name，然后向form的action段post你要发的内容和一些相关字段吧。。可以用regular express+webclient实现吧。不知道能不能给你帮助，见笑了。

[2066]

谢谢myhex(小乙)
　　
　　如何定义vdoc为html document变量？我对vb.net的类，继承，等还不是很熟悉。vb.net中已不能定义vdoc As IHTMLDocument2了，那该如何定义呢？

[2066]

哪位大侠百忙中出手相助？

[8620]

dim vdoc as object