Что нового

[Сеть, интернет] Проверка на правильность login\pass. Travian

AlexxxRu

Знающий
Сообщения
19
Репутация
6
Версия AutoIt: 3.

Описание:
Хотелось бы, чтобы происходил логин в игру http://travian.ru/. Цель даже минимальна, хотелось бы узнать верность\неверность логина. Т.е. после ввода неверного пасса\акка появляется надпись: "Не верный логин\пассворд". Но в ответе я её так получить и не смог.

Примечания:
Как мне кажется, проблема в генерирующемся числе.
Код:
<button type="submit" value="Войти" name="s1" id="s1" onclick="document.login.w.value=screen.width+':'+screen.height;">
<div class="button-container"><div class="button-position">
<div class="btl"><div class="btr"><div class="btc"></div></div></div>
<div class="bml"><div class="bmr"><div class="bmc"></div></div></div>
<div class="bbl"><div class="bbr"><div class="bbc"></div></div></div></div>
<div class="button-contents">Войти</div></div></button>						
<input type="hidden" name="w" value="" />						
<input type="hidden" name="login" value=!!!СОЛЬ!!!"1325737160"!!!СОЛЬ!!! />
Поскольку оно участвует в пост запросе.

П.с. Вот парсер этого числа:

Код:
#include <Encoding.au3>
#include <Array.au3>
Func _Notepad($sText)
    Local $hWin = WinGetHandle('[CLASS:Notepad]')
    If $hWin == '' Then
        Run('notepad.exe')
        $hWin = WinWait('[CLASS:Notepad]')
    EndIf
    ControlSetText($hWin, '', 'Edit1', $sText)
    WinActivate($hWin)
EndFunc
Func _Parse($Response)
	$m = StringRegExp($Response, 'name="login" value="...........' , 3)
	$Response = _ArrayToString($m)
	$m = StringRegExp($Response, '[0-9]' , 3)
	$Response = _ArrayToString($m)
	$Response = StringRegExpReplace($Response, '[|]' , "")
	Return $Response
EndFunc


$sRequestURL    = 'http://ts1.travian.ru/login.php'
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open('POST', $sRequestURL)
$oHTTP.setTimeouts(5000, 5000, 15000, 15000)
$oHTTP.SetRequestHeader('Host', "ts1.travian.ru")
$oHTTP.SetRequestHeader('User-Agent', 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)')
$oHTTP.SetRequestHeader('Accept', 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8')
$oHTTP.SetRequestHeader('Accept-Language', 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3')
$oHTTP.SetRequestHeader('Accept-Encoding','gzip, deflate')
$oHTTP.SetRequestHeader('Accept-Charset','windows-1251,utf-8;q=0.7,*;q=0.7')
$oHTTP.SetRequestHeader('Connection', 'Keep-alive')
$oHTTP.SetRequestHeader('Referer', 'http://ts1.travian.ru/login.php')
$oHTTP.Send("")
$oHTTP.WaitForResponse
$Response = $oHTTP.ResponseText
$Response = _Parse($Response)
_Notepad($Response)
;$sSendData  = 'name=312312&password=412412&s1=%D0%92%D0%BE%D0%B9%D1%82%D0%B8&w=1920%3A1080&login='&$Response
;$oHTTP.Send($sSendData)
;$Response = $oHTTP.ResponseText
;_Notepad($Response)


Кто сделает тому почёт и благодарности.
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 473
Репутация
2 403
Re: [Сеть, интернет] travian login

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"[Сеть, интернет] travian login" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Администратор форума.
 
Верх