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>表里就写不进去，可能是属性的问题，不知道那位高手指点一下

textarea也是用 value来设置它的值，不是 .text

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

严重求助！

如果需要找到select 里 选择性别的下拉列表 应该怎么做啊？？我选了半天都不能用！！

text1.value是不是无效的啊

问遍了全世界,竟然没有人知道 VB怎么自动填 <input type="file"...> 这栏, 请知道的高手告诉我啊,谢谢了!
我目前用的是:
if vTag.Name="FileName" then
'把文件路径拷贝到剪贴板
Clipboard.SetText "C:\1.jpg"
vTag.click '打开"选择文件"对话框
end if

然后用模拟键盘输入拷贝到文件框里,再模拟键盘输入回车....
非常痛苦啊...

VTag.focus
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "C:\1.jpg"

sendkeys可以VB直接用

如果有验证码的要怎么弄呢？

有验证码就挂了。。。
验证码不就是为了防止自动提交的么

也许。。。可以自动ocr。。。