百度贴吧发贴机编写教程

先一楼上完成图。

这次要写的是一个发贴（防屏蔽）机，那么我们先要了解通过网页版贴吧发帖的时候浏览器都向百度的服务器发送了哪些信息。下面请大家和我一起做，打开浏览器，进入昌维吧，然后点一下喜欢本吧这样的话就不会要验证码（好吧我承认其实是来拉会员的，不过确实你不点喜欢本吧的话那么就要验证码这样这个程序就没办法发帖了，因为我还没处理好验证码的问题），在最底下的发帖框输入好要发帖的内容，然后此时千万先别点发帖，先按f12，然后选择network（chrome是这个英文，其他浏览器的请自行百度），然后按图片上那个小圆点，等他变成红色之后就可以点发帖了

为什么要点那个红点的原因：因为百度发帖并不是一个ajax无刷新的过程（强烈鄙视百度贴吧在web2.0时代还不用ajax），所以发帖之后页面会刷新一下，然后network里面的的数据包就会全部清空，点那个小点就是为了让页面刷新之后就不会清空内容。

发完贴之后我们仔细看那个network里面有很多数据包，到底哪个才是发帖的数据包呢？我们知道发帖都是向服务器提交大数据的过程，一般都是POST方式提交，所以我们只要找method里面是POST的即可

OK如图所示我们活捉一个POST数据包，那么点开来看看吧

打开来之后我们主要观察Form Data这里面，这就是向服务器POST的数据

其中我们可得知kw是贴吧名称，title是标题，content是内容，还有一个fid这是贴吧id，这个等会儿告诉你们获取办法（bug吧的@niubaility 没上线我还没问到），然后还一个tbs是一个用于防御csrf攻击的token，在http://tieba.baidu.com/dc/common/tbs这里面获取，然后floor_num=0&rich_text=1&tid=0&ie=utf-8这些参数都可以照抄。这些就是需要post的数据。我们用datastr = "ie=utf-8&kw=" + Text6 + "&tbs=" + tbs + "&title=" + Text4 + "&content=" + Text5 + "&fid=" + fid + "&floor_num=0&rich_text=1&tid=0"这行语句拼接起来，用于给winhttp对象准备好post数据

其中tbs的获取代码为截图中的，原理很简单，向http://tieba.baidu.com/dc/common/tbs这个url发送get请求，然后获取返回内容，分割出字符串。然后还是像上一次教程里面一样，winhttp里面设置好头部，然后拼接好post字符串，然后调用send方法向服务器发包即可

request.open "POST", "http://tieba.baidu.com/f/commit/thread/add", False
request.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
request.setRequestHeader "Accept", "*/*"
request.setRequestHeader "Referer", "http://tieba.baidu.com/" '提交来路
request.setRequestHeader "Accept-Language", "zh-cn"
request.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2;)"
request.setRequestHeader "Connection", "Keep-Alive"
datastr = "ie=utf-8&kw=" + Text6 + "&tbs=" + tbs + "&title=" + Text4 + "&content=" + Text5 + "&fid=" + fid + "&floor_num=0&rich_text=1&tid=0"
Debug.Print datastr
request.send datastr '发送数据
Text3 = Text3 + request.getAllResponseHeaders + vbCrLf + request.responseText + vbCrLf + vbCrLf '返回数据

这个是发帖的代码，当错误码为0表示发帖成功
给大家看看调试结果

如图，昌维吧那个标题为text4，内容为text5的帖子就是用我这个工具发出来的

原帖在黑客组吧首发http://tieba.baidu.com/p/3740698706 转载请注明出处以及作者@昌维001 谢谢！~