#include <GUIConstants.au3>
#include <Constants.au3>

GUICreate("Online Status", 800, 600)

$a=GUICtrlCreateGraphic(1, 1, 798, 598)
GUICtrlSetColor($a, 0xff0000)
GUICtrlSetBkColor($a, 0xff0000)
GUISetState(@SW_SHOW)

WinMove("Online Status", "", 100, 100)

While 1
    $msg = GUIGetMsg()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop

        Case Else
          $foo = Run(@ComSpec & " /c perl d:\jarod\autoit\check_online.pl", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
          $line = StdoutRead($foo)
          If $line == "Yes" Then
            GUICtrlSetColor($a, 0x00ff00)
            GUICtrlSetBkColor($a, 0x00ff00)
            ExitLoop
          Else
            GUICtrlSetColor($a, 0xff0000)
            GUICtrlSetBkColor($a, 0xff0000)
          EndIf
          Sleep(2000)
    EndSelect
WEnd 

MsgBox(0, "Yay!", "Back online!")