doesn't close

[d0n]

How come the on event close does not seem to work?

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Server Status", 80, 40)
$Label1 = GUICtrlCreateLabel("", 10, 10, 70, 20)
GUISetState(@SW_SHOW)

Gui()

Func Check()
    $var = Ping("75.150.216.162",250)
    If $var Then
        GUICtrlSetData($Label1, "Server Online")
    Else
        GUICtrlSetData($Label1, "Server Offline")
    EndIf
EndFunc

Func Gui()
    While 1
        $Msg = GUIGetMsg()
        If $Msg = $GUI_EVENT_CLOSE Then
            Exit
        EndIf
        Check()
        Sleep(500)
    WEnd
EndFunc

[enaiman]

Sleep inside main loop in this mode = big NO-NO.

Use OnEvent Mode if you need sleep time or, put the sleep inside your Check() function.

[d0n]

That still doesn't close my GUI, unless i missed something :S

[Valuater]

The sleep(500) was "most" of the prob AFAIK

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $Ping_Complete = False

$Form1 = GUICreate("Server Status", 80, 40)
$Label1 = GUICtrlCreateLabel("", 10, 10, 70, 20)
GUISetState(@SW_SHOW)

Gui()

Func Check()
    $var = Ping("75.150.216.162", 250)
    If $var Then
        GUICtrlSetData($Label1, "Server Online")
    Else
        GUICtrlSetData($Label1, "Server Offline")
    EndIf
    $Ping_Complete = True
EndFunc   ;==>Check

Func Gui()
    While 1
        $Msg = GUIGetMsg()
        If $Msg = $GUI_EVENT_CLOSE Then
            Exit
        EndIf
        If Not $Ping_Complete Then Check()
    WEnd
EndFunc   ;==>Gui

8)

[d0n]

thanks for the help