бот для авторизации на сайте lowadi.com

[kiril318]

Вобщем коротко, нужен бот, который буде просто заходить на сайт lowadi.com под разными логинами

 

[kiril318]

Ребят, на форуме нашел форму авторизации попробовал, при любом логине и пароле пишет что авторизация прошла :stars: помогите найти ошибку??

$sRequestURL    = 'http://www.lowadi.com/jeu/?identification=1'
$sLogin         = '1234'
$sPass          = '1234'

; POST-запрос на сайт
$sSendData      = 'authentificationLoginLabel="' & $sLogin & '"&authentificationPasswordLabel="' & $sPass & '"'
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open('POST', $sRequestURL)
$oHTTP.setTimeouts(5000, 5000, 15000, 15000)
$oHTTP.SetRequestHeader('Accept', 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8')
$oHTTP.SetRequestHeader('Accept-Language', 'ru')
$oHTTP.SetRequestHeader('Referer', $sRequestURL)
$oHTTP.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
$oHTTP.SetRequestHeader('User-Agent', 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)')
$oHTTP.SetRequestHeader('Host', $sRequestURL)
$oHTTP.SetRequestHeader('Proxy-Connection', 'Keep-alive')
$oHTTP.Send($sSendData)
$oHTTP.WaitForResponse
$Response = $oHTTP.ResponseText

; запуск Блокнота и вставка результата POST-запроса
$hWin = WinGetHandle('[CLASS:Notepad]')
If $hWin == '' Then
    Run('notepad.exe')
    $hWin = WinWait('[CLASS:Notepad]')
EndIf
ControlSetText($hWin, '', 'Edit1', $Response)
WinActivate($hWin)

; проверка авторизации
If StringInStr($Response, 'Данное имя пользователя и/или пароль некорректны') Then
    MsgBox(16, 'Ошибка', 'Данное имя пользователя и/или пароль некорректны')
Else
    MsgBox(64, 'Внимание', 'Авторизация пройдена')
EndIf

Используйте для AutoIt кода тег [autoit]

madmasles.

 

[Belfigor]

Тут 5 строк кода. Никто не будет в них ковыряться за тебя. Хочешь готовое решение - назначай цену и может быть кто-то и сделает работу за тебя.

 

[winstan]

kiril318
кривой запрос, вы смотрите что отвечает серв?