自动填写表格并提交的问题！

Question

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.baidu.com"
End SubPrivate Sub Command2_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
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case LCase(vTag.Name)
Case "wd"
vTag.Value = "admin" End Select
ElseIf vTag.Type = "submit" Then
vTag.Click
End If
End If
Next i
End Sub
这段代码我用在百度上就可以填写表格并且提交！
我用在http://bbs.gxsky.com/thread-7268323-1-1.html这个论坛怎么就不可以了？已知下面回帖的输入框ID是fastpostmessage 名称是message我把Case "wd"改成Case "message"了都还是不得！请高手赐教！

Answer 1

写那么多干嘛，
 兄弟 这个是论坛 下次记得要给账户和密码啊  免得我又要去注册，，两句代码搞定了（包括提交)
WebBrowser1.Document.All.Item("fastpostmessage").Value = "填写的内容sdfsdf"
WebBrowser1.Document.All.Item("fastpostsubmit").Click