AutoIt Français

Code : Tout sélectionner

Global $Actif = 0

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            If $Actif = 1 Then
                GUICtrlSetData($Button1, "Démarrer")
                $Actif = 0
                AdlibUnRegister("xxxxx")
            Else
                GUICtrlSetData($Button1, "Arrêter")
                $Actif = 1
                AdlibRegister("xxxxx", 2000)
            EndIf
    EndSwitch
WEnd

Func xxxxx()
    If FileExists("test.txt") Then
        $label = "Fichier test.txt présent"
        GUICtrlSetColor($Label1, 0x00ff00)
    Else
        $label = "Fichier test.txt absent"
        GUICtrlSetColor($Label1, 0xff0000)
    EndIf

    GUICtrlSetData($Label1, $label)
EndFunc   ;==>xxxxx

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
Opt("GuiOnEventMode", 1)

GUICreate("My GUI", 100, 100) 
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
$label = GUICtrlCreateLabel("", 40, 20, 30, 20)
GUICtrlSetBkColor(-1, 0xffffff)
$btn = GUICtrlCreateButton("start", 20, 50, 50, 20)
GUICtrlSetOnEvent(-1, "_stop")
GUISetState()  

Global $stop = 1
While 1 
  If not $stop Then _surveille("test.txt")
Wend

;===================================
Func _surveille($file)
  If FileExists($file) Then
    GUICtrlSetBkColor($label, 0x00ff00)
  Else
    GUICtrlSetBkColor($label, 0xff0000)
  EndIf
  Sleep(1000)
  If $stop Then Return
EndFunc

Func _stop()
  $stop = not $stop
  If not $stop Then GuiCtrlSetData($btn, "stop")
  If $stop Then 
      GuiCtrlSetData($btn, "start")
      GUICtrlSetBkColor($label, 0xffffff)
  EndIf
EndFunc

Func _exit()
  Exit
EndFunc
 

Code : Tout sélectionner

Global $actif = 1
Global $__g_iTimer = TimerInit()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            If $actif = 1 Then
                GUICtrlSetData($Button1, "Démarrer")
                $actif = 0
            Else
                GUICtrlSetData($Button1, "Arrêter")
                $actif = 1
            EndIf
    EndSwitch
    ; ---
    _Verifier()
WEnd

Func _Verifier()
    If Not $actif Or TimerDiff($__g_iTimer) < 2000 Then Return
    $__g_iTimer = TimerInit()
    ; ---
    If FileExists("test.txt") Then
        $label = "Fichier test.txt présent"
        GUICtrlSetColor($Label1, 0x00ff00)
    Else
        $label = "Fichier test.txt absent"
        GUICtrlSetColor($Label1, 0xff0000)
    EndIf
    ; ---
    GUICtrlSetData($Label1, $label)
EndFunc