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

lianghengchao 2010-05-01 06:32:23





Private Sub Command1_Click()

WebBrowser1.Navigate "http://www.baidu.com"

End Sub



Private 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"了都还是不得！请高手赐教！

...全文

94 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

haodizhiii 2010-10-01

打赏
举报

写那么多干嘛，
兄弟这个是论坛下次记得要给账户和密码啊免得我又要去注册，，

两句代码搞定了（包括提交)
WebBrowser1.Document.All.Item("fastpostmessage").Value = "填写的内容sdfsdf"
WebBrowser1.Document.All.Item("fastpostsubmit").Click