[R] Runner pour jeux

[Kagami]

Bonjour,

Je voudrais savoir comment lancer un jeux (S4 League ou Dofus 2 par exemple) de façon simple et en cliquant sur un bouton ($Button6)
Et aussi pour une application telle que MSN, Skype, Mozilla ou Itune.
Voilà, c'est tout.
Merci de votre aide.

[Kagami]

"Re"bonjour,

Je voudrais aussi savoir comment faire pour que le logiciel se lance à l'ouverture du PC.
Par exemple, la première fois qu'on l'ouvre, on peut cocher une case "Ouvrir au démarrage de l'ordinateur"
Si elle est coché, une MsgBox s'affiche avec écrit "Cet action sera effectué à votre prochain redémarrage du système", enfin quelque chose du genre.
Ou alors, ça dit que ça va redémarrer l'ordinateur automatiquement et dans ce cas, je met, à côté de l'endroit à cocher "Ouvrir au démarrage de l'ordinateur. Si vous cochez cette case, l'ordinateur sera redémarré"

Merci de votre aide.

[OoO]

Bonsoir,

Je voudrais savoir comment lancer un jeu

http://www.autoitscript.fr/autoit3/docs ... ns/Run.htm

Code : Tout sélectionner

Run("[u]Le chemin de l'.exe du jeu[/u]")

Je voudrais aussi savoir comment faire pour que le logiciel se lance à l'ouverture du PC.

Pour cela, il vous suffit de copier ledit logiciel dans :
"C:\Documents and Settings\*User*\Menu Démarrer\Programmes\Démarrage"

[Kagami]

Je ne comprend pas?
Je voudrais que quand je coche une case, le logiciel s'ouvre automatiquement au prochain démarrage.
Voici un screen:

Le vert est ce que je sais faire, le rouge est ce que je n'ai pas réussi.
Pour les options supplémentaires, je me suis tromper dans la couleur de l'encadré concernant l'endroit à cocher pour démarrer automatiquement.

Merci de votre réponse.

[OoO]

Avec la source, ce serait plus simple de vous aider...

[Kagami]

Voici le code source.
Dans la seconde partie du code, plusieurs boutons sont en commentaires, ce sont ceux que je dois faire.
S4 League ne se lance pas quand je double clique sur le bouton. Dofus non plus.

► Afficher le texteCode

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

;------------------------------------------------------------------------------------------
;GUI
;------------------------------------------------------------------------------------------
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Executable Controleur v1.0.0", 583, 253, 202, 132)
GUISetBkColor(0xFFFBF0)
$Label1 = GUICtrlCreateLabel("Executable Controleur", 144, -8, 286, 63)
GUICtrlSetFont(-1, 20, 800, 0, "Luna Bar")
GUICtrlSetColor(-1, 0x000000)
$Label2 = GUICtrlCreateLabel("By Kagami Tsuki", 504, 232, 76, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("Carte SD (E:)", 448, 56, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("USB (G:)", 16, 80, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("USB (F:)", 16, 56, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button4 = GUICtrlCreateButton("USB (H:)", 16, 104, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button5 = GUICtrlCreateButton("Disque Dur (C:)", 16, 128, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button17 = GUICtrlCreateButton("Lecteur de Disque", 16, 152, 123, 17, $WS_GROUP)
$Group1 = GUICtrlCreateGroup("Externe", 8, 32, 137, 145)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button6 = GUICtrlCreateButton("S4 League", 160, 56, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button7 = GUICtrlCreateButton("Dofus 2.0", 160, 80, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button8 = GUICtrlCreateButton("Dofus Arena", 160, 104, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button9 = GUICtrlCreateButton("Aion Guard", 160, 128, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button10 = GUICtrlCreateButton("World of Warcraft", 160, 152, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Group2 = GUICtrlCreateGroup("Jeux Online", 152, 32, 137, 145)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button11 = GUICtrlCreateButton("MSN Messenger", 304, 128, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button12 = GUICtrlCreateButton("Skype", 304, 152, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button13 = GUICtrlCreateButton("Photoshop CS5", 304, 56, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button14 = GUICtrlCreateButton("iTunes", 304, 104, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button15 = GUICtrlCreateButton("Mozilla Firefox", 304, 80, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Group3 = GUICtrlCreateGroup("Applications", 296, 32, 137, 145)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox1 = GUICtrlCreateCheckbox("   Ouvrir automatiquement au démarrage de l'ordinateur", 16, 208, 257, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
$Label4 = GUICtrlCreateLabel("Le PC redémarrera si vous cochez l'option ci-dessus", 16, 224, 224, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0xFF0000)
$Button16 = GUICtrlCreateButton("Soul Community", 448, 104, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button18 = GUICtrlCreateButton("Cyril", 448, 80, 123, 17, $WS_GROUP)
$Button19 = GUICtrlCreateButton("Cheat-Gam3", 448, 128, 123, 17, $WS_GROUP)
$Button20 = GUICtrlCreateButton("Render Graphique", 448, 152, 123, 17, $WS_GROUP)
$Group4 = GUICtrlCreateGroup("Dossiers et URL", 440, 32, 137, 145)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button21 = GUICtrlCreateButton("Eteindre le PC", 304, 200, 123, 17, $WS_GROUP)
$Button22 = GUICtrlCreateButton("Redémarrer le PC", 304, 224, 123, 17, $WS_GROUP)
$Group5 = GUICtrlCreateGroup("Options Supplémentaires", 8, 184, 425, 65)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;------------------------------------------------------------------------------------------
;SCRIPT
;------------------------------------------------------------------------------------------
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
    ShellExecute("E:")
Case $Button2
    ShellExecute("F:")
Case $Button3
    ShellExecute("G:")
Case $Button4
    ShellExecute("H:")
Case $Button5
    ShellExecute("C:")
Case $Button6
    Run("C:\Program Files (x86)\alaplaya\S4League\s4_patcher.exe")
Case $Button7
    Run("C:\Program Files (x86)\Dofus 2\app\UpLauncher.ini")
;Case $Button8
;Case $Button9
;Case $Button10
;Case $Button11
;Case $Button12
;Case $Button13
;Case $Button14
;Case $Button15
;Case $Button18
Case $Button17
    CDTray("D:", "open")
Case $Button16
    _IECreate ("http://bleachrpg.forum-actif.eu")
Case $Button19
    _IECreate ("http://www.cheat-gam3.com")
Case $Button20
    _IECreate ("http://www.renders-graphiques.fr/forum")
Case $Button21
    Shutdown (5)
Case $Button22
    Shutdown (6)
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

[Kagami]

Voici le nouveau code source.
Les Run (En rouge) ne marchent toujours pas, comment les faire fonctionner s'il vous plait?

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Process.au3>

;------------------------------------------------------------------------------------------
;GUI
;------------------------------------------------------------------------------------------
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Executable Controleur v1.0.0", 583, 253, 202, 132)
GUISetBkColor(0xFFFBF0)
$Label1 = GUICtrlCreateLabel("Executable Controleur", 144, -8, 286, 63)
GUICtrlSetFont(-1, 20, 800, 0, "Luna Bar")
GUICtrlSetColor(-1, 0x000000)
$Label2 = GUICtrlCreateLabel("By Kagami Tsuki", 504, 232, 76, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("Carte SD (E:)", 448, 56, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("USB (G:)", 16, 80, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("USB (F:)", 16, 56, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button4 = GUICtrlCreateButton("USB (H:)", 16, 104, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button5 = GUICtrlCreateButton("Disque Dur (C:)", 16, 128, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button17 = GUICtrlCreateButton("Lecteur de Disque", 16, 152, 123, 17, $WS_GROUP)
$Group1 = GUICtrlCreateGroup("Externe", 8, 32, 137, 145)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button6 = GUICtrlCreateButton("S4 League", 160, 56, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button7 = GUICtrlCreateButton("Dofus 2.0", 160, 80, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button8 = GUICtrlCreateButton("Dofus Arena", 160, 104, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button9 = GUICtrlCreateButton("Aion Guard", 160, 128, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button10 = GUICtrlCreateButton("World of Warcraft", 160, 152, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Group2 = GUICtrlCreateGroup("Jeux Online", 152, 32, 137, 145)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button11 = GUICtrlCreateButton("MSN Messenger", 304, 128, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button12 = GUICtrlCreateButton("Skype", 304, 152, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button13 = GUICtrlCreateButton("Photoshop CS5", 304, 56, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button14 = GUICtrlCreateButton("iTunes", 304, 104, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button15 = GUICtrlCreateButton("Google (Mozilla)", 304, 80, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Group3 = GUICtrlCreateGroup("Applications", 296, 32, 137, 145)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox1 = GUICtrlCreateCheckbox("   Ouvrir automatiquement au démarrage de l'ordinateur", 16, 208, 257, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetCursor (-1, 0)
$Label4 = GUICtrlCreateLabel("Le PC redémarrera si vous cochez l'option ci-dessus", 16, 224, 224, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0xFF0000)
$Button16 = GUICtrlCreateButton("Soul Community", 448, 104, 123, 17, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
$Button18 = GUICtrlCreateButton("Cyril", 448, 80, 123, 17, $WS_GROUP)
$Button19 = GUICtrlCreateButton("Cheat-Gam3", 448, 128, 123, 17, $WS_GROUP)
$Button20 = GUICtrlCreateButton("Render Graphique", 448, 152, 123, 17, $WS_GROUP)
$Group4 = GUICtrlCreateGroup("Dossiers et URL", 440, 32, 137, 145)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button21 = GUICtrlCreateButton("Eteindre le PC", 304, 200, 123, 17, $WS_GROUP)
$Button22 = GUICtrlCreateButton("Redémarrer le PC", 304, 224, 123, 17, $WS_GROUP)
$Group5 = GUICtrlCreateGroup("Options Supplémentaires", 8, 184, 425, 65)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label7 = GUICtrlCreateLabel("Ouverture du programme à:", 440, 192, 119, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Narrow")
$Label3 = GUICtrlCreateLabel(@HOUR, 496, 208, 41, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Juice ITC")
GUICtrlSetColor(-1, 0x000000)
$Label5 = GUICtrlCreateLabel("Heures", 512, 208, 35, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Juice ITC")
GUICtrlSetColor(-1, 0x000000)
$Label6 = GUICtrlCreateLabel(@MIN, 544, 208, 33, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Juice ITC")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;------------------------------------------------------------------------------------------
;SCRIPT
;------------------------------------------------------------------------------------------
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
    Case $Button1
    Sleep(200)
    ShellExecute("E:")
Case $Button2
    Sleep(200)
    ShellExecute("F:")
Case $Button3
    Sleep(200)
    ShellExecute("G:")
Case $Button4
    Sleep(200)
    ShellExecute("H:")
Case $Button5
    Sleep(200)
    ShellExecute("C:")
[color=#FF0000]Case $Button6
    Sleep(200)
    Run("C:\Program Files (x86)\alaplaya\S4League\s4_patcher.exe")
Case $Button7
    Sleep(200)
    Run("C:\Program Files (x86)\Dofus 2\app\UpLauncher.exe")[/color]
Case $Button8
    Sleep(200)
Case $Button9
    Sleep(200)
Case $Button10
    Sleep(200)
Case $Button11
    Sleep(200)
Case $Button12
    Sleep(200)
Case $Button13
    Sleep(200)
Case $Button14
    Sleep(200)
Case $Button15
    Sleep(200)
    _RunDOS("Start http://google.fr"&#41;
Case $Button18
    Sleep(200)
Case $Button17
    Sleep(200)
    CDTray("D:", "open")
Case $Button16
    Sleep(200)
    _RunDos("Start http://bleachrpg.forum-actif.eu"&#41;
Case $Button19
    Sleep(200)
    _RunDos("Start http://www.cheat-gam3.com/"&#41;
Case $Button20
    Sleep(200)
    _RunDos("Start http://www.renders-graphiques.fr/forum"&#41;
Case $Button21
    Sleep(200)
    Shutdown (5)
Case $Button22
    Sleep(200)
    Shutdown (6)
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

[OoO]

J'ai presque fini votre programme, il me faut juste :
-Le nom d'exécutable d'Aion,
-Le nom d'exécutable d'Itunes
-Le nom d'exécutable de Skype

[SrBelial]

Essayez avec un ShellExecute plutôt qu'avec Run peut être ?

[Kagami]

Vous voulez les chemins des applications?
C:\Program Files (x86)\NCSoft\Aion (North America)\Launcher Aion-Guard 2.0.exe
C:\Program Files (x86)\iTunes\iTunes.exe
C:\Program Files (x86)\Skype\Phone\Skype.exe

Voilà, j'espère que ça répond à ce que vous me demandez.
Merci de m'aider autant.

[Kagami]

Essayez avec un ShellExecute plutôt qu'avec Run peut être ?

Vous voulez dire ShellExecute puis le chemin vers l'Application?

[Kagami]

Le ShellExecute ne marche pas mais ça m'a aidé pour faire le dossier "Cyril"

Voici mon avancement:


[ | | | | | | | | | | ] 65%

[OoO]

J'ai résolu quelques petites erreurs, et ajouté quelques trucs :
[-> Voir les commentaires dans le script]

Il ne me reste plus qu'a intégrer le démarrage auto.

► Afficher le texte

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Executable Controleur.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Process.au3>

;------------------------------------------------------------------------------------------
;GUI
;------------------------------------------------------------------------------------------
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Executable Controleur v1.0.0", 583, 253, 202, 132)
GUISetBkColor(0xFFFBF0)
$Label1 = GUICtrlCreateLabel("Executable Controleur", 144, -8, 286, 63)
GUICtrlSetFont(-1, 20, 800, 0, "Luna Bar")
GUICtrlSetColor(-1, 0x000000)
$Label2 = GUICtrlCreateLabel("By Kagami Tsuki", 504, 232, 76, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
$Button1 = GUICtrlCreateButton("Carte SD (E:)", 448, 56, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Button2 = GUICtrlCreateButton("USB (G:)", 16, 80, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Button3 = GUICtrlCreateButton("USB (F:)", 16, 56, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Button4 = GUICtrlCreateButton("USB (H:)", 16, 104, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Button5 = GUICtrlCreateButton("Disque Dur (C:)", 16, 128, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Button17 = GUICtrlCreateButton("Lecteur de Disque", 16, 152, 123, 17, $WS_GROUP)
$Group1 = GUICtrlCreateGroup("Externe", 8, 32, 137, 145)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button6 = GUICtrlCreateButton("S4 League", 160, 56, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Button7 = GUICtrlCreateButton("Dofus 2.0", 160, 80, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Button8 = GUICtrlCreateButton("Dofus Arena", 160, 104, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Button9 = GUICtrlCreateButton("Aion Guard", 160, 128, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Button10 = GUICtrlCreateButton("World of Warcraft", 160, 152, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Group2 = GUICtrlCreateGroup("Jeux Online", 152, 32, 137, 145)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button11 = GUICtrlCreateButton("MSN Messenger", 304, 128, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Button12 = GUICtrlCreateButton("Skype", 304, 152, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Button13 = GUICtrlCreateButton("Photoshop CS5", 304, 56, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Button14 = GUICtrlCreateButton("iTunes", 304, 104, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Button15 = GUICtrlCreateButton("Google", 304, 80, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Group3 = GUICtrlCreateGroup("Applications", 296, 32, 137, 145)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox1 = GUICtrlCreateCheckbox("   Ouvrir automatiquement au démarrage de l'ordinateur", 16, 208, 257, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetCursor(-1, 0)
$Label4 = GUICtrlCreateLabel("Le PC redémarrera si vous cochez l'option ci-dessus", 16, 224, 224, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0xFF0000)
$Button16 = GUICtrlCreateButton("Soul Community", 448, 104, 123, 17, $WS_GROUP)
GUICtrlSetCursor(-1, 0)
$Button18 = GUICtrlCreateButton(@UserName, 448, 80, 123, 17, $WS_GROUP)
$Button19 = GUICtrlCreateButton("Cheat-Gam3", 448, 128, 123, 17, $WS_GROUP)
$Button20 = GUICtrlCreateButton("Render Graphique", 448, 152, 123, 17, $WS_GROUP)
$Group4 = GUICtrlCreateGroup("Dossiers et URL", 440, 32, 137, 145)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button21 = GUICtrlCreateButton("Eteindre le PC", 304, 200, 123, 17, $WS_GROUP)
$Button22 = GUICtrlCreateButton("Redémarrer le PC", 304, 224, 123, 17, $WS_GROUP)
$Group5 = GUICtrlCreateGroup("Options Supplémentaires", 8, 184, 425, 65)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label7 = GUICtrlCreateLabel("Ouverture du programme à:", 440, 192, 119, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Arial Narrow")
$Label3 = GUICtrlCreateLabel(@HOUR, 496, 208, 41, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Juice ITC")
GUICtrlSetColor(-1, 0x000000)
$Label5 = GUICtrlCreateLabel("Heures", 512, 208, 35, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Juice ITC")
GUICtrlSetColor(-1, 0x000000)
$Label6 = GUICtrlCreateLabel(@MIN, 544, 208, 33, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Juice ITC")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;------------------------------------------------------------------------------------------
;SCRIPT
;------------------------------------------------------------------------------------------
While 1
    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $Button1
            Sleep(200)
            ShellExecute("E:")

        Case $Button3
            Sleep(200)
            ShellExecute("F:")

        Case $Button2
            Sleep(200)
            ShellExecute("G:")

        Case $Button4
            Sleep(200)
            ShellExecute("H:")

        Case $Button5
            Sleep(200)
            ShellExecute("C:")

        Case $Button6
            Sleep(200)
            $Search = _FileListToArrayNT("C:\", "s4_patcher.exe", 0, 2, True, "", 2) ; Recherche le fichier S4_patcher.exe
            $S4Path = StringTrimLeft($Search, 1) ; Enleve le premier caractère du résultat (un | )
            Run($S4Path) ; Lance S4

        Case $Button7
            Sleep(200)
            $Search = _FileListToArrayNT("C:\", "Dofus.exe", 0, 2, True, "", 2) ; Recherche le fichier Dofus.exe
            $DofusPath = StringTrimLeft($Search, 1) ; Enleve le premier caractère du résultat (un | )
            Run($DofusPath) ; Lance Dofus

        Case $Button8
            Sleep(200)
            $Search = _FileListToArrayNT("C:\", "DofusArena.exe", 0, 2, True, "", 2) ; Recherche le fichier DofusArena.exe
            $DofusArenaPath = StringTrimLeft($Search, 1) ; Enleve le premier caractère du résultat (un | )
            Run($DofusArenaPath) ; Lance Dofus Arena

        Case $Button9
            Sleep(200)
            $Search = _FileListToArrayNT("C:\", "Launcher Aion-Guard 2.0.exe", 0, 2, True, "", 2)
            $Path = StringTrimLeft($Search, 1)
            Run($Path)

        Case $Button10
            Sleep(200)
            $Search = _FileListToArrayNT("C:\", "WoW.exe", 0, 2, True, "", 2) ; Recherche le fichier WoW.exe
            $WoWPath = StringTrimLeft($Search, 1) ; Enleve le premier caractère du résultat (un | )
            Run($WoWPath) ; Lance WoW

        Case $Button11
            Sleep(200)
            $Search = _FileListToArrayNT("C:\", "msnmsgr.exe", 0, 2, True, "", 2)
            $Path = StringTrimLeft($Search, 1)
            Run($Path)

        Case $Button12
            Sleep(200)
            $Search = _FileListToArrayNT("C:\", "Skype.exe", 0, 2, True, "", 2)
            $Path = StringTrimLeft($Search, 1)
            Run($Path)

        Case $Button13
            Sleep(200)
            $Search = _FileListToArrayNT("C:\", "Photoshop.exe", 0, 2, True, "", 2)
            $Path = StringTrimLeft($Search, 1)
            Run($Path)

        Case $Button14
            Sleep(200)
            $Search = _FileListToArrayNT("C:\", "iTunes.exe", 0, 2, True, "", 2)
            $Path = StringTrimLeft($Search, 1)
            Run($Path)

        Case $Button15
            Sleep(200)
            _RunDOS("Start http://google.fr"&#41;

        Case $Button18
            Sleep(200)
            Run("explorer.exe " & @MyDocumentsDir)

        Case $Button17
            Sleep(200)
            CDTray("D:", "open")

        Case $Button16
            Sleep(200)
            _RunDOS("Start http://bleachrpg.forum-actif.eu"&#41;

        Case $Button19
            Sleep(200)
            _RunDOS("Start http://www.cheat-gam3.com/"&#41;

        Case $Button20
            Sleep(200)
            _RunDOS("Start http://www.renders-graphiques.fr/forum"&#41;

        Case $Button21
            Sleep(200)
            Shutdown(5)

        Case $Button22
            Sleep(200)
            Shutdown(6)

        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

;-----------------------Include-------------------
;-------------------------------------------------
;-------------------------------------------------

Func _FileListToArrayNT($sPath = @ScriptDir, $sFilter = "*", $iSearchType = 0, $iPathType = 0, $bRecursive = False, $sExclude = "", $iRetFormat = 1, $sWorkPath = "(-:>firstcall<:-)")
    Local $hSearch, $iPCount, $iFCount, $sFile, $sFileList, $sTWorkPath

    If $sWorkPath == "(-:>firstcall<:-)" Then
        If $sPath = -1 Or $sPath = Default Then $sPath = @ScriptDir
        ;strip leading/trailing spaces and semi-colons, all adjacent semi-colons, and spaces surrounding semi-colons
        $sPath = StringRegExpReplace(StringRegExpReplace($sPath, "(\s*;\s*)+", ";"), "\A;|;\z", "")
        ;check that at least one path is set
        If $sPath = "" Then Return SetError(1, 1, "")
        ;-----
        If $sFilter = -1 Or $sFilter = Default Then $sFilter = "*"
        ;strip leading/trailing spaces and semi-colons, all adjacent semi-colons, and spaces surrounding semi-colons
        $sFilter = StringRegExpReplace(StringRegExpReplace($sFilter, "(\s*;\s*)+", ";"), "\A;|;\z", "")
        ;check that at least one filter is set
        If $sFilter = "" Then Return SetError(2, 2, "")
        ;-----
        If $iSearchType <> "1" And $iSearchType <> "2" Then $iSearchType = "0"
        ;-----
        If $iPathType <> "1" And $iPathType <> "2" Then $iPathType = "0"
        ;-----
        $bRecursive = ($bRecursive = "1")
        ;-----
        If $sExclude = -1 Or $sExclude = Default Then $sExclude = ""
        If $sExclude Then
            ;prepare $sExclude
            ;strip leading/trailing spaces and semi-colons, all adjacent semi-colons, and spaces surrounding semi-colons
            $sExclude = StringRegExpReplace(StringRegExpReplace($sExclude, "(\s*;\s*)+", ";"), "\A;|;\z", "")
            ;convert $sExclude to fit StringRegExp (not perfect but useable)
            $sExclude = StringRegExpReplace($sExclude, '([\Q\.+[^]$(){}=!\E])', '\\$1')
            $sExclude = StringReplace($sExclude, "?", ".")
            $sExclude = StringReplace($sExclude, "*", ".*?")
            $sExclude = "(?i)\A" & StringReplace($sExclude, ";", "|") & "\z"
        EndIf
        ;-----
        If $iRetFormat <> "0" And $iRetFormat <> "2" Then $iRetFormat = "1"

        $sWorkPath = ""
    EndIf

    Local $aPath = StringSplit($sPath, ';', 1) ;paths array
    Local $aFilter = StringSplit($sFilter, ';', 1) ;filters array

    If $sExclude Then

        For $iPCount = 1 To $aPath[0] ;Path loop
            Local $sDelim = "|" ;reset $sDelim

            If StringRight($aPath[$iPCount], 1) <> "\" Then $aPath[$iPCount] &= "\" ;ensure trailing slash
            If $iPathType = 2 Then $sDelim &= $aPath[$iPCount] ;return full-path

            For $iFCount = 1 To $aFilter[0] ;filter loop
                If StringRegExp($aFilter[$iFCount], "[\\/:<>|]") Then ContinueLoop ;bypass filters with invalid chars
                $hSearch = FileFindFirstFile($aPath[$iPCount] & $aFilter[$iFCount])
                If @error Then ContinueLoop
                Switch $iSearchType
                    Case 1 ;files Only
                        While True
                            $sFile = FileFindNextFile($hSearch)
                            If @error Then ExitLoop
                            If @extended Then ContinueLoop ;bypass folder
                            ;check for exclude files
                            If StringRegExp($sFile, $sExclude) Then ContinueLoop
                            $sFileList &= $sDelim & $sWorkPath & $sFile
                        WEnd
                    Case 2 ;folders Only
                        While True
                            $sFile = FileFindNextFile($hSearch)
                            If @error Then ExitLoop
                            If @extended Then ;bypass file
                                ;check for exclude folder
                                If StringRegExp($sFile, $sExclude) Then ContinueLoop
                                $sFileList &= $sDelim & $sWorkPath & $sFile
                            EndIf
                        WEnd
                    Case Else ;files and folders
                        While True
                            $sFile = FileFindNextFile($hSearch)
                            If @error Then ExitLoop
                            ;check for exclude files/folder
                            If StringRegExp($sFile, $sExclude) Then ContinueLoop
                            $sFileList &= $sDelim & $sWorkPath & $sFile
                        WEnd
                EndSwitch
                FileClose($hSearch)
            Next ;$iFCount - next filter

            ;---------------

            ;optional do a recursive search
            If $bRecursive Then
                $hSearch = FileFindFirstFile($aPath[$iPCount] & "*.*")
                If Not @error Then
                    While True
                        $sFile = FileFindNextFile($hSearch)
                        If @error Then ExitLoop
                        If @extended Then ;bypass file
                            ;check for exclude folder
                            If StringRegExp($sFile, $sExclude) Then ContinueLoop
                            ;call recursive search
                            If $iPathType = 1 Then $sTWorkPath = $sWorkPath & $sFile & "\"
                            $sFileList &= _FileListToArrayNT($aPath[$iPCount] & $sFile & "\", $sFilter, $iSearchType, $iPathType, $bRecursive, $sExclude, 2, $sTWorkPath)
                        EndIf
                    WEnd
                    FileClose($hSearch)
                EndIf
            EndIf

        Next ;$iPCount - next path

    Else ;If Not $sExclude

        For $iPCount = 1 To $aPath[0] ;path loop
            Local $sDelim = "|" ;reset $sDelim

            If StringRight($aPath[$iPCount], 1) <> "\" Then $aPath[$iPCount] &= "\" ;ensure trailing slash
            If $iPathType = 2 Then $sDelim &= $aPath[$iPCount] ;return full-path

            For $iFCount = 1 To $aFilter[0] ;filter loop
                If StringRegExp($aFilter[$iFCount], "[\\/:<>|]") Then ContinueLoop ;bypass filters with invalid chars
                $hSearch = FileFindFirstFile($aPath[$iPCount] & $aFilter[$iFCount])
                If @error Then ContinueLoop
                Switch $iSearchType
                    Case 1 ;files Only
                        While True
                            $sFile = FileFindNextFile($hSearch)
                            If @error Then ExitLoop
                            If @extended Then ContinueLoop ;bypass folder
                            $sFileList &= $sDelim & $sWorkPath & $sFile
                        WEnd
                    Case 2 ;folders Only
                        While True
                            $sFile = FileFindNextFile($hSearch)
                            If @error Then ExitLoop
                            If @extended Then ;bypass file
                                $sFileList &= $sDelim & $sWorkPath & $sFile
                            EndIf
                        WEnd
                    Case Else ;files and folders
                        While True
                            $sFile = FileFindNextFile($hSearch)
                            If @error Then ExitLoop
                            $sFileList &= $sDelim & $sWorkPath & $sFile
                        WEnd
                EndSwitch
                FileClose($hSearch)
            Next ;$iFCount - next filter

            ;---------------

            ;optional do a recursive search
            If $bRecursive Then
                $hSearch = FileFindFirstFile($aPath[$iPCount] & "*.*")
                If Not @error Then
                    While True
                        $sFile = FileFindNextFile($hSearch)
                        If @error Then ExitLoop
                        If @extended Then ;bypass file
                            ;call recursive search
                            If $iPathType = 1 Then $sTWorkPath = $sWorkPath & $sFile & "\"
                            $sFileList &= _FileListToArrayNT($aPath[$iPCount] & $sFile & "\", $sFilter, $iSearchType, $iPathType, $bRecursive, $sExclude, 2, $sTWorkPath)
                        EndIf
                    WEnd
                    FileClose($hSearch)
                EndIf
            EndIf

        Next ;$iPCount - next path

    EndIf ;If $sExclude

    ;---------------

    ;set according return value
    If $sFileList Then
        Switch $iRetFormat
            Case 2 ;return a delimited string
                Return $sFileList
            Case 0 ;return a 0-based array
                Return StringSplit(StringTrimLeft($sFileList, 1), "|", 2)
            Case Else ;return a 1-based array
                Return StringSplit(StringTrimLeft($sFileList, 1), "|", 1)
        EndSwitch
    Else
        Return SetError(4, 4, "")
    EndIf

EndFunc   ;==>_FileListToArrayNT

[Kagami]

Waaw!
Quel beau travail, excellent!
Je vous remercie de vous occuper de moi avec tant d'attention.

[Kagami]

Malheureusement, plus aucun des boutons ne fonctionne.
Sur n'importe que bouton où je clique, rien ne se passe.
Même sur ce que j'avais pourtant réussi à faire marcher avant.

[Kagami]

Je reformule ce que j'ai dit, Dofus c'est ouvert une minutes après avoir cliqué sur le bouton.
Mais les autres ne s'ouvrent toujours pas ^^

[OoO]

Bizarre... Avez vous la dernière version d'Autoit ?
EDIT : Effectivement Dofus se lance un peu tard, 40sec chez moi...
REDIT : Essayer de remplacer Dofus.exe par UpLauncher.exe
REREDIT : Chez moi, Dofus se lance 3sec après le clic en remplaçant Dofus.exe par UpLauncher.exe

[Kagami]

Voici une nouvelle image de ce qui marche et ce qui ne marche pas:


Y a t-il un moyen pour que ça prenne moins de temps pour ouvrir une application?
Par exemple mettre une recherche plus précise ("C:\Program Files (x86)\Dofus 2", "Dofus.exe", 0, 2, True, "", 2)

[Kagami]

En remplçant par UpLauncher.exe il ne s'ouvre pas :/

EDIT: J'ai remis Dofus.exe, j'ai enlevé le Sleep(200) et Dofus ne prend maintenant que 9 secondes à s'ouvrir alors qu'il me fallait près d'une minute avant

[OoO]

J'ai remis Dofus.exe, j'ai enlevé le Sleep(200) et Dofus ne prend maintenant que 9 secondes à s'ouvrir alors qu'il me fallait près d'une minute avant

Lancez Dofus à la main et comptez le temps que celui ci met...
Les autres jeux ne marchent pas ?