Ping = me frustrated :-)

[TheBG]

Hello all,

I don't know where i'm going wrong on this one.. I can;t seem to get his to work.

in short. I'm creating an application to check network status of some servers we have here. I simply want to run the app and have it ping the servers every 5 minutes (poor man's "Whats up" app). the form is simple. it have 2 buttons with server names, they highlight green or red depending on the ping command.

so far, it only works if everything is pinging, as soon as I take one of the network, the app no longer works.

Also, I would appreciate it if someone could show me how to put a timer on this, so, it pings the servers every 5 minutes.

expandcollapse popup

#include <GUIConstants.au3>


$OKRightDlg = GUICreate("Dialog", 357, 196, 265, 187)
GUISetIcon("D:\009.ico")
$GroupBox1 = GUICtrlCreateGroup("", 8, 8, 257, 185)
$AGEKEYS3 = GUICtrlCreateButton("Age-Keys3", 24, 24, 129, 33, 0)
$AGEMONVM1 = GUICtrlCreateButton("Age-MON-VM1", 24, 64, 129, 33, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Exit = GUICtrlCreateButton("&Exit", 272, 48, 75, 25, 0)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Exit
            ExitPressed()           
    EndSwitch
    
    $AGEMONVM1 = Ping("age-mon-vm1", 1000)
    If $AGEMONVM1 Then
        GUICtrlSetBkColor($AGEMONVM1, 0x009900)
    Else
        GUICtrlSetBkColor($AGEMONVM1, 0xCC0000)
    EndIf
    $AGEKEYS3 = Ping("age-keys3", 1000)
    If $AGEKEYS3 Then
        GUICtrlSetBkColor($AGEKEYS3, 0x009900)
    Else
        GUICtrlSetBkColor($AGEKEYS3, 0xCC0000)
    EndIf
WEnd


; Cancel then Exit the program
Func ExitPressed()
  Local $Exit
    $Exit = MsgBox(262452,"Cancel","Are you sure you want to Cancel and then Exit?")
    If $Exit = 6 Then
    Exit
    Endif
EndFunc

[Jos]

Look at the used variable names: You override the Button Control Handle with the result of Ping.

$AGEMONVM1 = Ping("age-mon-vm1", 1000)
    If $AGEMONVM1 Then
        GUICtrlSetBkColor($AGEMONVM1, 0x009900)
    Else
        GUICtrlSetBkColor($AGEMONVM1, 0xCC0000)
    EndIf

The timer requirement could be solved with the Adlib function.

Jos

[GEOSoft]

Variation on Jos' idea with the variable names fixed and no AdLib

expandcollapse popup

#include <GUIConstants.au3>


$OKRightDlg = GUICreate("Dialog", 357, 196, 265, 187)
;GUISetIcon("D:\009.ico")
$GroupBox1 = GUICtrlCreateGroup("", 8, 8, 257, 185)
$Btn_AGEKEYS3 = GUICtrlCreateButton("Age-Keys3", 24, 24, 129, 33, 0)
$Btn_AGEMONVM1 = GUICtrlCreateButton("Age-MON-VM1", 24, 64, 129, 33, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Exit = GUICtrlCreateButton("&Exit", 272, 48, 75, 25, 0)
_PingIt()
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Exit
            ExitPressed()
    Case $Btn_AGEKEYS3
        MsgBox(0, "Ping Result", Ping("www.autoitscript.com"))
    Case $Btn_AGEMONVM1
        MsgBox(0, "Ping Result", Ping("www.google.com"))
    EndSwitch
    If (NOT Mod(@Min, 5)) AND @SEC = 0 Then _PingIt()
WEnd

Func _PingIt()
    If Ping("www.google.com", 1000) Then
    ;If $AGEMONVM1 Then
        GUICtrlSetBkColor($Btn_AGEMONVM1, 0x009900)
    Else
        GUICtrlSetBkColor($Btn_AGEMONVM1, 0xCC0000)
    EndIf
    If Ping("www.autoitscript.com", 1000) Then
    ;If $AGEKEYS3 Then
        GUICtrlSetBkColor($Btn_AGEKEYS3, 0x009900)
    Else
        GUICtrlSetBkColor($Btn_AGEKEYS3, 0xCC0000)
    EndIf
EndFunc
; Cancel then Exit the program
Func ExitPressed()
  Local $Exit
    $Exit = MsgBox(262452,"Cancel","Are you sure you want to Cancel and then Exit?")
    If $Exit = 6 Then
    Exit
    Endif
EndFunc

[TheBG]

AWESOME! thanks for the help.

So, does this constantly ping, or only pings every so often?

It would be great if it only pings like every 5 minutes.

Variation on Jos' idea with the variable names fixed and no AdLib

expandcollapse popup

#include <GUIConstants.au3>


$OKRightDlg = GUICreate("Dialog", 357, 196, 265, 187)
;GUISetIcon("D:\009.ico")
$GroupBox1 = GUICtrlCreateGroup("", 8, 8, 257, 185)
$Btn_AGEKEYS3 = GUICtrlCreateButton("Age-Keys3", 24, 24, 129, 33, 0)
$Btn_AGEMONVM1 = GUICtrlCreateButton("Age-MON-VM1", 24, 64, 129, 33, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Exit = GUICtrlCreateButton("&Exit", 272, 48, 75, 25, 0)
_PingIt()
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Exit
            ExitPressed()
    Case $Btn_AGEKEYS3
        MsgBox(0, "Ping Result", Ping("www.autoitscript.com"))
    Case $Btn_AGEMONVM1
        MsgBox(0, "Ping Result", Ping("www.google.com"))
    EndSwitch
    If (NOT Mod(@Min, 5)) AND @SEC = 0 Then _PingIt()
WEnd

Func _PingIt()
    If Ping("www.google.com", 1000) Then
    ;If $AGEMONVM1 Then
        GUICtrlSetBkColor($Btn_AGEMONVM1, 0x009900)
    Else
        GUICtrlSetBkColor($Btn_AGEMONVM1, 0xCC0000)
    EndIf
    If Ping("www.autoitscript.com", 1000) Then
    ;If $AGEKEYS3 Then
        GUICtrlSetBkColor($Btn_AGEKEYS3, 0x009900)
    Else
        GUICtrlSetBkColor($Btn_AGEKEYS3, 0xCC0000)
    EndIf
EndFunc
; Cancel then Exit the program
Func ExitPressed()
  Local $Exit
    $Exit = MsgBox(262452,"Cancel","Are you sure you want to Cancel and then Exit?")
    If $Exit = 6 Then
    Exit
    Endif
EndFunc

[TheBG]

nevermind. I just saw where it runs the pingit func every 5 minutes. lol