AutoIt Français

Bonjour,

Avec l'aide de quelques scripts que j'ai trouvé sur différents sites et forums j'ai plus ou moins réussis à faire ce que je voulais c'est à dire un exe a son lancement qui m'ouvre et démarre mes serveur via un batch.

Mon Problème :
Au lancement de mon exe tous fonctionne bien sauf que mon Démarrer est Normal et mon Arrêté est Grisé (pas cliquable) j'aimerai faire l'inverse (logique en même temps)

Voila le code de mon menu systray :

► Afficher le texte

Code : Tout sélectionner

#include <Constants.au3>
Dim $ConfigFile ;Configuration File
Dim $ImageFile ;Image to be shown.  Must be BMP,GIF or JPG
Dim $ImageWidth ;Width of the image to display in pixels
Dim $ImageHeight ;Height of image in pixels
Dim $Title ;Title to be displayed
Dim $ShowTime ;Length of time to display image in seconds
Dim $ShowTitle ;Determine whether or not to display the title
Dim $ShowTitleSetting ;Setting for ShowTitle

; Variables du script
$AppVersion = "0.2"

; Configuration
$DPStart = Run("serveurdp\Start.bat")
$ZMWSCmdLineStart = "-browse -stop -closebrowser -p " 
$ZMWSCmdLineStop = Run("serveurdp\Stop.bat")

; Variables globales
Opt("TrayMenuMode", 1) ; Don't show the default tray context menu
; Recherche une sous-chaine dans le titre des fenêtre
Opt("WinTitleMatchMode", 2)

Global Const $MIM_APPLYTOSUBMENUS   = 0x80000000
Global Const $MIM_BACKGROUND        = 0x00000002



;TraySetIcon("shell32.dll", 21)
TraySetToolTip("DP49 Serveur")
TrayTip("Depann49", "Lancement du Serveur ...", 5, 1)

$mnuZMWSStart   = TrayCreateItem("Démarrer")
$mnuZMWSStop  = TrayCreateItem("Arrêter")

TrayCreateItem("")
$Appli = TrayCreateMenu("Application")
$AppliDirect= TrayCreateItem("Application Direct", $Appli)
$Gmap= TrayCreateItem("GoogleMap", $Appli)

TrayCreateItem("")
$Admin = TrayCreateMenu("Administration")
$PHPMyAdmin= TrayCreateItem("PHPMyAdmin", $Admin)
$PANELADMIN = TrayCreateItem("Panel Admin", $Admin)

TrayCreateItem("")
$mnuAbout = TrayCreateItem("A propos")
$mnuQuit  = TrayCreateItem("Quitter")

If $ConfigFile = "Error" Then Exit

$ImageFile = IniRead($ConfigFile,"General","ImageFile","serveurdp/Logo.jpg")

If StringMid($ImageFile,2,1)<>":" and StringMid($ImageFile,2,1)<>"\" Then
    $ImageFile = @ScriptDir & "\" & $ImageFile
EndIf

If Not FileExists($ImageFile) Then Exit

$ImageHeight = IniRead($ConfigFile,"General","ImageHeight",160)
$ImageWidth = IniRead($ConfigFile,"General","ImageWidth",500)
$Title = IniRead($ConfigFile,"General","Title","Depann49 Serveur")
$ShowTime = IniRead($ConfigFile,"General","ShowTime",2)
$ShowTitle = IniRead($ConfigFile,"General","ShowTitle",False)

If $ShowTitle = True Then
    $ShowTitleSetting = -1
Else
    $ShowTitleSetting = 1
EndIf


SplashImageOn($Title,$ImageFile,$ImageWidth,$ImageHeight,-1,-1,$ShowTitleSetting)
Sleep($ShowTime * 500)
SplashOff()



SetMenuColor(0, 0xEEBB99)   ; BGR color value, '0' means the tray context menu handle itself

While 1
    $Msg = TrayGetMsg()

    Switch $Msg
        Case $mnuZMWSStart
            ZMWSStart()

        Case $mnuZMWSStop
            ZMWSStop()


            
Case $Appli            
         ShellExecute("http://127.0.0.1:9080/")    
      Case $AppliDirect          
         ShellExecute("http://127.0.0.1:9080/") 
      Case $Gmap          
         ShellExecute("http://mapage.free.fr/googlemap2.html")
    
         Case $PHPMyAdmin            
         ShellExecute("http://127.0.0.1:9080/apanel/phpMyAdmin")               
        Case $PANELADMIN
            ShellExecute("http://127.0.0.1:9080/apanel/")   


        Case $mnuAbout
            Msgbox(64, "A propos...", "DEP49 Server Manager" & @CRLF & "Version AutoIt " & $AppVersion)

        Case $mnuQuit
            ZMWSStop()
            ExitLoop
    EndSwitch   
    
    ; MAJ du menu selon le serveur
    UpdateMenu()

WEnd

Exit

;--------------------------------------------------------------------------------
; ZMWSStop : Stop ZMWS
;--------------------------------------------------------------------------------
Func ZMWSStop()
    Run("serveurdp\Stop.bat")
EndFunc


;--------------------------------------------------------------------------------
; ZMWSStart : Start ZMWS
;--------------------------------------------------------------------------------
Func ZMWSStart()
    Run($DPStart & " " & $ZMWSCmdLineStart)
EndFunc


;--------------------------------------------------------------------------------
; UpdateMenu : MAJ du menu selon l'état du serveur
;--------------------------------------------------------------------------------
Func UpdateMenu()
    
    ; MAJ des menus selon ZMWS
    If ProcessExists($DPStart) Then
        TrayItemSetState($mnuZMWSStart, $TRAY_CHECKED + $TRAY_DISABLE)
        TrayItemSetState($mnuZMWSStop, $TRAY_ENABLE +  $TRAY_DEFAULT)
        
    Else
        TrayItemSetState($mnuZMWSStart, $TRAY_UNCHECKED + $TRAY_ENABLE +  $TRAY_DEFAULT)
        TrayItemSetState($mnuZMWSStop, $TRAY_DISABLE)
        
    EndIf
    
    ; MAJ des menus de la console
    ; Récupère l'état de la fenêtre de la console
    $state = WinGetState($DPStart, "")

    ; Test si fenêtre visible
    If BitAnd($state, 2) Then   ; 2 = Visible
    
    EndIf
EndFunc 


; Apply the color to the menu
Func SetMenuColor($nMenuID, $nColor)
    ; Minimum OS are Windows98 and 2000 
    If @OSVersion = "WIN_95" Or @OSVersion = "WIN_NT4" Then Return
    
    $hMenu  = TrayItemGetHandle($nMenuID) ; Get the internal menu handle
    
    $hBrush = DllCall("gdi32.dll", "hwnd", "CreateSolidBrush", "int", $nColor)
    $hBrush = $hBrush[0]
        
    Local $stMenuInfo = DllStructCreate("dword;dword;dword;uint;dword;dword;ptr")
    DllStructSetData($stMenuInfo, 1, DllStructGetSize($stMenuInfo))
    DllStructSetData($stMenuInfo, 2, BitOr($MIM_APPLYTOSUBMENUS, $MIM_BACKGROUND))
    DllStructSetData($stMenuInfo, 5, $hBrush)
    
    DllCall("user32.dll", "int", "SetMenuInfo", "hwnd", $hMenu, "ptr", DllStructGetPtr($stMenuInfo))
EndFunc

J'en profite pour demandé aussi comment faire pour ajouté un texte sur la tranche du menu (Partie blanche a gauche du menu), j'ai trouvé pas mal de scripts mais impossible de l'ajouté sur celui-ci.

En vous remerciant pour votre aide.

Et les règles de présentation d'un message ?

hein ?

Oups désole pour l'oublie je corrige cela

pour grisé le contrôle du menu systray

Code : Tout sélectionner

TrayItemSetState($Tray_ControlID,128) ; $TRAY_DISABLE

Merci mais comme la méthode posté sur le script original quand le Démarrer est grisé et que je clique sur Arrêter mon serveur s'arrête bien mais par contre le démarrer reste grisé donc obligé de relancer l'exe

Pour enlever le grisé du controle du menu systray :
TrayitemSetState($Tray_ControlID , 64)

Pour faire ce que tu souhaites :

Lorsque l'on clic sur le tray démarrer :

Code : Tout sélectionner

TrayItemSetState($mnuZMWSStart , 128) ; On désactive le menu démarrer
TrayitemSetState($mnuZMWSStop, 64)   ; On active le menu Arrêter

Lorsque l'on clic sur le tray arrêter :

Code : Tout sélectionner

TrayitemSetState($mnuZMWSStart, 64) ; On active le menu démarrer
TrayitemSetState($mnuZMWSStop, 128) ; On désactive le menu Arrêter

En intégrant ceci dans l'intégralité de ton script cela donne :

► Afficher le texte

Merci jumby j'essaye cela

EDITON :
J'ai essayé mais j'ai toujours le même résultat c'est a dire au lancement de l'exe le démarrer est bien grisé et pas l'arrêter, par contre après le lancement total de l'appli c'est l'inverse donc Démarrer Visible et Arrête (Grisé).
J'ai essayé pas mal de truc cette nuit et j'ai toujours le même résultat a ce demandé si c'est pas mes fichiers .bat qui foute le bordel non ?

J'ai testé ton script avec seulement l'affichage du systray. Cela marche nickel pour moi.

ça donne ceci lorsque l'on met que le systray. Constate par toi même l'effet désiré est là :

► Afficher le texte

Merci ,

Alors la cela ne me grise ni l'un ni l'autre par contre

PS: moi aussi l'autre fonctionne mais au bout de quelques secondes le temps que le bat se ferme il me grise le arrêter.

Alors j'ai trouvé ce qui posait le problème.
Dans ton script, il y a une fonction appelée UpdateMenu() dans laquelle il y a :

Code : Tout sélectionner

Func UpdateMenu()
   
    ; MAJ des menus selon ZMWS
    If ProcessExists($DPStart) Then
        TrayItemSetState($mnuZMWSStart, $TRAY_CHECKED + $TRAY_DISABLE)
        TrayItemSetState($mnuZMWSStop, $TRAY_ENABLE +  $TRAY_DEFAULT)
       
    Else
        TrayItemSetState($mnuZMWSStart, $TRAY_UNCHECKED + $TRAY_ENABLE +  $TRAY_DEFAULT)
        TrayItemSetState($mnuZMWSStop, $TRAY_DISABLE)
       
    EndIf
   
    ; MAJ des menus de la console
    ; Récupère l'état de la fenêtre de la console
    $state = WinGetState($DPStart, "")

    ; Test si fenêtre visible
    If BitAnd($state, 2) Then   ; 2 = Visible
   
    EndIf
EndFunc

Cette fonction modifie l'affichage des tray, à la condition que le processexist soit valide :
If ProcessExists($DPStart) Then

Or, au début du fichier, tu as défini la variable $DPStart comme ceci :
$DPStart = Run("serveurdp\Start.bat")

La fonction ProcessExists est donc jamais vraie, puisque tu n'as pas définit la variable $DPStart comme le nom du fichier (ne doitt pas contenir de répertoire). De plus, l'exécution de fichier .bat ne constitue pas de processus autre que 'cmd.exe'. Il est donc impossible de garder la fonction telle qu'elle en utilisant des fichiers .bat.

Je te propose donc de passer par la fonction UpdateMenu en la modifiant, dans ce cas ton script aura le code suivant :

► Afficher le texte

Cette proposition de modification a un défaut.
Le systray sera mis à jour même si l'exécution ne c'est pas faite correctement.
Si tu tiens vraiment à modifier ton systray lorsque l'exécution se fait correctement fait moi le savoir j'pourrais te modifier cela.

Merci à toi j'avoue que je doit analysé ton post pour comprendre tous cela lol

Apparemment entre deux rouleaux de peinture le système fonctionne il y a juste le démarré qui ne fait pas l'action start.bat mais cela ne doit être rien je fait regardé cela, par contre par défaut donc dès que je le lance le exe, les deux sont Normal (Démarrer et Arrêté) par contre si je fait Arrêté le serveur s'arrête bien et le Démarrer est grisé et idem si j'appuie sur démarrer l'arrêté est grisé

Je te remercie beaucoup je vais finir ma peinture et regardé cela pour comprendre et réparé le bug du démarrer

Je te tient au courant

EDITION:
Concernant le bug du démarré sans l'action start.bat j'ai changé cela :

Code : Tout sélectionner

Func ZMWSStart()
Run($DPStart & " " & $ZMWSCmdLineStart)
EndFunc

EN

Code : Tout sélectionner

Func ZMWSStart()
Run("serveurdp\Start.bat")
EndFunc

Et cela fonctionne bien apparemment

reste le Démarrer par défaut a grisé
Encore merci

Essai ceci :

► Afficher le texte

Des petites captures pour mieux comprendre :

Au lancement de mon exe :

J'appuie sur Arrêté :

J'appuie sur Démarrer :

jumby : Rapide toi je t'en remercie, ton nouveau code me fait l'inverse donc le Arrêté en grisé lol décidément

Et là ? ^^

► Afficher le texte

Ha ba la j'ai une erreur direct sans lancement

TrayItemSetState($$mnuZMWSStart, $TRAY_DISABLE)
TrayItemSetState(^ ERROR
>Exit code: 1 Time: 0.220

Erreur de syntaxe désolé. Décidément j'fais que de la ***** :

TrayItemSetState($mnuZMWSStart, $TRAY_DISABLE)

► Afficher le texte

Code : Tout sélectionner

#include <Constants.au3>
Dim $ConfigFile ;Configuration File
Dim $ImageFile ;Image to be shown. Must be BMP,GIF or JPG
Dim $ImageWidth ;Width of the image to display in pixels
Dim $ImageHeight ;Height of image in pixels
Dim $Title ;Title to be displayed
Dim $ShowTime ;Length of time to display image in seconds
Dim $ShowTitle ;Determine whether or not to display the title
Dim $ShowTitleSetting ;Setting for ShowTitle

; Variables du script
$AppVersion = "0.2"

; Configuration
$DPStart = Run("serveurdp\Start.bat")
$ZMWSCmdLineStart = "-browse -stop -closebrowser -p "
$ZMWSCmdLineStop = Run("serveurdp\Stop.bat")

; Variables globales
Opt("TrayMenuMode", 1) ; Don't show the default tray context menu
; Recherche une sous-chaine dans le titre des fenêtre
Opt("WinTitleMatchMode", 2)

Global Const $MIM_APPLYTOSUBMENUS = 0x80000000
Global Const $MIM_BACKGROUND = 0x00000002



;TraySetIcon("shell32.dll", 21)
TraySetToolTip("DP49 Serveur")
TrayTip("Depann49", "Lancement du Serveur ...", 5, 1)

$mnuZMWSStart = TrayCreateItem("Démarrer")
TrayItemSetState($mnuZMWSStart, $TRAY_DISABLE)
$mnuZMWSStop = TrayCreateItem("Arrêter")

TrayCreateItem("")
$Appli = TrayCreateMenu("Application")
$AppliDirect= TrayCreateItem("Application Direct", $Appli)
$Gmap= TrayCreateItem("GoogleMap", $Appli)

TrayCreateItem("")
$Admin = TrayCreateMenu("Administration")
$PHPMyAdmin= TrayCreateItem("PHPMyAdmin", $Admin)
$PANELADMIN = TrayCreateItem("Panel Admin", $Admin)

TrayCreateItem("")
$mnuAbout = TrayCreateItem("A propos")
$mnuQuit = TrayCreateItem("Quitter")

If $ConfigFile = "Error" Then Exit

$ImageFile = IniRead($ConfigFile,"General","ImageFile","serveurdp/Logo.jpg")

If StringMid($ImageFile,2,1)<>":" and StringMid($ImageFile,2,1)<>"\" Then
$ImageFile = @ScriptDir & "\" & $ImageFile
EndIf

If Not FileExists($ImageFile) Then Exit

$ImageHeight = IniRead($ConfigFile,"General","ImageHeight",160)
$ImageWidth = IniRead($ConfigFile,"General","ImageWidth",500)
$Title = IniRead($ConfigFile,"General","Title","Depann49 Serveur")
$ShowTime = IniRead($ConfigFile,"General","ShowTime",2)
$ShowTitle = IniRead($ConfigFile,"General","ShowTitle",False)

If $ShowTitle = True Then
$ShowTitleSetting = -1
Else
$ShowTitleSetting = 1
EndIf


SplashImageOn($Title,$ImageFile,$ImageWidth,$ImageHeight,-1,-1,$ShowTitleSetting)
Sleep($ShowTime * 500)
SplashOff()



SetMenuColor(0, 0xEEBB99) ; BGR color value, '0' means the tray context menu handle itself

While 1
$Msg = TrayGetMsg()

Switch $Msg
Case $mnuZMWSStart
TrayItemSetState($mnuZMWSStart, $TRAY_CHECKED + $TRAY_DISABLE)
TrayItemSetState($mnuZMWSStop, $TRAY_ENABLE + $TRAY_DEFAULT)
ZMWSStart()
Case $mnuZMWSStop
TrayItemSetState($mnuZMWSStart, $TRAY_UNCHECKED + $TRAY_ENABLE + $TRAY_DEFAULT)
TrayItemSetState($mnuZMWSStop, $TRAY_DISABLE)
ZMWSStop()


Case $Appli
ShellExecute("http://127.0.0.1:9080/")
Case $AppliDirect
ShellExecute("http://127.0.0.1:9080/")
Case $Gmap
ShellExecute("http://mapage.free.fr/googlemap2.html")

Case $PHPMyAdmin
ShellExecute("http://127.0.0.1:9080/apanel/phpMyAdmin")
Case $PANELADMIN
ShellExecute("http://127.0.0.1:9080/apanel/")


Case $mnuAbout
Msgbox(64, "A propos...", "DEP49 Server Manager" & @CRLF & "Version AutoIt " & $AppVersion)

Case $mnuQuit
ZMWSStop()
ExitLoop
EndSwitch

; MAJ du menu selon le serveur
UpdateMenu()

WEnd

Exit

;--------------------------------------------------------------------------------
; ZMWSStop : Stop ZMWS
;--------------------------------------------------------------------------------
Func ZMWSStop()
Run("serveurdp\Stop.bat")
EndFunc


;--------------------------------------------------------------------------------
; ZMWSStart : Start ZMWS
;--------------------------------------------------------------------------------
Func ZMWSStart()
Run($DPStart & " " & $ZMWSCmdLineStart)
EndFunc


;--------------------------------------------------------------------------------
; UpdateMenu : MAJ du menu selon l'état du serveur
;--------------------------------------------------------------------------------
Func UpdateMenu()


; MAJ des menus de la console
; Récupère l'état de la fenêtre de la console
$state = WinGetState($DPStart, "")

; Test si fenêtre visible
If BitAnd($state, 2) Then ; 2 = Visible

EndIf
EndFunc


; Apply the color to the menu
Func SetMenuColor($nMenuID, $nColor)
; Minimum OS are Windows98 and 2000
If @OSVersion = "WIN_95" Or @OSVersion = "WIN_NT4" Then Return

$hMenu = TrayItemGetHandle($nMenuID) ; Get the internal menu handle

$hBrush = DllCall("gdi32.dll", "hwnd", "CreateSolidBrush", "int", $nColor)
$hBrush = $hBrush[0]

Local $stMenuInfo = DllStructCreate("dword;dword;dword;uint;dword;dword;ptr")
DllStructSetData($stMenuInfo, 1, DllStructGetSize($stMenuInfo))
DllStructSetData($stMenuInfo, 2, BitOr($MIM_APPLYTOSUBMENUS, $MIM_BACKGROUND))
DllStructSetData($stMenuInfo, 5, $hBrush)

DllCall("user32.dll", "int", "SetMenuInfo", "hwnd", $hMenu, "ptr", DllStructGetPtr($stMenuInfo))
EndFunc

Zenn t'inquiète pas c'est pas moi qui va te dire quelque chose pour une erreur vu ce que tu fait pour moi

Par contre le dernier aussi :

Code : Tout sélectionner

TrayItemSetState($$mnuZMWSStart, $TRAY_DISABLE) 
TrayItemSetState(^ ERROR
>Exit code: 1    Time: 0.212

Non c'est bon juste que j'ai recopier le spoiler lol

C'est bon sa fonctionne niquel la

Je te remercie énormément

Dit moi j'en profite aussi pour ma seconde question avec un tel code est ce laborieux de rajouter un texte comme sur la capture ci dessous ou c'est juste une ligne ??

AutoIt Français

[R] Menu Systray Grisé le Démarrer

[R] Menu Systray Grisé le Démarrer

Re: Menu Systray Grisé le Démarrer

Re: Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer

Re: [..] Menu Systray Grisé le Démarrer