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

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
复制代码

: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
复制代码