Что нового

перелогин под другим пользователем

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
 

defens

Знающий
Сообщения
89
Репутация
5
так сначала скажите что за сайт или выложите код страницы
 
Верх