Catch error on "http.open" question - (Moved)

[canard_boiteux]

Hello. i've coded some little script (for it administration), but i'm faced to a problem.

I want to check the status of a web app, and so, i've coded a simple script that open this "app"

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET", "http://srvw:8888", False)
$oHTTP.Send()

The problem was if the app was "out" i get an error and the script go out.

even i put this

If @error Then
    $oStatusCode = 0
    MsgBox($MB_SYSTEMMODAL, "Error", "Division by Zero")
Else
    $oStatusCode = $oHTTP.Status
EndIf

it dont work since i put this in start of my script "$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")"

i let the function empty.

If someone can explain how the error catching work or why put "@error" does not work alone

Thanks all.

[Melba23]

Moved to the appropriate forum, as the Developer General Discussion forum very clearly states:

Quote

General development and scripting discussions. If it's super geeky and you don't know where to put it - it's probably here.

---

Do not create AutoIt-related topics here, use the AutoIt General Help and Support or AutoIt Technical Discussion forums.

Moderation Team

[Nine]

You need to have an object error handing like this :

Global $oMyError = ObjEvent("AutoIt.Error","MyErrFunc") ; this goes at the very start of the script

Func MyErrFunc()
  Msgbox(0,"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 & hex($oMyError.number,8)  & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
             "err.scriptline is: "     & @TAB & $oMyError.scriptline     & @CRLF & _
             "err.source is: "         & @TAB & $oMyError.source         & @CRLF & _
             "err.helpfile is: "       & @TAB & $oMyError.helpfile       & @CRLF & _
             "err.helpcontext is: "    & @TAB & $oMyError.helpcontext _
            )
Endfunc