Error management in WinHttp.au3

[skijve]

Hello,

 

I use WinHttp.au3 to connect to a website and gater information.

Here is the code : 

#include-once

Global Const $HTTP_STATUS_OK = 200

Func HttpPost($sURL, $sData = "")
#MsgBox(1, 'Post to server:',"1")
Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
#MsgBox(1, 'Post to server:',"2")
$oHTTP.Open("POST", $sURL, False)
If (@error) Then Return SetError(1, 0, 0)
#MsgBox(1, 'Post to server:',"3")
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
#MsgBox(1, 'Post to server:',"4")
$oHTTP.Send($sData)
#MsgBox(1, 'Post to server:',"5")
If (@error) Then Return SetError(2, 0, 0)

If ($oHTTP.Status <> $HTTP_STATUS_OK) Then Return SetError(3, 0, 0)
#MsgBox(1, 'Post to server:',"6")
Return SetError(0, 0, $oHTTP.ResponseText)
EndFunc

Func HttpGet($sURL, $sData = "")
Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")

$oHTTP.Open("GET", $sURL & "?" & $sData, False)
If (@error) Then Return SetError(1, 0, 0)

$oHTTP.Send()
If (@error) Then Return SetError(2, 0, 0)

If ($oHTTP.Status <> $HTTP_STATUS_OK) Then Return SetError(3, 0, 0)

Return SetError(0, 0, $oHTTP.ResponseText)
EndFunc

My problem is that I have a ugly error if the computer is not connected to the web : 

Is there a way to simply raise a message box saying "You are an asshole, please connect your computer to internet" ?

Thx in advance 🙂

[Jos]

Test whether $oHTTP is really an object like shown in the helpfile? 

[skijve]

 IsObj I suppose ?

 

[skijve]

Same error with : 

expandcollapse popup

#include-once

Global Const $HTTP_STATUS_OK = 200

Func HttpPost($sURL, $sData = "")
    #MsgBox(1, 'Post to server:',"1")
    Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
    #MsgBox(1, 'Post to server:',"2")
    $oHTTP.Open("POST", $sURL, False)
    If (@error) Then Return SetError(1, 0, 0)
    #MsgBox(1, 'Post to server:',"3")
    $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    #MsgBox(1, 'Post to server:',"4")
    If  IsObj($oHTTP) Then
        $oHTTP.Send($sData)
        #MsgBox(1, 'Post to server:',"5")
        If (@error) Then Return SetError(2, 0, 0)

        If ($oHTTP.Status <> $HTTP_STATUS_OK) Then Return SetError(3, 0, 0)
        #MsgBox(1, 'Post to server:',"6")
        Return SetError(0, 0, $oHTTP.ResponseText)
    Else
        MsgBox($MB_SYSTEMMODAL, "No connected to Internet", "Please ensure that the bot is allowed to connect to Internet!")
        btnExit()
    EndIf
EndFunc

Func HttpGet($sURL, $sData = "")
    Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")

    $oHTTP.Open("GET", $sURL & "?" & $sData, False)
    If (@error) Then Return SetError(1, 0, 0)

    $oHTTP.Send()
    If (@error) Then Return SetError(2, 0, 0)

    If ($oHTTP.Status <> $HTTP_STATUS_OK) Then Return SetError(3, 0, 0)

    Return SetError(0, 0, $oHTTP.ResponseText)

EndFunc

 

[Danp2]

There's actually a UDF of WinHTTP functions named WinHttp.au3, so I was initially confused by your post. 😄 It can be found here if you want to check it out.

[Jos]

Add an COM Error Handling function to capture it and perform what it is you need to do.
The Helpfile has some examples on how to do that. just search for "COM Error Handling" select "Com Handlig" and scroll down. 

[skijve]

Thx, it workd !