simple question - http.send

[peter123]

Hell everyone,

i have a question,

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")

$oHTTP.Open("GET", $link)

$oHTTP.Send()

$HTMLSource = $oHTTP.Responsetext

if i not connected on internet this script give a Error like $oHttp.send()

how can I fix this?

Peter

[cdkid]

Look at the third or fourth post in the MySQL thread in my signature. It has a script for handling COM errors. I'm not sure why you're surprised that that doesn't work when you're not connected to the internet. Anyway, GL.

~cdkid

[peter123]

I'm not surprised

but i have do this and it doesn't works

$oHTTP.Send()

If @error Then

test()

endif

ehh, can you help me please???

I don't know how i fix this

[peter123]

Is there maybe a function that checks of you are connected on internet??

vb. if i not connected it shows 0

else -1

???

Edited September 20, 2007 by peter123

[peter123]

I can Really not find it, can anybody pleaaaassseee help me???

[PsaltyDS]

You didn't take the advice to add a COM error handler. Try this:

$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") ; Install a custom error handler

$link = "http://127.0.0.254" ; bad address to cause error
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open ("GET", $link)
$oHTTP.Send()
If @error Then
    MsgBox(16, "Error", "$oHTTP.Send() returned @error = " & @error & ", and @extended = " & @extended)
    Exit
Else
    $HTMLSource = $oHTTP.Responsetext
    MsgBox(64, "Results", $HTMLSource)
EndIf

; This is my custom error handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    ConsoleWrite("We intercepted a COM Error !" & @LF & _
            "Number is: " & $HexNumber & @LF & _
            "Windescription is: " & $oMyError.windescription & @LF)
    Return SetError(1, $HexNumber) ; something to check for when this function returns
EndFunc   ;==>MyErrFunc