Перестал работать скрипт

[Anna]

Здравствуйте. Изменился дизайн сайта, и теперь не отправляются логин, пароль.
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

 

[joiner]

#include <IE.au3>
Global $sLogin = '    ', $sPass = '   '
Local $sUrl = 'https://forexdengi.com/threads/99116-tsitati-viskazivaniya-stihi/page2'
Local $oIE = _IECreate($sUrl)
Local $oSubmit = _IEGetObjById($oIE, "linklogin")
_IEAction($oSubmit, "click")
Local $oLogin = _IEGetObjById($oIE, 'navbar_username')
If IsObj($oLogin) Then
	Local $oPass = _IEGetObjById($oIE, 'navbar_password')
	_IEFormElementSetValue($oLogin, $sLogin)
	_IEFormElementSetValue($oPass, $sPass)
	$oLogin = _IEGetObjById($oIE, 'loginButon')
	_IEAction($oLogin, "click")
	_IELoadWait($oIE)
	_IELinkClickByIndex($oIE, 0)
EndIf

Добавлено:

Сообщение автоматически объединено: 6 Сен 2018

чуть поправил, чтобы не ждать возврата


Добавлено:

Сообщение автоматически объединено: 6 Сен 2018

на будущее - открываем исходный код страницы в браузере, ищем слова "Войти", смотрим id элемента, правим код.