SendRequest

FUNC httprequest($url,$Data2Send="",$cookie="",$sReferrer="",$A535EB21015="")
   DIM $sData
   IF STRINGINSTR($url,"https")THEN
	  $port=443
   ELSE
	  $port=80
   ENDIF

   $url=STRINGREPLACE($url,"http://","")
   $url=STRINGREPLACE($url,"https://","")
   $A328C710A22=STRINGINSTR($url,"/")

   $sServerName=STRINGMID($url,1,$A328C710A22-1)
   $sObjectName=STRINGMID($url,$A328C710A22+1)
   $hOpen =_WinHttpOpen("Mozilla/5.0 (Windows NT 5.1) AppleWebKit/535.11 (KHTML, like Gecko) Chrome/17.0.963.56 Safari/535.11")
   $hConnect=_WinHttpConnect($hOpen,$sServerName,$port)
   IF $port=443 THEN
	  DIM $iFlags=8388608
   ELSE
	  DIM $iFlags=""
   ENDIF
   IF $Data2Send="" THEN
	  $hRequest=_WinHttpOpenRequest($hConnect,"GET",$sObjectName,"HTTP/1.1",$sReferrer,"text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8",$iFlags)
   ELSE
	  $hRequest=_WinHttpOpenRequest($hConnect,"POST",$sObjectName,"HTTP/1.1",$sReferrer,"text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8",$iFlags)
	  _WinHttpAddRequestHeaders($hRequest,"Content-Type: application/x-www-form-urlencoded")
   ENDIF
   IF $cookie<>"" THEN _WinHttpAddRequestHeaders($hRequest,"Cookie:"&$cookie)
   IF $A535EB21015<>4 AND $A535EB21015 <> 5 THEN _WinHttpAddRequestHeaders($hRequest,"Accept-Encoding: deflate")
   _WinHttpAddRequestHeaders($hRequest,"Accept-Language: vi-VN,vi;q=0.8,fr-FR;q=0.6,fr;q=0.4,en-US;q=0.2,en;q=0.2")
   IF $A535EB21015<>4 AND $A535EB21015<>5 THEN _WinHttpAddRequestHeaders($hRequest,"Accept-Charset: windows-1258,utf-8;q=0.7,*;q=0.3")
   IF $A535EB21015=3 THEN _WinHttpSetOption($hRequest,63,2)
   _WinHttpSendRequest($hRequest,"",$Data2Send)
   _WinHttpReceiveResponse($hRequest)

   SWITCH $A535EB21015
   CASE 1,4
	  $sData=""
	  DO
		 $sData&=_WinHttpReadData($hRequest)
	  UNTIL @ERROR OR NOT @EXTENDED
   CASE 2,5
	  $sData=BINARY("")
	  DO
	  $sData&=_WinHttpReadData($hRequest,2)
	  UNTIL @ERROR OR NOT @EXTENDED
   CASE 3
	  $sData=_WinHttpQueryHeaders($hRequest)
   ENDSWITCH
   _WinHttpCloseHandle($hRequest)
   _WinHttpCloseHandle($hConnect)
   _WinHttpCloseHandle($hOpen)
   RETURN $sData
ENDFUNC

Func LoginZM($id, $pass)
   Local $data = httprequest("https://sso3.zing.vn/login", "pid=25&u1=http%3A%2F%2Flogin.me.zing.vn%2Flogin%2Fsuccess&fp=http%3A%2F%2Flogin.me.zing.vn%2Flogin%2Ffail&u=" & $id & "&p=" & $pass & "&bntlogin=","","",3)
   if StringInStr($data, "err=2001") Then
	  Return 0
   ElseIf StringInStr($data, "mess=succ") Then
	  Local $Cookie = GetCookieLogin($data)
	  $data = httprequest("http://login.me.zing.vn/login/success?mess=succ&u=" & $id,"",$Cookie,"",3)
	  if StringInStr($data, "banacc") Then
		 Return -2
	  EndIf
	  $Cookie &= GetCookieLogin2($data)
	  IniWrite($file,$id, "Cookie", $Cookie)
	  return 1
   ElseIf StringInStr($data, "err=2005") Then
	  return -1
   EndIf
EndFunc