Что нового

Не обновляется страница с _IEAction (вылетает)

maxd2007

Новичок
Сообщения
89
Репутация
0
Написал скрипт (с помощью форумчан):

Код:
$URL_Bitrix = "https://www.domen.ru/bitrix/admin/sale_order.php?PAGEN_1=1&SIZEN_1=10&lang=ru&set_filter=Y&adm_filter_applied=0&filter_date_update_from_FILTER_PERIOD=interval&filter_date_update_from_FILTER_DIRECTION=previous&filter_date_update_from=09.12.2016&filter_status%5B0%5D=E"

$oIE_Bitrix = _IECreate($URL_Bitrix,0,0)

While (1)
	sleep (5000)
	_Authorized_Bitrix ($oIE_Bitrix)
WEnd

Func _Authorized_Bitrix ($oIE)
	If StringInStr(_IEBodyReadText($oIE), "Авторизация") Then
		MsgBox (0,"Внимание Bitrix", "Вы не авторизованы в Bitrix!")
		Local $oLogin = _IEGetObjByName($oIE, "USER_LOGIN"), $oPassword = _IEGetObjByName($oIE, "USER_PASSWORD"), $oCheckbox = _IEGetObjByName($oIE, "USER_REMEMBER"), $oSubmitButton = _IEGetObjByName($oIE, "Login")
		Local $username = "login", $password = "password"
		If IsObj($oLogin) And IsObj($oPassword) And IsObj($oCheckbox) And IsObj($oSubmitButton) Then
			_IEFormElementSetValue($oLogin, $username)
			_IEFormElementSetValue($oPassword, $password)
			$oCheckbox.checked = "true"
			_IEAction($oSubmitButton, "click")
		EndIf
	EndIf
	If Not IsObj($oIE) Then
		MsgBox (0, "Внимание!", "Ошибка - некорректно создан объект IE")
		Exit
	EndIf
	_IEAction($oIE, "refresh")
	If StringInStr(_IEBodyReadText($oIE), "Авто. установлен менеджер") Then
	  WinMinimizeAll ( )
	  _error_msgbox ("Заявка Bitrix", "Заказ Bitrix", 0, 906) 
	EndIf
	If StringInStr(_IEBodyReadText($oIE), "Заказ без регистрации") Then
		WinMinimizeAll ( )
		_error_msgbox ("Заявка Bitrix", "Заказ Bitrix", 0, 906)
	EndIf
EndFunc
Func _error_msgbox ($title, $text, $x, $y) 

	  Local $hGui = GUICreate ($title, 150, 100, $x, $y,$WS_CAPTION,$WS_EX_TOPMOST)
	  GUISetBkColor(0xff0000)
	  Local $idOK = GUICtrlCreateButton($text, 31, 37, 85, 25)

	  GUISetState (@SW_SHOW, $hGUI)

	  While 1
        Switch GUIGetMsg()
            Case $idOK
                ExitLoop
        EndSwitch
	  WEnd

	  GUIDelete($hGUI)

EndFunc

Скрипт работал больше года, щас ругается на ""C:\Program Files (x86)\AutoIt3\Include\IE.au3" (1962) : ==> The requested action with this object has failed.:
$oObject.document.execCommand("Refresh")" - я так понимаю на _IEAction($oIE, "refresh") подскажите, что делать и как быть? Или скрипт на столько кривой?))))
PS
Сайт работает через kerio (VPN клиент) без него ссылка не откроется - может в этом вдруг проблема(( Проблема началась примерно недели 2 назад, щас обновил Autoit до версии v3.3.14.3, но проблема все равно осталась. Во вложении скирншот с ошибкой
 

Вложения

  • Error.png
    Error.png
    143.6 КБ · Просмотры: 5
Автор
M

maxd2007

Новичок
Сообщения
89
Репутация
0
Решил проблему полным сбросом Internet Explorer.
 
Верх