[R] Script fenêtre égale un unique script
Posté : lun. 13 avr. 2009 21:18
par snak31390
Boujour tout le monde Désoler pour le titre je s'avaitpas comment dire mon prbléme 
Alors voila J'ai fait un script avec dedans Deux script que j'ai regrouper séparer par une Fenetre.
C'est a dire je voudraix que quand je laisse mon script ma fenetre avec mais deux button se lance est des que je clic sur le butom 1, sa lance la partie 1 de mon script
(EX : La fenetre s'ouvre je veut lance mon minimizer pour TCE je clic sur le bontton est la parti du script de TCEminimizer se lance)
Voila la code
Merci de faut reponse
Alors voila J'ai fait un script avec dedans Deux script que j'ai regrouper séparer par une Fenetre.
C'est a dire je voudraix que quand je laisse mon script ma fenetre avec mais deux button se lance est des que je clic sur le butom 1, sa lance la partie 1 de mon script
(EX : La fenetre s'ouvre je veut lance mon minimizer pour TCE je clic sur le bontton est la parti du script de TCEminimizer se lance)
Voila la code
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)
Example()
Func Example()
Local $Button_1, $Button_2, $msg
GUICreate("Minimizer -|- By $nakie And $tigmate", 320,100) ; will create a dialog box that when displayed is centered
Opt("GUICoordMode", 2)
$Button_1 = GUICtrlCreateButton("True Combat Elite Minimizer",85,25,150,25)
$Button_2 = GUICtrlCreateButton("Trackmania Minimizer", -150,10)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
HotKeySet("$Button_1","tce")
Case $msg = $Button_2
Run('tmnminimizer')
EndSelect
WEnd
EndFunc
;--------------------------------------------------------True Combat Elite Minimizer-----------------------------------------------------------------------------------
Func tce ()
AutoItSetOption("GUIOnEventMode", 1)
$Executable3 = "C:\Program Files\Windows Media Player\wmplayer.exe"
$Executable2 = "C:\Program Files\Windows Live\Messenger\msnmsgr.exe" ;Chemin d'accés pour MSN
$Executable1 = "C:\Users\Jérémy\Desktop\hlsw.lnk" ;Chemin d'accés pour HLSW
$Executable = "C:/DynoWatchTCE" ;Chemin d'accés pour DynowatchTCE
$Process4 = "wmplayer.exe"
$Process3 = "msnmsgr.exe" ;Nom du Process de MSN
$Process2 = "hslw.exe" ;Nom de Process de HSLW
$Process1 = "DynoWatchTCE.exe" ;Nom du Process de Dynowatch
$Process = "ET.exe" ;Nom du Process de True Combat Elite
$Fenetre = "Enemy Territory" ;Nom de la Fenetre de True Combat Elite
HotKeySet("^!m","petit") ;La touche "^!m" peut etre modifier, pour minimizer True Combat Elite. "^!m" correspond a la combinaison CTRL+ALT+m
HotKeySet("^!q","Quiter") ;La touche "^!q" peut etre modifier. "^!q" correspond a la combinaison CTRL+ALT+q
HotKeySet("^!M","Maximize") ;La touche "^!M" peut etre modifier, Pour maximizer True Combat Elite. "^!M correspond a la combinaison CTRL+ALT+M
HotKeySet("^!d","Dynowatch") ;La touche "^!d" peut etre modifier, pour lancé dynowatch. "^!d" correspond a la combinaison CTRL+ALT+d
HotKeySet("^!n","MSN") ;La touche "^!n" peut etre modifier, pour lancé MSN. "^!n" correspond a la combinaison CTRL+ALT+n
HotKeySet("^!N","ExitMSN") ;La touche "^!b" peut etre modifier, pour terminer MSN. "^!b" correspond a la combinaison CTRL+ALT+b
HotKeySet("^!D","ExitDynowatch")
HotKeySet("^!l","Lecteurzik")
HotKeySet("^!L","Lecteurquitte")
ShellExecute($Executable1) ;HLSW se lancé au démarrage du script
ProcessWait($Process) ;Attend que True Combat Elite soit lancé
ProcessWaitClose($Process) ;Attend que True Comba Elite soit terminée pour fermer le script
ProcessWaitClose($Process1) ;Attend que Dynowatch soit terminée pour fermer le script
ProcessWaitClose($Process2) ;Attend que HLSW soit terminée pour fermé le script
Exit
Func petit()
WinSetState($Fenetre,"",@SW_MINIMIZE) ;La touche définie ("m" par defaut) reduit la fenetre de True Comba Elite.
EndFunc
Func Quiter()
ProcessClose($Process) ;True Combat Elite S'étient
ProcessClose($Process1) ;Dynowatch se ferme
ProcessClose($Process2) ;HLSW se ferme
EndFunc
Func Maximize ()
WinSetState($Fenetre,"",@SW_MAXIMIZE) ;True Combat Elite se Maximize
EndFunc
Func Dynowatch ()
ShellExecute($Executable) ;Dynowatch se lance
EndFunc
Func MSN ()
ShellExecute($Executable2) ;MSN se lance
EndFunc
Func ExitMSN ()
ProcessClose($Process3) ;MSN se termine
EndFunc
Func ExitDynowatch ()
ProcessClose($Process1) ;Dynowatch se termine
EndFunc
Func Lecteurzik ()
ShellExecute($Executable3)
EndFunc
Func Lecteurquitte()
ProcessClose($Process4)
EndFunc
EndFunc
;------------------------------------------------------------Trackmania Minimizer--------------------------------------------------------------------------------------------------------------
With tmnminimizer ()
AutoItSetOption("GUIOnEventMode", 1)
$Executable3 = "C:\Program Files\Windows Media Player\wmplayer.exe"
$Executable2 = "C:\Program Files\Windows Live\Messenger\msnmsgr.exe"
$Executable = "C:\Program Files\TmNationsForever\LaunchLink.lnk"
$Process = "TmForever.exe"
$Process2 = "TmForeverLauncher.exe"
$Process3 = "msnmsgr.exe"
$Process4 = "wmplayer.exe"
$Fenetre = "TrackMania Nations Forever"
ShellExecute($Executable)
HotKeySet("^!m","minimizee")
HotKeySet("^!M","maximizee")
HotKeySet("^!q","quittee")
HotKeySet("^!n","MSNe")
HotKeySet("^!N","ExitMSNe")
HotKeySet("^!l","Lecteurzike")
HotKeySet("^!L","Lecteurquittee")
ProcessWait($Process)
ProcessWaitClose($Process)
ProcessWaitClose($Process2)
Exit
Func minimizee ()
WinSetState($Fenetre,"",@SW_MINIMIZE)
EndFunc
Func maximizee ()
WinSetState($Fenetre,"",@SW_MAXIMIZE)
EndFunc
Func quittee ()
ProcessClose($Process)
EndFunc
Func MSNe ()
ShellExecute($Executable2)
EndFunc
Func ExitMSNe ()
ProcessClose($Process3)
EndFunc
Func Lecteurzike ()
ShellExecute($Executable3)
EndFunc
Func Lecteurquittee()
ProcessClose($Process4)
EndFunc
EndWith