irvin12345
Новичок
- Сообщения
- 30
- Репутация
- 2
На сайте отсутствует кнопка "выйти", поэтому выхожу, удаляя cookies.
Но есть проблема: в уже запущенном скрипте, очистив куки, не могу попасть на страницу авторизации, тк сайт считает что я залогинен.(Как?)
Но если после удаления куков закрыть скрипт и открыть его заново, то попадаю на страницу авторизации.
Вопрос: чего не хватает в моей функции перелогина для того чтобы не перезагружать скрипт?
Но есть проблема: в уже запущенном скрипте, очистив куки, не могу попасть на страницу авторизации, тк сайт считает что я залогинен.(Как?)
Но если после удаления куков закрыть скрипт и открыть его заново, то попадаю на страницу авторизации.
Вопрос: чего не хватает в моей функции перелогина для того чтобы не перезагружать скрипт?
Код:
Func _ReLogin1()
$myLogin = "l1"
$myPass = "p1"
_ReLogin($myLogin,$myPass)
EndFunc
Func _ReLogin2()
$myLogin = "l2"
$myPass = "p2"
_ReLogin($myLogin,$myPass)
EndFunc
Func _ReLogin($myLogin,$myPass)
GUIDelete()
FileDelete(@UserProfileDir & '\Cookies\' & '*имя_сайта*.*')
$oIE = _IECreateEmbedded()
GUICreate(("my bot"), $iFrameX, $iFrameY, 1, 1)
GUISetState(@SW_SHOW)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, $iFrameX, $iFrameY)
_IENavigate($oIE, $myAddr)
_IELoadWait($oIE)
$oForm = _IEFormGetObjByName($oIE,0)
$oLogin = _IEFormElementGetObjByName($oForm,"username")
$oPass = _IEFormElementGetObjByName($oForm,"password")
_IEFormElementSetValue($oLogin,$myLogin)
_IEFormElementSetValue($oPass,$myPass)
_IEAction(_IEFormElementGetObjByName($oForm, "submit"), "click")
EndFunc