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

拿铁不加糖

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

1. :getformhash
   
2. 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
   
3. cls
   
4. 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# 乱码


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

1. username = "test"   '用户名
   
2. password = "pass123"  '密码
   
3. loginquestionid = "2" '安全提问编号
   
4. loginanswer = "123456" '答案
   
5. coockietime = False    '是否自动登录
   
6. 
   
7. Set ie = CreateObject("InternetExplorer.Application")
   
8. 
   
9. ie.Navigate "http://www.zxxy8.com/member.php?mod=logging&action=login"
   
10. ie.Visible = True
    
11. 
    
12. Do Until ie.ReadyState=4
    
13. Loop
    
14. 
    
15. With ie.Document
    
16.         For Each i In .all
    
17.                 Select Case 1
    
18.                         Case InStr(LCase(i.id),"username_")
    
19.                         .all(i.id).value = username
    
20.                         Case InStr(LCase(i.id),"password3_")
    
21.                         .all(i.id).value = password
    
22.                         Case InStr(LCase(i.id),"loginquestionid_")
    
23.                         .all(i.id).value = loginquestionid
    
24.                         Case InStr(LCase(i.id),"loginanswer_")
    
25.                         If InStr(LCase(i.id),"_row_") Then
    
26.                                 .all(i.id).style.display = ""
    
27.                         Else
    
28.                                 .all(i.id).value = loginanswer
    
29.                         End If
    
30.                         Case InStr(LCase(i.id),"cookietime_")
    
31.                         If cookietime Then .all(i.id).click
    
32.                 End Select
    
33.         Next
    
34.        
    
35.         .all.loginsubmit.click
    
36.        
    
37. End With

复制代码

拿铁不加糖

回复 2# CrLf

谢谢了，我试一试。

aa65535

是这样的吧，

1. :login
   
2. set /p use=用户名：
   
3. if "%use%"=="" goto login
   
4. set /p pwd=密码：
   
5. if "%pwd%"=="" goto login
   
6. 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
   
7. 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
   
8. cls
   
9. echo 登陆完成（%formhash%），按任意键开始发帖 ...
   
10. @pause >nul
    

复制代码