AutoIt Error Message ignorieren

[autoit]

;#=#INDEX#==================================================================#
;# Title .........: _Error Handler.au3 v 1.2 #
;# Description....: AutoIt3 Error Handler & Debugger #
;# Date ..........: 7.9.08 #
;# Authors .......: jennico (jennicoattminusonlinedotde) #
;# @MrCreatoR #
;# MadExcept (GUI inspiration by mrRevoked) #
;#==========================================================================#

[/autoit] [autoit][/autoit] [autoit]

#cs
im main scrip muss lediglich
#include <_ErrorHandler_Restart.au3> ; this is all you need !

[/autoit] [autoit][/autoit] [autoit]

eingebaut werden.

[/autoit] [autoit][/autoit] [autoit]

#ce

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#include-once

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_OnAutoItError()

[/autoit] [autoit][/autoit] [autoit]

;#=#Function#===============================================================#
;# Name ..........: _OnAutoItError ( ) #
;# Description....: AutoIt3 Error Handler & Debugger GUI #
;# Parameters.....: (None) #
;# Date ..........: 7.9.08 #
;# Authors .......: jennico (jennicoattminusonlinedotde) #
;# @MrCreatoR #
;# MadExcept (GUI inspiration by mrRevoked) #
;#==========================================================================#

[/autoit] [autoit][/autoit] [autoit]

; this function is made to be customized !

[/autoit] [autoit][/autoit] [autoit]

Func _OnAutoItError()

[/autoit] [autoit][/autoit] [autoit]

If StringInStr($CmdLineRaw,"/AutoIt3ExecuteScript") Then Return

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Opt("TrayIconHide",1) ; run a second instance

[/autoit] [autoit][/autoit] [autoit]

$iPID=Run(@AutoItExe&' /ErrorStdOut /AutoIt3ExecuteScript "'&@ScriptFullPath&'"',@ScriptDir,0,6)
Dim $sErrorMsg

[/autoit] [autoit][/autoit] [autoit]

ProcessWait($iPID)

[/autoit] [autoit][/autoit] [autoit]

While 1 ; trap the error message
$sErrorMsg&=StdoutRead($iPID)

[/autoit] [autoit][/autoit] [autoit]

If @error Then ExitLoop
Sleep(1)
WEnd
If $sErrorMsg="" Then Exit

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

Opt("TrayIconHide",0)
Opt("TrayAutoPause",0)
WinSetOnTop(@ScriptName,"",1)
;SoundPlay(@WindowsDir&"\Media\chord.wav")
TraySetToolTip(@ScriptName&@CRLF&"An error occurred in the application.")

[/autoit] [autoit][/autoit] [autoit]

$returnVal =MsgBox(17,"Error",$sErrorMsg,5)
If $returnVal = 1 or $returnVal = -1 then
Run(@AutoItExe&' "'&@ScriptFullPath& '"',@ScriptDir,0,6)
;SoundPlay(@WindowsDir&"\Media\start.wav")
EndIf
Exit
EndFunc

[/autoit]