[Сеть, интернет] Авторизация на сайте МТС

$sLoginMTS = "9121234567"
$sPassMTS = "12345"
Global $oErrorHandler

Func ErrorFunc()
    MsgBox(16, 'Ошибка', $oErrorHandler.description & " - " & $oErrorHandler.description)
    Exit 2
EndFunc

__GetDataSubscription($sLoginMTS, $sPassMTS)

Func __GetDataSubscription($sLoginMTS = "", $sPassMTS = "")
	
	Local $sIDToken1 = ""
	Local $sIDToken2 = ""
	Local $sIDButton = "Submit"
	Local $sgoto = "http%3A%2F%2Fmoipodpiski.mts.ru%2Fsmssubscriptionsstart.aspx"
	Local $sencoded = "false"
	Local $sloginURL = "%2Famserver%2FUI%2FLogin%3Fgx_charset%3DUTF-8%26service%3Dmoipodpiski%26goto%3Dhttp%253A%252F%252Fmoipodpiski.mts.ru%252Fsmssubscriptionsstart.aspx%26auth-status%3D0"
	Local $scsrfsign = ""
	Local $scsrfts = ""
	Local $sURL1 = 'https://login.mts.ru/amserver/UI/Login?gx_charset=UTF-8&auth-status=0&service=moipodpiski&goto=http://moipodpiski.mts.ru/smssubscriptionsstart.aspx'
	Local $sURL2 = 'https://login.mts.ru/amserver/UI/Login?gx_charset=UTF-8&auth-status=0&service=moipodpiski&goto=http://moipodpiski.mts.ru/smssubscriptionsstart.aspx'

	Local $sAllResponseHeaders = ''
	Local $sCOOKIES = ''
	
	$oErrorHandler = ObjEvent('AutoIt.Error', 'ErrorFunc') 
	
	Local $oRequest = ObjCreate('MSXML2.XMLHTTP')
	If Not IsObj($oRequest) Then
		Return SetError($_IEStatus_InvalidDataType, 1, 0)
	EndIf
	
	Local $oHtmlFile = ObjCreate('HtmlFile')
	If Not IsObj($oHtmlFile) Then
		Return SetError($_IEStatus_InvalidDataType, 1, 0)
	EndIf
	
	
	$oRequest.Open('GET', $sURL1, 0)
	$oRequest.SetRequestHeader('Connection','keep-alive')
	$oRequest.Send()

	
	;парсим ответ сервера, получаем cookies
	$aResponseHeaders = StringSplit ( $oRequest.getAllResponseHeaders(), @CRLF )
	For $i = 1 To $aResponseHeaders[0]
		If StringLeft( $aResponseHeaders[$i], 10) = 'Set-Cookie' Then
			$iPozSim = StringInStr( $aResponseHeaders[$i], ';')
			$sCOOKIES &= StringMid($aResponseHeaders[$i],13, $iPozSim - 13 ) & '; ' 
		EndIf
	Next
	$sCOOKIES = StringMid ($sCOOKIES, 1, StringLen($sCOOKIES) - 2)
	ConsoleWrite($sCOOKIES & @CRLF);
	
	; получаем настройки формы
	$sData = $oRequest.responsetext
	$oHtmlFile.designMode = 'on'
	$oHtmlFile.Write($sData)
	$oElement = $oHtmlFile.getElementByID('IDButton')
	If Not IsObj($oElement) Then
		Return SetError($_IEStatus_NoMatch, 2, 0)
	EndIf
;~ 	ConsoleWrite($sData & @CRLF);
	$oElemForm = $oElement.form
	$oInputs = $oElemForm.getElementsByTagName('input')
	For $oInput In $oInputs
		If $oInput.name = 'csrf.sign' Then
			$scsrfsign = $oInput.value
		ElseIf $oInput.name = 'csrf.ts' Then
			$scsrfts = $oInput.value
		EndIf
		ConsoleWrite($oInput.name  & ' - '&  $oInput.value & @CRLF);
	Next
	$oHtmlFile.Write('')
	
	$oRequest.Open('POST', $sURL2, 0)
	
	$oRequest.SetRequestHeader('Accept','text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8')
	$oRequest.SetRequestHeader('Accept-Encoding','gzip,deflate,sdch')
	$oRequest.SetRequestHeader('Accept-Language','ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4')
	$oRequest.SetRequestHeader('Connection','keep-alive')
	$oRequest.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
	$oRequest.SetRequestHeader('Cookie', $sCOOKIES)
	$oRequest.SetRequestHeader('Cache-Control','max-age=0')
	$oRequest.SetRequestHeader('Referer','https://login.mts.ru/amserver/UI/Login?gx_charset=UTF-8&service=moipodpiski&goto=http%3A%2F%2Fmoipodpiski.mts.ru%2Fsmssubscriptionsstart.aspx&auth-status=0')
	$oRequest.SetRequestHeader('Host', 'login.mts.ru')
	$oRequest.SetRequestHeader('User-Agent', 'Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/33.0.1750.154 Safari/537.36')
	$oRequest.SetRequestHeader('Origin','https//login.mts.ru')
	
	
	$sSendText = 'IDToken1='& $sLoginMTS &'&IDToken2='& $sPassMTS &'&IDButton=' & $sIDButton & '&goto=' & $sgoto & '&encoded=false&loginURL=' & $sloginURL & '&csrf.sign=' & $scsrfsign &'&csrf.ts=' & $scsrfts
	$oRequest.SetRequestHeader('Content-Length',StringLen($sSendText))
	ConsoleWrite(StringLen($sSendText) & @CRLF)
	ConsoleWrite($sSendText & @CRLF);
	$oRequest.Send($sSendText) ; что тебе еще надо скотина?!!!
	$sData = $oRequest.responsetext 	
	MsgBox(0,"Status",$oRequest.statustext)	
	ConsoleWrite($sData)
	
	$oRequest.SetRequestHeader('Content-Type', 'text/html')
	$oRequest.Open('GET', 'http://moipodpiski.mts.ru/smssubscriptionsstart.aspx', 0)
	$oRequest.Send()
	$sData = $oRequest.responsetext 	
	MsgBox(0,"Status",$oRequest.statustext)	
	ConsoleWrite($sData)
 	
	$oErrorHandler = 0 ;выключаем обработчик ошибок
	
EndFunc