Что нового

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

Anna

Новичок
Сообщения
119
Репутация
2
Здравствуйте. Изменился дизайн сайта, и теперь не отправляются логин, пароль.
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

Модератор
Локальный модератор
Сообщения
3,385
Репутация
592
Код:
#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



Добавлено: [time]1536222603[/time]
чуть поправил, чтобы не ждать возврата


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