$objErr = ObjEvent("AutoIt.Error","MyErrFunc")

 

; ===================================================

 

Func MyErrFunc() ; ————————————————————————-

 

$hexnum=hex($objErr.number,8)

 

Msgbox(0,"","We intercepted a COM Error!!"      & @CRLF                & @CRLF & _

            "err.description is: " & $objErr.description   & @CRLF & _

            "err.windescription is: " & $objErr.windescription & @CRLF & _

            "err.lastdllerror is: "   & $objErr.lastdllerror   & @CRLF & _

            "err.scriptline is: "   & $objErr.scriptline    & @CRLF & _

            "err.number is: "       & $hexnum               & @CRLF & _

            "err.source is: "       & $objErr.source        & @CRLF & _

            "err.helpfile is: "       & $objErr.helpfile      & @CRLF & _

            "err.helpcontext is: " & $objErr.helpcontext _

           )

exit

 

EndFunc ;  MyErrFunc()  ————————————————————————-