[R] Menu d'execution de logiciels

[mdavy]

Bonjour à toute la communauté Autoit.

C'est mon premier post et je cherche un petit coup demain je suis débutant en programmation et sur Autoit (ca n'aide pas me direz-vous) mais je pense que ça ne devrait pas être trop dur pour vous experts que vous êtes

Voila j'ai crée un petit menu via "Koda" avec des boutons qui liste une série de logiciels que je souhaite pouvoir exécuter quand je clique dessus.

Je souhaite quand je clique sur le bouton "Firefox" exécuter le logiciel Firefox portable mais je ne sais pas par ou commencer.

ci-dessous le code en question :

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 Version:       1
 Author:        MDA

 Script Function:
    Boite à outils

#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=D:\DATA\m.davy\Desktop\menu.kxf
Global $Form2 = GUICreate("Boite à Outils Kaori", 410, 307, 367, 341, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
GUISetIcon("C:\Users\titi\Desktop\Kaori.ico", -1)
GUISetBkColor(0xFFFFFF)
Global $PageControl1 = GUICtrlCreateTab(8, 8, 396, 256)
Global $TabSheet1 = GUICtrlCreateTabItem("Optimisation")
Global $Button3 = GUICtrlCreateButton("Button3", 32, 48, 105, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Button4 = GUICtrlCreateButton("Button4", 152, 48, 105, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Button5 = GUICtrlCreateButton("Button5", 272, 48, 105, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Pic1 = GUICtrlCreatePic("C:\Users\titi\Desktop\Kaori.jpg", 8, 33, 393, 231)
Global $TabSheet2 = GUICtrlCreateTabItem("Diagnostique")
Global $Button6 = GUICtrlCreateButton("Button6", 32, 48, 105, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Button7 = GUICtrlCreateButton("Button4", 152, 48, 105, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Button8 = GUICtrlCreateButton("Button5", 272, 48, 105, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Pic2 = GUICtrlCreatePic("C:\Users\titi\Desktop\Kaori.jpg", 8, 33, 393, 231)
Global $TabSheet3 = GUICtrlCreateTabItem("BSOD")
Global $Button9 = GUICtrlCreateButton("Button6", 32, 48, 105, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Button10 = GUICtrlCreateButton("Button4", 152, 48, 105, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Button11 = GUICtrlCreateButton("Button5", 272, 48, 105, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
Global $Pic3 = GUICtrlCreatePic("C:\Users\titi\Desktop\Kaori.jpg", 8, 33, 393, 231)
Global $TabSheet4 = GUICtrlCreateTabItem("Virus")
Global $Button12 = GUICtrlCreateButton("Button6", 32, 48, 105, 33)
Global $Button13 = GUICtrlCreateButton("Button4", 152, 48, 105, 33)
Global $Button14 = GUICtrlCreateButton("Button5", 272, 48, 105, 33)
Global $Pic4 = GUICtrlCreatePic("C:\Users\titi\Desktop\Kaori.jpg", 8, 33, 393, 231)
Global $TabSheet5 = GUICtrlCreateTabItem("Restauration")
Global $Button15 = GUICtrlCreateButton("Button6", 32, 48, 105, 33)
Global $Button16 = GUICtrlCreateButton("Button4", 152, 48, 105, 33)
Global $Button17 = GUICtrlCreateButton("Button5", 272, 48, 105, 33)
Global $Pic5 = GUICtrlCreatePic("C:\Users\titi\Desktop\Kaori.jpg", 8, 33, 393, 231)
Global $TabSheet6 = GUICtrlCreateTabItem("Autres")
Global $Button18 = GUICtrlCreateButton("Firefox", 32, 48, 105, 33)
Global $Button19 = GUICtrlCreateButton("Button4", 152, 48, 105, 33)
Global $Button20 = GUICtrlCreateButton("Button5", 272, 48, 105, 33)
Global $Pic6 = GUICtrlCreatePic("C:\Users\titi\Desktop\Kaori.jpg", 8, 33, 393, 231)
GUICtrlCreateTabItem("")
Global $Button1 = GUICtrlCreateButton("&Installer", 238, 272, 75, 25)
Global $Button2 = GUICtrlCreateButton("&Information", 328, 272, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



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

 EndSwitch
WEnd
 

[jguinch]

Un bon début serait de mettre le titre du message en conformité avec les règles de présentation d'un message.

[walkson]

Bonjour,
je vous propose 3 solutions (pour activer le code retirez le ; et inversement)
modifiez while par:

Code : Tout sélectionner

    While 1
     $nMsg = GUIGetMsg()
     Switch $nMsg
      Case $GUI_EVENT_CLOSE
       Exit
         Case $Button18
            ;Au choix 3 solutions
            ; ShellExecute(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe ")
            ; Run("C:\Program Files\Mozilla Firefox\firefox.exe ")
             $valFirefox = '-no-remote -p "Utilisateur par défaut"'
            ; Run(@ProgramFilesDir & "\Mozilla Firefox\firefox " & $valFirefox,@SystemDir,@SW_SHOW)
     EndSwitch
    WEnd

La troisième solution permet d'utiliser une session par défaut ou à son nom

[mdavy]

Bonjour,

Un grand merci à Walkson pour ton aide car cela fonctionne maintenant j'ai retenu la solution N°1 .

Cordialement