День добрый. Понимаю, что было очень много тем по поводу нажатия кнопок на сайтах, но что-то не нашел решения...
Есть форма логина на сайте. В поля ввода пароля и логина текст вставил, а вот кнопку никак не могу нажать...
Сайт:
Код:
Есть форма логина на сайте. В поля ввода пароля и логина текст вставил, а вот кнопку никак не могу нажать...
Сайт:
Код:
<form action="/" method="POST" class="js-login-form">
<div class="input-help input-help_left bottom-offset-10 js-login-panel-error" style="display: none;">
<span class="input-help__text js-error-text-container">Вы указали неправильный логин или пароль</span>
</div>
<div class="captcha login-form__captcha js-captcha" style="display: none;">
<input type="hidden" class="js-captcha-text">
<img class="captcha__image js-captcha-image" width="160" height="35">
<input class="captcha__input custom-input js-captcha-user-text" placeholder="Текст с изображения">
</div>
<input class="custom-input login-form__input" placeholder="Логин" name="username">
<input class="custom-input login-form__input" placeholder="Пароль" type="password" name="password">
<button type="submit" class="btn btn-primary btn-sm login-form__btn js-login-btn">
<span>Войти</span>
<span class="loader"></span>
</button>
</form>
Код:
#RequireAdmin
#include <IE.au3>
Main()
Func Main()
$sSite = "http://www.site.ru/"
$sLogin = "login"
$sPasswd = "password"
$oIE = Login($sSite, $sLogin, $sPasswd)
if not IsObj($oIE) Then
MsgBox("Не могу залогиниться на сайт: " & $sSite)
Exit
EndIf
EndFunc
Func Login($sSite, $sLogin, $sPasswd)
$oIE = _IECreate("http://www.spark-interfax.ru/", "url")
If Not IsObj($oIE) Then
MsgBox(0, "", "Не могу открыть страницу")
return $oIE
EndIf
$oLogin = _IEGetObjByName($oIE, "username")
If Not IsObj($oLogin) Then
MsgBox(0, "", "Не могу найти поле ввода логина")
return $oIE
EndIf
_IEFormElementSetValue($oLogin, $sLogin)
$oPasswd = _IEGetObjByName($oIE, "password")
If Not IsObj($oPasswd) Then
MsgBox(0, "", "Не могу найти поле ввода пароля")
return $oIE
EndIf
_IEFormElementSetValue($oPasswd, $sPasswd)
;$oBtn = _IEGetObjByName($oIE, "submit")
$oBtn = _IEFormGetObjByName($oIE, "submit")
If Not IsObj($oBtn) Then
MsgBox(0, "", "Не могу найти кнопку [Войти]")
return $oIE
EndIf
;_IEAction($oBtn, "click")
return $oIE
EndFunc