[其他] 求助，批处理无法自动登录Discuz论坛。

拿铁不加糖

问题应该出在这一段，貌似无法获取formhash，求大侠相助。

:getformhash
for /f tokens^=8^ delims^=^;^" %%i in ('curl -c reply.txt -d "loginfield=username&username=%use%&password=%pwd%&questionid=0&answer=&cookietime=315360000&loginmode=&styleid=&loginsubmit=提  交" "http://www.zxxy8.com/member.php?mod=logging&action=login&"^|findstr "logout"') do set formhash=%%i
cls
echo 登陆完成（%formhash%），按任意键开始发帖 ...
复制代码

CrLf

Discuz! X2.5 使用随机表单id，前两天刚好也碰到这个问题

乱码

没有通用的DZ登录，很多论坛有可能自己修改了部分验证，有些甚至加上密码登录前的md5

VBS脚本之Discuz X2 论坛登录脚本 任何论坛通用
http://qqcik.5d6d.net/thread-217-1-2.html

VBS脚本之论坛刷帖
http://qqcik.5d6d.net/thread-146-1-2.html

希望这两篇文章对你有帮助、、
第一篇 任何论坛通用 是不可能的，只是为了吸引眼球罢了、
第二篇 针对 Discuz 7.0 的

CrLf

回复 3# 乱码


    话说我是用遍历的笨办法登陆的...

username = "test"   '用户名
password = "pass123"  '密码
loginquestionid = "2" '安全提问编号
loginanswer = "123456" '答案
coockietime = False    '是否自动登录

Set ie = CreateObject("InternetExplorer.Application")

ie.Navigate "http://www.zxxy8.com/member.php?mod=logging&action=login"
ie.Visible = True

Do Until ie.ReadyState=4
Loop

With ie.Document
	For Each i In .all
		Select Case 1
			Case InStr(LCase(i.id),"username_")
			.all(i.id).value = username
			Case InStr(LCase(i.id),"password3_")
			.all(i.id).value = password
			Case InStr(LCase(i.id),"loginquestionid_")
			.all(i.id).value = loginquestionid
			Case InStr(LCase(i.id),"loginanswer_")
			If InStr(LCase(i.id),"_row_") Then
				.all(i.id).style.display = ""
			Else
				.all(i.id).value = loginanswer
			End If
			Case InStr(LCase(i.id),"cookietime_")
			If cookietime Then .all(i.id).click
		End Select
	Next
	
	.all.loginsubmit.click
	
End With
复制代码

拿铁不加糖

回复 2# CrLf

谢谢了，我试一试。

aa65535

是这样的吧，

:login
set /p use=用户名：
if "%use%"=="" goto login
set /p pwd=密码：
if "%pwd%"=="" goto login
curl -c cookie.txt -d "loginfield=username&username=%use%&password=%pwd%&questionid=0&answer=&cookietime=2592000&loginsubmit=true" "http://www.zxxy8.com/member.php?mod=logging&action=login&loginsubmit=yes&inajax=1">nul
for /f tokens^=6^ delims^=^;^" %%i in ('curl -b cookie.txt "http://www.zxxy8.com/home.php?mod=space&do=pm"^|findstr "logout"') do set formhash=%%i
cls
echo 登陆完成（%formhash%），按任意键开始发帖 ...
@pause >nul
复制代码