关于post登陆论坛

xyhqqaa

新手，正在学POST。

$oIE = _IECreate("http://www.zt2cn.com/logging.php?action=login", 0, 1, 1, 1)
                        _IELoadWait($oIE)
                        $UserName = _IEGetObjById($oIE, "username")
                        If IsObj($UserName) Then $UserName.value = "oneboy"
                        $PassWord = _IEGetObjById($oIE, "password3")
                        If IsObj($PassWord) Then $PassWord.value = "123456789"
                        $oInputs = _IETagNameGetCollection($oIE, "input")
                        For $oInput In $oInputs
                                $buttonclick = _IEGetObjByName($oIE, "loginsubmit")
                                _IEAction($buttonclick, 'click')
                                ExitLoop
                                If @error Then Exit
                        Next

之前是使用这种方式登陆成功，签到没弄成功，只能手动签到。。。
现在想学习是否能用post登陆签到。但是测试结果很悲惨
测试源码如下，就是不知道哪错了，对比了下前辈们登陆论坛的例子，发现zt2cn跟acn的论坛差不多的样子好像。就拿前辈的例子来借鉴，却发现不能用，囧

Local $user = 'oneboy'
Local $pass = '123456789'
$xmlHttpReq = ObjCreate("MSXML2.XMLHTTP.3.0")
$xmlHttpReq.open("GET", 'http://www.zt2cn.com/space-uid-85916.html', false)
$xmlHttpReq.send()
$Content = BinaryToString($xmlHttpReq.responseBody,1)
$FormHash = StringRegExp($Content,'name="formhash" value="(.*?)\"',3)
If @error = 0 Then 
        $xmlHttpReq.open("POST",'http://www.zt2cn.com/space-uid-85916.html',false)
        $xmlHttpReq.setRequestHeader('Content-Type','application/x-www-form-urlencoded')
        $xmlHttpReq.send('formhash='&$FormHash[0]&'&loginfield=username&username='&$user&'&password='&$pass&'&questionid=0&answer=&cookietime=2592000&loginsubmit=%B5%C7%C2%BC')
        $Content = BinaryToString($xmlHttpReq.responseBody,1)
        $xmlHttpReq.abort()
        If StringRegExp($Content,'<p>欢迎您回来，'&$user&'。现在将转入登录前页面。  </p>',0) Then MsgBox(0,"","登录成功！")
 
EndIf 

新手求解，正则不懂..有比较适合新手学习POST的。。。求介绍

星雨朝霞

;论坛密码转换MD5
$sc = ObjCreate("ScriptControl")
$sc.Language="Javascript"

$username='****'
$password='******'
$Islogin=False

$formhash_Conetent=XMLHTTP('http://www.zt2cn.com/logging.php?action=login&infloat=yes&handlekey=login&inajax=1&ajaxtarget=fwin_content_login')
If Not @error Then
        If StringInStr($formhash_Conetent,'欢迎您回来')=0 Then
                $formhash=StringRegExp($formhash_Conetent,"formhash=(.*?)'",3)
                If Not @error Then
                        $sc.AddCode(XMLHTTP('http://www.zt2cn.com/forumdata/cache/md5.js?iiA'))
                        $password=$sc.Eval('hex_md5("'&$password&'")')
                        $Post_data='formhash='&$formhash[0]&'&referer=index.php&loginfield=username&username='&$username&'&password='&$password&'&questionid=0&answer='
                        $login_Conetent=XMLHTTP('http://www.zt2cn.com/logging.php?action=login&loginsubmit=yes&floatlogin=yes&inajax=1',1,'POST',$Post_data)
                        If StringInStr($login_Conetent,'欢迎您回来') Then
                                $Islogin=True
                        Else
                                $Islogin=False
                        EndIf
                EndIf
        Else
                $Islogin=True
        EndIf
        
        If $Islogin=True Then
                
                $postbox_Conetent=XMLHTTP('http://www.zt2cn.com/plugin.php?identifier=dps_sign&module=sign&operation=qiandao&infloat=1&inajax=1',1,'POST','qdxq=fd&qdmode=3&todaysay=&fastreply=1')
                If Not @error Then
                        $postbox_Text=StringRegExp($postbox_Conetent,'postbox">([\W\w]*?)<',3)
                        If Not @error Then
                                TrayTip('征途兔之窝>>每日签到',$postbox_Text[0],10)
                                Sleep(10000)
                        EndIf
                EndIf
        EndIf
EndIf


Func XMLHTTP($webURL,$webresponse=1,$webMode='GET',$webdate='')
Global $WinHttp
$WinHttp = ObjCreate("Microsoft.XMLHTTP")
$SinkObject=objevent('AutoIt.Error',"MyErrFunc")
$WinHttp.Open ($webMode, $webURL,False)
$WinHttp.setRequestHeader ("User-Agent", "Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0 QQDownload/1.7")
If $webMode='POST' Then
  $WinHttp.setRequestHeader ("Content-Type", "application/x-www-form-urlencoded")
  $WinHttp.Send ($webdate)
Elseif $webMode='GET' Then
  $WinHttp.setRequestHeader ("Content-Type", "text/xml")
  $WinHttp.Send ()
EndIf
If $webresponse=1 Then
  Return $WinHttp.responseText
ElseIf $webresponse=0 Then
  Return BinaryToString($WinHttp.responseBody)
EndIf
EndFunc
 
Func MyErrFunc()
;出错处理函数
SetError(1)
EndFunc

xyhqqaa

回复 2# 星雨朝霞


    正在慢慢消化。。。。谢谢草哥。。。话说好多理解不懂- -！！

ainizm

POST操作，学习。。。。。。。。。