'名称：贴吧自动签到工具 v2
'作者：次碳酸钴
'时间：2012/8/6
'用户COOKIE**,可以多个帐号签到
c=Array(_
"第一个帐号的COOKIE",_
"第二个帐号的COOKIE"_
)
'签到贴吧**
s=Array("当歌","推你")
'↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑设置好上面两个参数
For Each i In c
k=GetTbs(i)
If k<>"" Then
For Each j In s
Sign i,j,k
WSH.Sleep 1000
Next
End If
Next
MsgBox "完成"
Function Sign(cookie,tbn,tbs)
With CreateObject("MSXML2.ServerXMLHTTP")
.Open "POST","http://tieba.baidu.com/sign/add",False
.SetRequestHeader "Content-Type","Application/x-www-form-urlencoded"
.SetRequestHeader "Cookie",cookie
.Send "ie=utf-8&kw="&URLEncode(tbn)&"&tbs="&tbs
Sign=.ResponseText
End With
End Function
Function GetTbs(cookie)
With CreateObject("MSXML2.ServerXMLHTTP")
.Open "GET","http://tieba.baidu.com/dc/common/tbs",False
.SetRequestHeader "Cookie",cookie:.Send
Set m=RegExp("\w{26}").Execute(.ResponseText)
End With
If m.Count<>0 Then GetTbs=m(0)
End Function
Function RegExp(s)
Dim re
Set re=New RegExp
re.Pattern=s
re.Global=True
Set RegExp=re
End Function
Function URLEncode(u)
With CreateObject("ScriptControl")
.Language="JavaScript"
URLEncode=.Run("encodeURIComponent",u)
End With
End Function

3L说用法，
首先桌面新建一个文本文档，然后把2L的代码全部复制到里面。（上面是注释 感谢JAVA吧大神次碳酸钴的“随手写"= =
然后下面要设置一下，登录你的百度账号。
然后到百度首页 地址栏输入javascript:alert(document.cookie);就可以看到。。。主要是BDUSS这个字段。。
复制 粘贴到代码中 第一个帐号的COOKIE 替换他
可以设置多个账号的COOKIE 用双引号
下面的贴吧设置不用说了吧= = 一看就懂 想替换的可以换成自己喜欢的。
设置好了 保存 这时候记住
把文件名 新建文本文档.txt 改成 定时签到.vbs （后缀很重要 一定要改VBS
然后完成了
WINDOWS有个东西叫计划任务 具体的百度，很详细 我就不多说了。
把这个文件放进去 设置00:00执行
然后就成功抢签到了


@不能停止爱你
@legoin
@H中产生的友谊
来个精品呗 推吧第一个技术贴。

设置好的例图

电脑给。

…

。。0 0

还是看不懂..

没兴趣抢第一

看不懂的说、