VBS脚本之 吾爱破解 论坛POST登录脚本

乱码

本工具使用POST方式登录吾爱论坛，
当然关键问题在于登录需要loginhash，formhash
由于吾爱论坛是利用AJAX加载的登录页面，
所以登录信息也需要get获得。
下面给出源码。

POST登录后，能做的事情就太多了。
当然我不是鼓励大家刷帖什么的，只是技术交流。
最近在学习POST，所以见到论坛就想写脚本O(∩_∩)O~

Set http = CreateObject("Msxml2.XMLHTTP")
Set reg = New RegExp
reg.IgnoreCase = False
reg.Global = True
reg.MultiLine = True

user= "用户名"        '用户名
pwd = "密码"        '密码
qst = "1"            '安全提问编号，下面是安全问题对应编号
ans = "答案"        '安全提问答案
'0.无安全提问(回答设为空)
'1.母亲的名字
'2.爷爷的名字
'3.父亲出生的城市
'4.你其中一位老师的名字
'5.你个人计算机的型号
'6.你最喜欢的餐馆名称
'7.驾驶执照最后四位数字

html = httpGet("http://www.52pojie.cn/member.php?mod=logging&action=login&infloat=yes&frommessage&inajax=1")
reg.Pattern = "loginhash=([^""&]+)"
loginhash = reg.Execute(html).Item(0).Submatches(0)
reg.Pattern = "name=.?formhash.?\s+value=['""]?([^""]+)"
formhash = reg.Execute(html).Item(0).Submatches(0)

postUrl  = "http://www.52pojie.cn/member.php?mod=logging&action=login&loginsubmit=yes&frommessage&inajax=1&loginhash=" & loginhash
postData = "formhash=" & formhash & "&referer=http%3A%2F%2Fwww.52pojie.cn%2Fhome.php%3Fmod%3Dtask%26do%3Dview%26id%3D2&username=" & URLEncode(user) & "&password=" & URLEncode(pwd) & "&questionid=" & qst & "&answer=" & URLEncode(ans) & "&cookietime=2592000&loginsubmit=%3CSTRONG%3E%B5%C7%C2%BC%3C%2FSTRONG%3E"
html = httpPost(postUrl,postData)

If InStr(html,"欢迎您回来") Then
    'WScript.Echo "登录成功。。。"
    CreateObject("Wscript.Shell").Run "http://www.52pojie.cn/"
Else
    WScript.Echo "登录失败。。。"
End If


Function httpGet(ByVal url)
    http.open "GET", url, False
    http.send
    httpGet = http.responseText
End Function

Function httpPost(ByVal url,ByVal data)
    http.open "POST", url, False
    http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    http.send data
    httpPost = http.responseText
End Function

Function URLEncode(strURL)
    Dim I
    Dim tempStr
    For I = 1 To Len(strURL)
        If Asc(Mid(strURL, I, 1)) < 0 Then
            tempStr = "%" & Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2)
            tempStr = "%" & Left(CStr(Hex(Asc(Mid(strURL, I, 1)))), Len(CStr(Hex(Asc(Mid(strURL, I, 1))))) - 2) & tempStr
            URLEncode = URLEncode & tempStr
        ElseIf (Asc(Mid(strURL, I, 1)) >= 65 And Asc(Mid(strURL, I, 1)) <= 90) Or (Asc(Mid(strURL, I, 1)) >= 97 And Asc(Mid(strURL, I, 1)) <= 122) Or (Asc(Mid(strURL, I, 1)) >= 48 And Asc(Mid(strURL, I, 1)) <= 57) Then
            URLEncode = URLEncode & Mid(strURL, I, 1)
        Else
            URLEncode = URLEncode & "%" & Hex(Asc(Mid(strURL, I, 1)))
        End If
    Next
End Function

James

楼主很强大哦！但如果楼主能把一些使用方法也写进去，那这帖子就堪称完美啦！
不知道是不是这样用：创建一个TXT文本，把代码复制进去，修改一下账号等信息，再把文件的格式另存为“bat”。
是不是这样用啊？楼主？本人新手

乱码

是VBS，保存为 "吾爱破解.vbs" 就好了。。。

回帖的 验证问答 也可以读取到，但是刷帖，就怕被封号
这个我写着是挂论坛用的。。。
非IE进程挂论坛，，反正还在写，没完成，到时候再发了。。

guxingxue

好东西 谢谢了

阳光如此温暖

想问下 修改那些数据可以挂其他的 Discuz! X2论坛

乱码

阳光如此温暖 发表于 2012-5-2 19:47
想问下 修改那些数据可以挂其他的 Discuz! X2论坛

不通用，但是验证会少一些，吾爱的验证比较多。
我论坛有个通用登录，但是没写挂机。

VBS脚本之Discuz X2 论坛登录脚本 任何论坛通用
原文地址: http://qqcik.5d6d.com/viewthread.php?tid=217

几乎是任何论坛通用，只要是没有加上这些额外的验证，都是通用的。
我测试了5个论坛都能登录。

qq2672471

额..新手不太懂，学习看看

阳光如此温暖

乱码 发表于 2012-5-2 19:57
不通用，但是验证会少一些，吾爱的验证比较多。
我论坛有个通用登录，但是没写挂机。

挂机的要增加什么代码呀？

天官赐福

理解下怎么回事