AutoItErrorHandler - Обработчик критических ошибок

#NoTrayIcon

#include <GUIConstantsEx.au3>
#include 'AutoItErrorHandler.au3'

If Not _OnAutoItErrorRegister('', '', 'My App Error') Then
	Switch @error
		Case -1
			;If Not @Compiled Then
				MsgBox(48, @ScriptName, 'ATM, only compiled script is supported, please compile the script.')
			;EndIf
		Case 1
			;If Not StringRegExp(@AutoItVersion, '^3\.3\.(12\.0|9\.4|8\.\d+|6\.\d+)$') Then
				MsgBox(48, @ScriptName, 'ATM, only these AutoIt versions are supported:' & @CRLF & '3.3.12.0 / 3.3.9.4 / 3.3.8.X / 3.3.6.X')
			;EndIf
	EndSwitch
	
	Exit
EndIf

GUICreate('AutoItErrorHandler Example', 350, 200)

GUICtrlCreateLabel('This script is just an example.' & @LF & @LF & 'It will produce a syntax error in', 25, 40, 300, 50)
GUICtrlCreateLabel('5', 185, 50, 50, 40)
GUICtrlSetColor(-1, 0xF20000)
GUICtrlSetFont(-1, 30, 800, 0, 'Tahoma')
GUICtrlCreateLabel('seconds.', 220, 67, 300, 50)
GUICtrlCreateLabel('The result shown as a CUSTOM error message, you can change it!', 25, 120, 350, 20)
$iUnRegister_Bttn = GUICtrlCreateButton('UnRegister AutoItError handler', 25, 140, 200, 22)
GUICtrlCreateLabel('Copyright Firex & G.Sandler © 2015', 25, 170, 350, 80)
GUICtrlSetColor(-1, 0x808080)
GUICtrlSetFont(-1, 8.5, 800, 6)

GUISetState()

Dim $iTimer

For $i = 3 To 1 Step -1
	GUICtrlSetData(4, $i)
	
	$iTimer = TimerInit()
	
	While TimerDiff($iTimer) < 1000
		Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE
				Exit
			Case $iUnRegister_Bttn
				_OnAutoItErrorUnRegister()
		EndSwitch
	WEnd
Next

;We deliberately make a syntax mistake and call the error!
If Random(1, 5, 1) = 3 Then
	MsgBox(0, '', )
Else
	_NotExistingFunc()
EndIf

#NoTrayIcon

#include <Constants.au3>
#include 'AutoItErrorHandler.au3'

If Not _OnAutoItErrorRegister('_MyErrorHandler') Then
	Switch @error
		Case -1
			;If Not @Compiled Then
				MsgBox(48, @ScriptName, 'ATM, only compiled script is supported, please compile the script.')
			;EndIf
		Case 1
			;If Not StringRegExp(@AutoItVersion, '^3\.3\.(12\.0|9\.4|8\.\d+|6\.\d+)$') Then
				MsgBox(48, @ScriptName, 'ATM, only these AutoIt versions are supported:' & @CRLF & '3.3.12.0 / 3.3.9.4 / 3.3.8.X / 3.3.6.X')
			;EndIf
	EndSwitch
	
	Exit
EndIf

;We deliberately make an array bounding error and call the error!
Dim $aArr[1]
MsgBox(0, '', $aArr[1])

MsgBox(64, @ScriptName, 'We can continue!!!' & @CRLF & 'Now we set other AutoIt Error Handler (default error msg handler), and trigger some error...')
_OnAutoItErrorRegister('')

$aArr[3] = $aArr

Func _MyErrorHandler($sScriptPath, $iScriptLine, $sErrDesc, $vParams, $hBitmap)
	Local $sMessage = StringFormat('SCRIPT FILE:\n%s\n\nSCRIPT ERROR LINE:\n%s\n\nERROR DESCRIPTION:\n%s', $sScriptPath, $iScriptLine, $sErrDesc)
	
	If FileExists(@WindowsDir & '\Media\chord.wav') Then
		SoundPlay(@WindowsDir & '\Media\chord.wav')
	Else
		DllCall('user32.dll', 'int', 'MessageBeep', 'int', 0x00000010)
	EndIf
	
	If MsgBox(BitOR($MB_SYSTEMMODAL, $MB_YESNO), 'Crash recieved!', 'Restart application?' & @CRLF & '(if you press "No", the script will continue from next line)' & @CRLF & @CRLF & $sMessage) <> 6 Then
		Return $iAEH_CONTINUE_PROC
	EndIf
	
	Local $sRunLine = @AutoItExe & ' "' & @ScriptFullPath & '"'
	
	If @Compiled Then
		$sRunLine = @ScriptFullPath
	EndIf
	
	Run($sRunLine, @ScriptDir)
	Return $iAEH_TERMINATE_PROC
EndFunc