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

2066 2003-12-08 09:04:00
这是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?
...全文
61 4 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
8620 2003-12-31
dim vdoc as object
  • 打赏
  • 举报
回复
2066 2003-12-09
哪位大侠百忙中出手相助?
  • 打赏
  • 举报
回复
2066 2003-12-08
谢谢myhex(小乙)
  
  如何定义vdoc为html document变量?我对vb.net的类,继承,等还不是很熟悉。vb.net中已不能定义vdoc As IHTMLDocument2了,那该如何定义呢?

  • 打赏
  • 举报
回复
myhex 2003-12-08
我不熟这个,但我想原理基本一样。你无非是找到几个input或textarea字段,然后记下它的name,然后向form的action段post你要发的内容和一些相关字段吧。。可以用regular express+webclient实现吧。不知道能不能给你帮助,见笑了。
  • 打赏
  • 举报
回复
相关推荐
发帖
VB
加入

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
申请成为版主
帖子事件
创建了帖子
2003-12-08 09:04
社区公告
暂无公告