what is wrong with this finction ?

[dirty 0]

While 1
    $ping = Ping ("http://www.google.com")
        If @error = 0 Then
        MsgBox (16,'Error',"Host is not pingable or other network errors occurred",1000)
    ElseIf @error = 1 Then
        MsgBox (16,'Error',"Host is offline",1000)
    ElseIf @error = 2 Then
        MsgBox (16,'Error',"Host is unreachable",1000)
    ElseIf @error = 3 Then
        MsgBox (16,'Error',"Bad destination",1000)
    ElseIf @error = 4 Then
        MsgBox (16,'Error',"Other connection errors",1000)
    ElseIf $ping > 0 Then
        MsgBox (32,"Success","Return in " & Round ($ping) & "ms")
    EndIf
WEnd

i know my computer is connected, yet i get error based on this script.

Am i reading errors the wrong way ?

Can you clear this out for me ? Am not sure if i read the errors right.

Thanks in advance

[water 1,847]

The first comparison is wrong. @error = 0 denotes a succesful PING not an error. Use:

While 1
    $ping = Ping ("http://www.google.com")
    If @error = 0 Then
        MsgBox (32,"Success","Return in " & Round ($ping) & "ms")
    ElseIf @error = 1 Then
        MsgBox (16,'Error',"Host is offline",1000)
    ElseIf @error = 2 Then
        MsgBox (16,'Error',"Host is unreachable",1000)
    ElseIf @error = 3 Then
        MsgBox (16,'Error',"Bad destination",1000)
    ElseIf @error = 4 Then
        MsgBox (16,'Error',"Other connection errors",1000)
    Else
        MsgBox (16,"Error","Unknown error occurred: " & @error)
    EndIf
WEnd

Edited October 11, 2011 by water

[iamtheky 729]

*what water said

While 1
    $ping = Ping ("www.google.com" , 4000)
 
        If @error Then
    ElseIf @error = 1 Then
        MsgBox (16,'Error',"Host is offline",1000)
    ElseIf @error = 2 Then
        MsgBox (16,'Error',"Host is unreachable",1000)
    ElseIf @error = 3 Then
        MsgBox (16,'Error',"Bad destination",1000)
    ElseIf @error = 4 Then
        MsgBox (16,'Error',"Other connection errors",1000)
    ElseIf $ping > 0 Then
        MsgBox (32,"Success","Return in " & Round ($ping) & "ms")
    EndIf
 
    exit
 
 
WEnd

Edited October 11, 2011 by boththose

[GEOSoft 64]

take the http:// out of the ping call. Also, take out the If @Error = 0 condition. @Error will be 0 if Ping worked properly. And you probably don't want it in a loop unless you do something to exit the loop. Otherwise good luck with trying to do anything.

;While 1
    $ping = Ping ("www.google.com")
        ;If @error = 0 Then
        ;MsgBox (16,'Error',"Host is not pingable or other network errors occurred",1000)
   If @error = 1 Then
        MsgBox (16,'Error',"Host is offline",1000)
    ElseIf @error = 2 Then
        MsgBox (16,'Error',"Host is unreachable",1000)
    ElseIf @error = 3 Then
        MsgBox (16,'Error',"Bad destination",1000)
    ElseIf @error = 4 Then
        MsgBox (16,'Error',"Other connection errors",1000)
    ElseIf $ping > 0 Then
        MsgBox (32,"Success","Return in " & Round ($ping) & "ms")
    EndIf
;WEnd

[dirty 0]

I thought according to help file Failure: Returns 0

so i thought 0 would be @Error = 0

LOL

Is there another way to read the error produced by $Ping variable ?

Maybe

$Ping = ("google.com")

$Error = @error

If $Error = 0 then .......etc

would this be a good way if doing it ?

This way i can check for @error value later in the script instead of checking it right after the ping() function

[shaqan 7]

$Kontrolli_jaamu = Ping("194.106.119.243", 100)
   Switch @error
    Case 0
      $Viga = "All OK"
    Case 1
      $Viga = "Host is offline"
    Case 2
      $Viga = "Host is unreachable"
    Case 3
      $Viga = "Bad destination"
    Case 4
      $Viga = "Other errors"
   EndSwitch

edit:wtf happens to layout??

Edited October 11, 2011 by shaqan