VBS脚本之 吾爱破解 论坛POST登录脚本
本帖最后由 乱码 于 2012-4-8 13:48 编辑本工具使用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
楼主很强大哦！但如果楼主能把一些使用方法也写进去，那这帖子就堪称完美啦！
不知道是不是这样用：创建一个TXT文本，把代码复制进去，修改一下账号等信息，再把文件的格式另存为“bat”。
是不是这样用啊？楼主？本人新手 是VBS，保存为 "吾爱破解.vbs" 就好了。。。
回帖的 验证问答 也可以读取到，但是刷帖，就怕被封号
这个我写着是挂论坛用的。。。
非IE进程挂论坛，，反正还在写，没完成，到时候再发了。。 好东西 谢谢了{:1_918:} 想问下 修改那些数据可以挂其他的 Discuz! X2论坛 阳光如此温暖 发表于 2012-5-2 19:47 static/image/common/back.gif
想问下 修改那些数据可以挂其他的 Discuz! X2论坛
不通用，但是验证会少一些，吾爱的验证比较多。
我论坛有个通用登录，但是没写挂机。
VBS脚本之Discuz X2 论坛登录脚本 任何论坛通用
原文地址: http://qqcik.5d6d.com/viewthread.php?tid=217
几乎是任何论坛通用，只要是没有加上这些额外的验证，都是通用的。
我测试了5个论坛都能登录。 额..新手不太懂，学习看看 乱码 发表于 2012-5-2 19:57 static/image/common/back.gif
不通用，但是验证会少一些，吾爱的验证比较多。
我论坛有个通用登录，但是没写挂机。
挂机的要增加什么代码呀？ 理解下怎么回事
页:
[1]
2