form method="POST" action="http://chen/dll/chat/chatmain.exe/RegUser">
<p>请填写下面表单注册（*项为必添项）</p>






********************************************************************************************************



Private Sub Command1_Click()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then '看看是不是我们需要的
Select Case vTag.Name
Case "ti" '写标题，不同的网页表单，vTage.name的值不同，要查看网页源码并根据实际更改?下同?
Dim s As String
s = Int(Rnd * 99) & Int(Rnd * 99) & Int(Rnd * 99) & Int(Rnd * 99) & Int(Rnd * 99)
vTag.Value = "欢迎各位游戏迷！" + s + ""
End Select
End If
If vTag.Type = "textarea" Then '写发言内容，textarea表示文本区域
Select Case vTag.Name
Case "co" 'co是文本区域的name，从网页源码中查知。
vTag.Text = "你的文章内容"
End Select
End If
If vTag.Type = "text" Then '看看是不是我们需要的
Select Case vTag.Name
Case "str1" '写标题，不同的网页表单，vTage.name的值不同，要查看网页源码并根据实际更改?下同?
vTag.Value = "http://www.tlt55l.net/images/logo.gif"
End Select
End If

If vTag.Type = "submit" And vTag.Value = "发表帖子" Then '找到发表按钮。
vTag.Select '也可以没有这个
vTag.Click '点击提交了，一切都OK了
End If


End If
Next i
End Sub

点击Command1就可以自动填表并提交了。

但是<textarea name="co" cols="65"></textarea>表里就写不进去，可能是属性的问题，不知道那位高手指点一下

谢谢，  大小写没有看清楚，真不好意思