AutoIt Français

Code : Tout sélectionner

;Mise en place du menu de la TrayIcon
Opt("TrayMenuMode",1)   ; Default tray menu items (Script Paused/Exit) will not be shown.
Local $aboutitem  = TrayCreateItem(" About")
Local $exititem   = TrayCreateItem(" Exit")
TraySetState()      ;   Shows the tray icon (default)

MsgBox(0, "Autorun_CCI",   $aboutitem & " - " & $exititem & " - Error: "& Hex(@error, 8) , 2 )

$My_msg=""
$i = 0
 While 1
    sleep( 100 )
    ;
    ; Si vous décommentez la ligne du MsgBox cela ne fonctionne plus?
    ;
    ;$My_msg =  MsgBox(64, "In While:",  TrayGetMsg() & " - " &   $i , 6)

    ; Détection des messages de la Systray
        Local $msg    = TrayGetMsg()
            Select
                Case $msg = $aboutitem
                    MsgBox(64, "About:", $aboutitem & " Menu Test * " & $My_msg & $i, 2)
                Case $msg = $exititem
                    ExitLoop
            EndSelect
            $i += 1
WEnd

Code : Tout sélectionner

;Mise en place du menu de la TrayIcon
Opt("TrayMenuMode",1)   ; Default tray menu items (Script Paused/Exit) will not be shown.
Local $aboutitem  = TrayCreateItem(" About")
Local $exititem   = TrayCreateItem(" Exit")
TraySetState()      ;   Shows the tray icon (default)

MsgBox(0, "Autorun_CCI",   $aboutitem & " - " & $exititem & " - Error: "& Hex(@error, 8) , 2 )

$My_msg=""
$i = 0
$Timer = TimerInit() ; On démarre un timer (sorte de chronomètre)
 While 1
    sleep( 100 )
    ;
    ; Si vous décommentez la ligne du MsgBox cela ne fonctionne plus?
    ;
    If TimerDiff($Timer) >= 1000 Then ; On vérifis si le timer est à plus de 6 secondes
        ConsoleWrite( TrayGetMsg() & " - " &   $i &@CRLF) ; Si c'est le cas, on affiche le résultat dans la console
        $Timer = TimerInit() ; Et on remet le timer à 0
    EndIf

    ; Détection des messages de la Systray
        Local $msg    = TrayGetMsg()
            Select
                Case $msg = $aboutitem
                    MsgBox(64, "About:", $aboutitem & " Menu Test * " & $My_msg & $i, 2)
                Case $msg = $exititem
                    ExitLoop
            EndSelect
            $i += 1
WEnd

Code : Tout sélectionner

;Mise en place du menu de la TrayIcon
Opt("TrayMenuMode",1)   ; Default tray menu items (Script Paused/Exit) will not be shown.
Local $aboutitem  = TrayCreateItem(" About")
Local $exititem   = TrayCreateItem(" Exit")
TraySetState()      ;   Shows the tray icon (default)

MsgBox(0, "Autorun_CCI",   $aboutitem & " - " & $exititem & " - Error: "& Hex(@error, 8) , 2 )

$My_msg=""
$i = 0
SplashTextOn("In While:", TrayGetMsg() & " - " &   $i, 600, 100) ; On affiche un SplashText (sorte de MsgBox mais que ne bloque pas le script)
$Timer = TimerInit()
 While 1
    sleep( 100 )
    ;
    ; Si vous décommentez la ligne du MsgBox cela ne fonctionne plus?
    ;
    If TimerDiff($Timer) >= 1000 Then
        ControlSetText("In While:", "", "Static1", TrayGetMsg() & " - " &   $i) ; Si c'est le cas, on affiche le résultat dans le SplashText
        $Timer = TimerInit()
    EndIf

    ; Détection des messages de la Systray
        Local $msg    = TrayGetMsg()
            Select
                Case $msg = $aboutitem
                    MsgBox(64, "About:", $aboutitem & " Menu Test * " & $My_msg & $i, 2)
                Case $msg = $exititem
                    ExitLoop
            EndSelect
            $i += 1
WEnd

Code : Tout sélectionner

Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode",1)  
Local $aboutitem  = TrayCreateItem(" About")
TrayItemSetOnEvent(-1, "_About")
Local $exititem   = TrayCreateItem(" Exit")
TrayItemSetOnEvent(-1, "_Exit")
TraySetState() 

 While 1
    sleep( 100 )
    $My_msg =  MsgBox(64, "In While", "In While" , 4)
WEnd

Func _About()
   MsgBox(64, "About", "About")
EndFunc

Func _Exit()
   Exit
EndFunc