VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2087|回复: 2

[讨论] 如何自动填表 自动发贴 百度贴吧?

[复制链接]
发表于 2015-11-11 15:33:28 | 显示全部楼层 |阅读模式
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 "title "

vTag.Value = "myemail@home.com"       '这里写入你的e-mail

Case "description "

vTag.Value = "description"       '这里写入你的密码

Case "tags"
vTag.Value = "关键字.关键字"

End Select

ElseIf vTag.Type = "submit " Or vTag.Name = "SUB " And vTag.Value = "发表 " And vTag.Title = "Ctrl+Enter快捷发表 " Then

'找到提交按钮

MsgBox "o"

vTag.Click   '点击提交了,一切都OK了

End If

End If

Next i


End Sub

Private Sub Command2_Click()
MsgBox ""
End Sub

Private Sub Form_Load()


'WebBrowser1.Navigate "http://tieba.baidu.com/p/4153589944"

WebBrowser1.Navigate "http://www.youku.com/v/upload"
End Sub


这个代码 在百度上似乎 无效
发表于 2015-11-12 17:19:13 | 显示全部楼层
百度恶心的验证码你都解决不了滴

点评

资深的百度账号是不需要验证的。  发表于 2015-11-13 09:52
回复 支持 反对

使用道具 举报

发表于 2015-11-13 09:53:16 | 显示全部楼层
知道也不帮楼主,发广告贴什么的最可恶了。

点评

然而都已经发了 ...  发表于 2015-11-14 01:08
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-6-30 18:26

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表