[...] Exécuter fonction avant exitcode erreur
Posté : lun. 05 août 2013 19:43
Bonjour à tous !
encore une fois, je m'en remet à vos lumières ; voici mon problème
des erreurs pas facilement anticipables surviennent de temps en temps à l'éxécution de mon script et provoque un exitcode sans même enregistrer mes paramètres.
Ces erreurs sont rares mais potentielles donc je souhaiterais que dès qu'une erreur provoquant un exitcode survienne mes variables soient enregistrées dans un ini.
C'est la partie : -detection d'une erreur quelqu'elle soit provoquant l'exitcode
-appel de la fonction "sauvegarde des variables"
qui me pose problème
j'ai essayé avec
mais soit ça n'a rien a voir soit je comprend mal le code car quand je met mes commandes de sauvegarde dans les case ça ne fonctionne pas
merci à tous
encore une fois, je m'en remet à vos lumières ; voici mon problème
des erreurs pas facilement anticipables surviennent de temps en temps à l'éxécution de mon script et provoque un exitcode sans même enregistrer mes paramètres.
Ces erreurs sont rares mais potentielles donc je souhaiterais que dès qu'une erreur provoquant un exitcode survienne mes variables soient enregistrées dans un ini.
C'est la partie : -detection d'une erreur quelqu'elle soit provoquant l'exitcode
-appel de la fonction "sauvegarde des variables"
qui me pose problème
j'ai essayé avec
Code : Tout sélectionner
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc"), $EventError = 0
Func MyErrFunc()
Local $msg, $HexNumber = Hex($oMyError.number, 8)
Switch $HexNumber
Case "_80020009"
$msg = MsgBox(4 + 16, " Erreur " & $oMyError.scriptline, _
"err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
"Risque de doublons" & @LF & @LF & "continuer ?")
SetError(1, 1)
Case Else
$msg = MsgBox(4 + 16, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
"err.description is: " & @TAB & $oMyError.description & @CRLF & _
"err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
"err.number is: " & @TAB & $HexNumber & @CRLF & _
"err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
"err.source is: " & @TAB & $oMyError.source & @CRLF & _
"err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
"err.helpcontext is: " & @TAB & $oMyError.helpcontext & @CRLF & @CRLF & _
"Continuer ???")
SetError(1, 9)
EndSwitch
If $msg <> 6 Then Exit
EndFunc ;==>MyErrFuncmerci à tous