AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=F:\pi\forum\runadminpi.kxf
Global $Form1 = GUICreate("Exécution d'un programme en mode administrateur", 559, 447, 192, 124)
GUISetBkColor(0x00FFFF)
Global $Inp_user = GUICtrlCreateInput("Inp_user", 120, 30, 261, 21)
Global $inp_password = GUICtrlCreateInput("inp_password", 120, 70, 261, 21)
Global $inp_domaine = GUICtrlCreateInput("inp_domaine", 120, 120, 261, 21)
Global $Inp_fichier = GUICtrlCreateInput("Inp_fichier", 120, 165, 261, 21)
Global $nom_parametrage = GUICtrlCreateInput("nom_parametrage", 120, 215, 151, 21)
Global $Pic1 = GUICtrlCreatePic("C:\drvpi\instalpi\logopi.bmp", 235, 270, 305, 145, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $but_enregistrer = GUICtrlCreateButton("Enregistrer", 275, 215, 100, 20, $BS_FLAT)
Global $but_tester = GUICtrlCreateButton("Tester", 50, 270, 100, 30, $BS_FLAT)
Global $Label1 = GUICtrlCreateLabel("Nom de l'utilisateur", 5, 30, 92, 17)
Global $Label2 = GUICtrlCreateLabel("Mot de passe", 5, 75, 68, 17)
Global $Label3 = GUICtrlCreateLabel("Nom du domaine", 5, 125, 84, 17)
Global $Label4 = GUICtrlCreateLabel("Fichier à exécuter", 5, 170, 88, 17)
Global $Parcourir = GUICtrlCreateButton("Parcourir", 390, 165, 100, 20, $BS_FLAT)
Global $Afficher = GUICtrlCreateButton("Afficher", 390, 70, 70, 20, $BS_FLAT)
Global $Cacher = GUICtrlCreateButton("Cacher", 390, 70, 70, 20, $BS_FLAT)
Global $Quitter = GUICtrlCreateButton("Quitter", 50, 380, 100, 30, $BS_FLAT)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xFF0000)
Global $parcourir_ini = GUICtrlCreateButton("Recharger un fichier *..ini", 390, 215, 150, 20, $BS_FLAT)
Global $Label5 = GUICtrlCreateLabel("Nom du fichier ini", 5, 220, 85, 17)
Global $Aide = GUICtrlCreateButton("Aide", 50, 325, 100, 30, $BS_FLAT)
GUICtrlSetBkColor(-1, 0x00FF00)
Global $Label6 = GUICtrlCreateLabel("Version du 26 05 2009", 410, 5, 111, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

  Case $Form1
  Case $Form1
  Case $Form1
  Case $Form1
  Case $Inp_user
  Case $inp_password
  Case $inp_domaine
  Case $Inp_fichier
  Case $nom_parametrage
  Case $but_enregistrer
  Case $but_tester
  Case $Pic1
  Case $Label1
  Case $Label2
  Case $Label3
  Case $Label4
  Case $Parcourir
  Case $Afficher
  Case $Cacher
  Case $Quitter
  Case $parcourir_ini
  Case $Label5
  Case $Aide
  Case $Label6
 EndSwitch
WEnd

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=F:\pi\forum\runadminpi.kxf
Global $Form1 = GUICreate("Exécution d'un programme en mode administrateur", 559, 447, 192, 124)
GUISetBkColor(0x00FFFF)
Global $Inp_user = GUICtrlCreateInput("Inp_user", 120, 30, 261, 21)
Global $inp_password = GUICtrlCreateInput("inp_password", 120, 70, 261, 21)
Global $inp_domaine = GUICtrlCreateInput("inp_domaine", 120, 120, 261, 21)
Global $Inp_fichier = GUICtrlCreateInput("Inp_fichier", 120, 165, 261, 21)
Global $nom_parametrage = GUICtrlCreateInput("nom_parametrage", 120, 215, 151, 21)
Global $Pic1 = GUICtrlCreatePic("C:\drvpi\instalpi\logopi.bmp", 235, 270, 305, 145, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $but_enregistrer = GUICtrlCreateButton("Enregistrer", 275, 215, 100, 20, $BS_FLAT)
Global $but_tester = GUICtrlCreateButton("Tester", 50, 270, 100, 30, $BS_FLAT)
Global $Label1 = GUICtrlCreateLabel("Nom de l'utilisateur", 5, 30, 92, 17)
Global $Label2 = GUICtrlCreateLabel("Mot de passe", 5, 75, 68, 17)
Global $Label3 = GUICtrlCreateLabel("Nom du domaine", 5, 125, 84, 17)
Global $Label4 = GUICtrlCreateLabel("Fichier à exécuter", 5, 170, 88, 17)
Global $Parcourir = GUICtrlCreateButton("Parcourir", 390, 165, 100, 20, $BS_FLAT)
Global $Afficher = GUICtrlCreateButton("Afficher", 390, 70, 70, 20, $BS_FLAT)
Global $Cacher = GUICtrlCreateButton("Cacher", 390, 70, 70, 20, $BS_FLAT)
Global $Quitter = GUICtrlCreateButton("Quitter", 50, 380, 100, 30, $BS_FLAT)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xFF0000)
Global $parcourir_ini = GUICtrlCreateButton("Recharger un fichier *..ini", 390, 215, 150, 20, $BS_FLAT)
Global $Label5 = GUICtrlCreateLabel("Nom du fichier ini", 5, 220, 85, 17)
Global $Aide = GUICtrlCreateButton("Aide", 50, 325, 100, 30, $BS_FLAT)
GUICtrlSetBkColor(-1, 0x00FF00)
Global $Label6 = GUICtrlCreateLabel("Version du 26 05 2009", 410, 5, 111, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

  Case $Form1
  Case $Form1
  Case $Form1
  Case $Form1
  Case $Inp_user
  Case $inp_password
  Case $inp_domaine
  Case $Inp_fichier
  Case $nom_parametrage
  Case $Pic1
  Case $but_enregistrer
  Case $but_tester
  Case $Label1
  Case $Label2
  Case $Label3
  Case $Label4
  Case $Parcourir
  Case $Afficher
  Case $Cacher
  Case $Quitter
  Case $parcourir_ini
  Case $Label5
  Case $Aide
  Case $Label6
 EndSwitch
WEnd