Написал скрипт (с помощью форумчан):
Скрипт работал больше года, щас ругается на ""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, но проблема все равно осталась. Во вложении скирншот с ошибкой
Код:
$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, но проблема все равно осталась. Во вложении скирншот с ошибкой