OnAutoItErrorRegister - Обработка критических ошибок AutoIt
- Автор темы CreatoR
- Дата начала
Добрый день!
При возникновении ошибки для рестарта скрипта использую:
Подскажите как в эту функцию встроить запись ошибки которая была возникла (сообщение и номер строки) в лог-файл?
Спасибо.
При возникновении ошибки для рестарта скрипта использую:
Код:
Func _MyErrorHandler() ;Restart the application
Local $sRunLine = @AutoItExe & ' "' & @ScriptFullPath & '"'
If @Compiled Then
$sRunLine = @ScriptFullPath
EndIf
Run($sRunLine, @ScriptDir)
EndFuncПодскажите как в эту функцию встроить запись ошибки которая была возникла (сообщение и номер строки) в лог-файл?
Спасибо.
Спасибо за новую версию.
В своем скрипте использую много
для трасировки.
В новой версии при ошибке в переменную $sMessage функции _MyErrorHandler() записываются все данные которые были отправлены в консоль вместе с информацией об ошибке.
Пример:
Так должно быть? Если да то можно ли в $sMessage отправлять только информацию об ошибке?
Пока что для себя быстро решил таким способом:
В своем скрипте использую много
Код:
ConsoleWrite()В новой версии при ошибке в переменную $sMessage функции _MyErrorHandler() записываются все данные которые были отправлены в консоль вместе с информацией об ошибке.
Пример:
Код:
#NoTrayIcon
#include 'OnAutoItErrorRegister.au3'
_OnAutoItErrorRegister('_MyErrorHandler');, '', -1, -1, True)
;We deliberately make an array bounding error and call the error!
ConsoleWrite("Bla 1" & @CRLF)
ConsoleWrite("Bla 2" & @CRLF)
ConsoleWrite("Bla 3" & @CRLF)
ConsoleWrite("Bla 4" & @CRLF)
Dim $aArr[1]
MsgBox(0, '', $aArr[1])
Func _MyErrorHandler($sScriptPath, $iScriptLine, $sErrDesc, $vParams) ;Restart the application
Local $sMessage = StringFormat('SCRIPT FILE:\n%s\n\nSCRIPT ERROR LINE:\n%s\n\nERROR DESCRIPTION:\n%s', $sScriptPath, $iScriptLine, $sErrDesc)
If MsgBox(16 + 4, 'Crash recieved!', 'Restart application?' & @CRLF & @CRLF & $sMessage) <> 6 Then
Return
EndIf
Local $sRunLine = @AutoItExe & ' "' & @ScriptFullPath & '"'
If @Compiled Then
$sRunLine = @ScriptFullPath
EndIf
Run($sRunLine, @ScriptDir)
EndFuncТак должно быть? Если да то можно ли в $sMessage отправлять только информацию об ошибке?
Пока что для себя быстро решил таким способом:
Код:
$sMessage = StringMid($sMessage, StringInStr($sMessage, "SCRIPT ERROR LINE"), StringLen($sMessage) - StringInStr($sMessage, "SCRIPT ERROR LINE"))
Автор
- Сообщения
- 8,673
- Репутация
- 2,486
Вопросик - будут ли отлавливаться ошибки, приводящие к тихому (без окна ошибки) краху компилированного скрипта если они скорее всего com природы и происходят несмотря на наличие такой вот конструкии в качестве ловушки для com-ошибок:
Код:
$__g_oTemplateCOMErrorHandler = ObjEvent("AutoIt.Error", "Template_COMErrFunc")
Func Template_COMErrFunc()
Return Call("__DeluxeComErrorHandlerFunction",$__g_oTemplateCOMErrorHandler)
EndFunc
Func __DeluxeComErrorHandlerFunction($errorEvent)
If IsObj($errorEvent) Then
ConsoleWrite("!--> DeluxeComErrorHandler: COM Error Encountered in " & @ScriptName & @CR)
ConsoleWrite("----> Scriptline = " & $errorEvent.scriptline & @CR)
ConsoleWrite("----> Number Hex = " & Hex($errorEvent.number, 8) & @CR)
ConsoleWrite("----> Number = " & $errorEvent.number & @CR)
ConsoleWrite("----> Win Description = " & StringStripWS($errorEvent.WinDescription, 2) & @CR)
ConsoleWrite("----> Description = " & StringStripWS($errorEvent.description, 2) & @CR)
ConsoleWrite("----> Source = " & $errorEvent.Source & @CR)
ConsoleWrite("----> Help File = " & $errorEvent.HelpFile & @CR)
ConsoleWrite("----> Help Context = " & $errorEvent.HelpContext & @CR)
ConsoleWrite("----> Last Dll Error = " & $errorEvent.LastDllError & @crlf)
ConsoleWrite("----> Last Dll Error = " & $errorEvent.ScriptName & @crlf)
Local $HexNumber = Hex($errorEvent.number, 8)
SetError($HexNumber)
Else
SetError(1)
EndIf
Return 0
EndFunc
Автор
- Сообщения
- 8,673
- Репутация
- 2,486
В приведённом коде ошибки нет. Он используется для отлова com-ошибок и перевода их в нефатальные. В большинстве случаев всё работает как задумано - ошибки отлавливаются, основной скомпилированный скрипт работает. НО: иногда скрипт просто тихо закрывается без вывода стандартно окна краха Auto-it. Поскольку такая ситуация редкая, мне ни разу не удалось воспроизвести её в нескомпилированном скрипте - соответственно хочу попытаться отловить её методом из данной темы.CreatoR сказал(а):
