Здравствуйте.
Помогите, пожалуйста.
Буквально вчера работал, сегодня не хочет вводить логин и пароль.
Сайт переехал на новый адрес, но все ID остались прежними.
Помогите, пожалуйста.
Буквально вчера работал, сегодня не хочет вводить логин и пароль.
Сайт переехал на новый адрес, но все ID остались прежними.
Код:
#include <IE.au3>
Global $sLogin = 'Anna',$oIE, $sPass = '333444',$sUrl = 'http://www.for.com/'
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)
For $i = 0 To 9
If ControlGetText("[class:IEFrame]", "", "Edit1") = $sUrl Then ExitLoop
Sleep(1000)
Next
$hCtrl = ControlGetHandle("[class:IEFrame]", "", "Internet Explorer_Server1")
$oIE = __IEControlGetObjFromHWND($hCtrl)
_IELoadWait($oIE)
EndIf