Здравствуйте. Изменился дизайн сайта, и теперь не отправляются логин, пароль.
id остались прежними. Посмотрите, пожалуйста, в чём причина.
id остались прежними. Посмотрите, пожалуйста, в чём причина.
Код:
#include <IE.au3>
Global $sLogin = 'Anna', $sPass = '12345'
Dim $oIE,$sUrlSS,$sTextSS
$sUrlSS = 'about:blank'
$oIE = _IECreate($sUrlSS)
$sUrl = 'https://forexdengi.com/threads/99116-tsitati-viskazivaniya-stihi/page2'
If IsObj($oIE) Then
_IENavigate($oIE, $sUrl)
Else
$oIE = _IECreate($sUrl)
EndIf
$oSubmit = _IEGetObjById($oIE, "linklogin")
_IEAction($oSubmit, "click")
$oLogin = _IEGetObjById($oIE, 'navbar_username')
If IsObj($oLogin) Then
$oPass = _IEGetObjById($oIE, 'navbar_password')
_IEFormElementSetValue($oLogin, $sLogin)
_IEFormElementSetValue($oPass, $sPass)
$oForm = _IEFormGetCollection($oIE, 0)
_IEFormSubmit($oForm)
_IELoadWait($oIE)
EndIf