Cela fait bientôt 2 heures que je cherche comment faire mais rien n'y fait, je ne trouve pas.
Les réponses dans rechercher ne me satisfaisant pas, je vous demande votre aide.
Je voudrais intégrer une ProgressBar dans mon script qui avance selon mon sleep.
Voici mon code source qui vous éclaircira peut-être:
► Afficher le texte
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <TabConstants.au3>
#Include <GuiButton.au3>
#Include <GuiComboBox.au3>
#include <Process.au3>
Global Const $SaveChemin = "Dofus Account Launcher Settings.ini"
Global $x = _FileCountLines($SaveChemin)/2+1
Global $y = _FileCountLines($SaveChemin)/2+1
$IniCompte1 = IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 1", "")
$IniCompte2 = IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 2", "")
$IniCompte3 = IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 3", "")
$IniCompte4 = IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 4", "")
$IniCompte5 = IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 5", "")
$IniMDP1 = IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher MDP", "Mot de Passe 1", "")
$IniMDP2 = IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher MDP", "Mot de Passe 2", "")
$IniMDP3 = IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher MDP", "Mot de Passe 3", "")
$IniMDP4 = IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher MDP", "Mot de Passe 4", "")
$IniMDP5 = IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher MDP", "Mot de Passe 5", "")
$Form1 = GUICreate("Dofus Account Launcher", 421, 621, 344, 126)
GUISetIcon("C:\Program Files (x86)\Dofus 2\app\Dofus.exe")
$Pic1 = GUICtrlCreatePic("poster_dofus.jpg", 0, 0, 420, 620, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetState(-1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Dofus Account Launcher", 187, 120, 209, 26, BitOR($SS_CENTER,$SS_RIGHT,$SS_GRAYFRAME,$SS_WHITEFRAME,$SS_SIMPLE,$WS_BORDER))
GUICtrlSetFont(-1, 12, 800, 0, "Papyrus")
$Group1 = GUICtrlCreateGroup("Informations", 200, 160, 193, 100, BitOR($BS_RIGHTBUTTON,$BS_CENTER), $WS_EX_TRANSPARENT)
$Label2 = GUICtrlCreateLabel("Nom de Compte", 207, 183, 80, 17, $WS_BORDER)
$Label3 = GUICtrlCreateLabel("Mot de Passe ", 207, 207, 80, 17, $WS_BORDER)
$ButtonSave = GUICtrlCreateButton("Enregistrer ce compte", 239, 231, 115, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$InputIC = GUICtrlCreateInput("", 296, 182, 89, 21)
$InputIMDP = GUICtrlCreateInput("", 296, 206, 89, 21, $ES_AUTOHSCROLL)
$Label4 = GUICtrlCreateLabel("", 264, 158, 68, 20, $WS_BORDER)
$Group2 = GUICtrlCreateGroup(" Launcher", 176, 272, 239, 196, BitOR($BS_RIGHTBUTTON,$BS_CENTER), $WS_EX_TRANSPARENT)
$Label5 = GUICtrlCreateLabel(" Compte", 183, 295, 75, 17, $WS_BORDER)
$Label6 = GUICtrlCreateLabel(" Mot de Passe ", 183, 319, 75, 17, $WS_BORDER)
$ButtonLaunch = GUICtrlCreateButton("Launch!", 239, 431, 115, 33, $WS_GROUP)
$ButtonDeleteIni = GUICtrlCreateButton("Réinistialliser les Comptes enregistrés", 184, 400, 222, 25, $WS_GROUP)
$Label7 = GUICtrlCreateLabel(" Personnage ", 183, 352, 75, 17, $WS_BORDER)
$ComboPersonnage = GUICtrlCreateCombo("Personnage 1", 264, 350, 145, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Personnage 2|Personnage 3|Personnage 4|Personnage 5")
$Label8 = GUICtrlCreateLabel(" Serveur", 183, 376, 75, 17, $WS_BORDER)
$ComboServeur = GUICtrlCreateCombo("1 Seul Serveur", 264, 374, 145, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Serveur 1|Serveur 2|Serveur 3|Serveur 4|Serveur 5")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ComboLaunchC = GUICtrlCreateCombo("", 264, 292, 145, 21, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $IniCompte1 & "|" & $IniCompte2 & "|" & $IniCompte3 & "|" & $IniCompte4 & "|" & $IniCompte5)
$InputLaunchMDP = GUICtrlCreateInput("", 264, 316, 145, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$Label9 = GUICtrlCreateLabel("", 268, 270, 60, 20, $WS_BORDER)
$Group3 = GUICtrlCreateGroup("Aide", 208, 480, 185, 85, $BS_CENTER)
$ButtonHelpOnline = GUICtrlCreateButton("Aide en Ligne", 216, 504, 171, 25, $WS_GROUP)
$ButtonUtilisation = GUICtrlCreateButton("Comment utilisez le Launcher?", 216, 536, 171, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label10 = GUICtrlCreateLabel(" Aide ", 284, 480, 34, 17, $WS_BORDER)
$Label11 = GUICtrlCreateLabel("Codé par: Kagami", 8, 8, 90, 17, $SS_SUNKEN)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label12 = GUICtrlCreateLabel("Sous: Autoit", 8, 25, 90, 17, $SS_SUNKEN)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label13 = GUICtrlCreateLabel("Version: 1.0", 8, 42, 90, 17, $SS_SUNKEN)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label14 = GUICtrlCreateLabel("MàJ le: 13/11/10", 8, 58, 90, 17, $SS_SUNKEN)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label15 = GUICtrlCreateLabel(" Lancement de Dofus...", 16, 292, 119, 17, $WS_BORDER)
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_HIDE)
$Progress1 = GUICtrlCreateProgress(16, 312, 150, 17, $PBS_SMOOTH)
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetCursor (-1, 15)
$Label16 = GUICtrlCreateLabel(" Chargement de Dofus...", 16, 340, 119, 17, $WS_BORDER)
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_HIDE)
$Progress2 = GUICtrlCreateProgress(16, 360, 150, 17, $PBS_SMOOTH)
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetCursor (-1, 15)
$Label17 = GUICtrlCreateLabel(" Choix du Serveur...", 16, 388, 119, 17, $WS_BORDER)
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_HIDE)
$Progress3 = GUICtrlCreateProgress(16, 408, 150, 17, $PBS_SMOOTH)
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetCursor (-1, 15)
$Label18 = GUICtrlCreateLabel(" Choix du Personnage...", 16, 436, 119, 17, $WS_BORDER)
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_HIDE)
$Progress4 = GUICtrlCreateProgress(16, 456, 150, 17, $PBS_SMOOTH)
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetCursor (-1, 15)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ButtonSave
$SaveCompte = GUICtrlRead($InputIC)
$SaveMDP = GUICtrlRead($InputIMDP)
If $SaveCompte <> "" And $SaveMDP <> "" Then
IniWrite($SaveChemin, "Dofus Account Launcher Compte", "Nom de Compte " & $x, $SaveCompte)
$x = $x+1
IniWrite($SaveChemin, "Dofus Account Launcher MDP", "Mot de Passe " & $y, $SaveMDP)
$y = $y+1
GUIDelete()
ShellExecute(@ScriptFullPath)
ElseIf $SaveCompte = "" And $SaveMDP <> "" Then
MsgBox(48, "Dofus Account Launcher", "Vous devez indiquer votre Nom de Compte!")
ElseIf $SaveCompte <> "" And $SaveMDP = "" Then
MsgBox(48, "Dofus Account Launcher", "Vous devez indiquer votre Mot de Passe!")
Else
MsgBox(48, "Dofus Account Launcher", "Vous devez indiquer votre Nom de Compte et votre Mot de Passe!")
EndIf
If IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 6", "") Then
MsgBox(48, "Dofus Account Launcher", "Vous ne pouvez pas enregistrer plus de cinq comptes!" & @CRLF & 'Si vous voulez ajouter de nouveaux comptes cliquez sur "Réinistialliser les Comptes enregistrés"')
IniDelete("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 6")
IniDelete("Dofus Account Launcher Settings.ini", "Dofus Account Launcher MDP", "Mot de Passe 6")
Endif
If IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 7", "") Then
MsgBox(48, "Dofus Account Launcher", "Vous ne pouvez pas enregistrer plus de cinq comptes!" & @CRLF & 'Si vous voulez ajouter de nouveaux comptes cliquez sur "Réinistialliser les Comptes enregistrés"')
IniDelete("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 7")
IniDelete("Dofus Account Launcher Settings.ini", "Dofus Account Launcher MDP", "Mot de Passe 7")
Endif
If IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 8", "") Then
MsgBox(48, "Dofus Account Launcher", "Vous ne pouvez pas enregistrer plus de cinq comptes!" & @CRLF & 'Si vous voulez ajouter de nouveaux comptes cliquez sur "Réinistialliser les Comptes enregistrés"')
IniDelete("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 8")
IniDelete("Dofus Account Launcher Settings.ini", "Dofus Account Launcher MDP", "Mot de Passe 8")
Endif
If IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 9", "") Then
MsgBox(48, "Dofus Account Launcher", "Vous ne pouvez pas enregistrer plus de cinq comptes!" & @CRLF & 'Si vous voulez ajouter de nouveaux comptes cliquez sur "Réinistialliser les Comptes enregistrés"')
IniDelete("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 9")
IniDelete("Dofus Account Launcher Settings.ini", "Dofus Account Launcher MDP", "Mot de Passe 9")
Endif
If IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 10", "") Then
MsgBox(48, "Dofus Account Launcher", "Vous ne pouvez pas enregistrer plus de cinq comptes!" & @CRLF & 'Si vous voulez ajouter de nouveaux comptes cliquez sur "Réinistialliser les Comptes enregistrés"')
IniDelete("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 10")
IniDelete("Dofus Account Launcher Settings.ini", "Dofus Account Launcher MDP", "Mot de Passe 10")
Endif
If IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 11", "") Then
MsgBox(48, "Dofus Account Launcher", "Vous ne pouvez pas enregistrer plus de cinq comptes!" & @CRLF & 'Si vous voulez ajouter de nouveaux comptes cliquez sur "Réinistialliser les Comptes enregistrés"')
IniDelete("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte 11")
IniDelete("Dofus Account Launcher Settings.ini", "Dofus Account Launcher MDP", "Mot de Passe 11")
Endif
Case $ButtonLaunch
If GUICtrlRead($ComboLaunchC) <> "" And GUICtrlRead($InputLaunchMDP) <> "" Then
_Launch($ComboLaunchC, $InputLaunchMDP, $ComboServeur, $ComboPersonnage)
Else
MsgBox(48, "Dofus Account Launcher", 'Un des champs de la partie "Launcher" est vide. Veuillez remplir tous les champs.')
EndIf
Case $ComboLaunchC
If GUICtrlRead($ComboLaunchC) = $IniCompte1 Then
GuiCtrlSetData($InputLaunchMDP, $IniMDP1)
ElseIf GUICtrlRead($ComboLaunchC) = $IniCompte2 Then
GuiCtrlSetData($InputLaunchMDP, $IniMDP2)
ElseIf GUICtrlRead($ComboLaunchC) = $IniCompte3 Then
GuiCtrlSetData($InputLaunchMDP, $IniMDP3)
ElseIf GUICtrlRead($ComboLaunchC) = $IniCompte4 Then
GuiCtrlSetData($InputLaunchMDP, $IniMDP4)
ElseIf GUICtrlRead($ComboLaunchC) = $IniCompte5 Then
GuiCtrlSetData($InputLaunchMDP, $IniMDP5)
Endif
Case $ButtonHelpOnline
Sleep(200)
_RunDOS("Start http://www.cheat-gam3.com/")
Case $ButtonUtilisation
MsgBox(64, "Dofus Account Launcher", "Partie Information: Vous devez entrer ici votre Nom de Compte et Mot de Passe." & @CRLF & 'Cliquez ensuite sur le bouton "Enregistrer ce Compte"' & " pour pouvoir l'utiliser plus tard." & @CRLF & "Attention, vous ne pouvez enregistrer que 5 comptes." & @CRLF & "" & @CRLF & "Partie Launcher:" & @CRLF & "Une fois vos comptes enregistrés, choisissez le compte avec lequel vous voulez jouer. Le mot de passe se mettra automatiquement." & @CRLF & "Choisissez le personnage et le serveur sur lequel vous voulez jouer." & @CRLF & "1 Seul Serveur veux dire que vous n'avez qu'un Serveur sur votre Compte. Les Serveur X compte que vous avez plus d'un serveur enregistré." & @CRLF & "Réinistalliser les Comptes Enregistrés permet de supprimer tous les comptes enregistrés et de pouvoir en remttre cinq nouveaux" & @CRLF & "Cliquez sur Launch une fois que vous avez rempli tous les champs pour démarrer Dofus. Ne touchez ensuite plus à rien." & @CRLF & "Aide en Ligne permet de consulter l'aide du logiciel ou de demander de l'aide au créateur." & @CRLF & "" & @CRLF & "By Kagami Tsuki.")
Case $ButtonDeleteIni
IniDelete($SaveChemin, "Dofus Account Launcher Compte")
IniDelete($SaveChemin, "Dofus Account Launcher MDP")
GUIDelete()
ShellExecute(@ScriptFullPath)
EndSwitch
WEnd
Func _Launch($ComboLaunchC, $InputLaunchMDP, $ComboServeur, $ComboPersonnage)
;Ici la progressbar 1
ShellExecute("C:\Program Files (x86)\Dofus 2\app\UpLauncher.exe", "", "C:\Program Files (x86)\Dofus 2\app\")
WinWaitActive("Lanceur Dofus 2.0")
$Coord = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, 0xEDF8A5)
If Not @error Then
MouseMove($Coord[0], $Coord[1], 0)
MouseClick("left")
Else
MsgBox(48, "Dofus Account Launcher", "La couleur Héxadécimal 0xE5E681 est introuvable")
Endif
;Ici la progressbar 2
Sleep(10000)
MouseClick("left")
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("^a")
Sleep(100)
$IniCompte = GUICtrlRead($ComboLaunchC)
Send($IniCompte)
Sleep(100)
Send("{TAB}")
Sleep(100)
$IniMDP = GUICtrlRead($InputLaunchMDP)
Send($IniMDP)
Sleep(100)
Send("{ENTER}")
;Ici la progressbar 3
If GUICtrlRead($ComboServeur, "1 Seul Serveur") Then
Sleep(5000)
ElseIf GUICtrlRead($ComboServeur, "Serveur 1") Then
Sleep(10000)
Send("{ENTER}")
ElseIf GUICtrlRead($ComboServeur, "Serveur 2") Then
Sleep(10000)
Send("{RIGHT}")
Sleep(100)
Send("{ENTER}")
ElseIf GUICtrlRead($ComboServeur, "Serveur 3") Then
Sleep(10000)
Send("{RIGHT}")
Sleep(100)
Send("{RIGHT}")
Sleep(100)
Send("{ENTER}")
ElseIf GUICtrlRead($ComboServeur, "Serveur 4") Then
Sleep(10000)
Send("{RIGHT}")
Sleep(100)
Send("{RIGHT}")
Sleep(100)
Send("{RIGHT}")
Sleep(100)
Send("{ENTER}")
ElseIf GUICtrlRead($ComboServeur, "Serveur 5") Then
Sleep(10000)
Send("{RIGHT}")
Sleep(100)
Send("{RIGHT}")
Sleep(100)
Send("{RIGHT}")
Sleep(100)
Send("{RIGHT}")
Sleep(100)
Send("{ENTER}")
EndIf
;Ici la progressbar 4
Sleep(5000)
If GUICtrlRead($ComboPersonnage, "Personnage 1") Then
Sleep(100)
Send("{ENTER}")
ElseIf GUICtrlRead($ComboPersonnage, "Personnage 2") Then
Sleep(100)
Send("{RIGHT}")
Sleep(100)
Send("{ENTER}")
ElseIf GUICtrlRead($ComboPersonnage, "Personnage 3") Then
Sleep(100)
Send("{RIGHT}")
Sleep(100)
Send("{RIGHT}")
Sleep(100)
Send("{ENTER}")
ElseIf GUICtrlRead($ComboPersonnage, "Personnage 4") Then
Sleep(100)
Send("{LEFT}")
Sleep(100)
Send("{LEFT}")
Sleep(100)
Send("{ENTER}")
ElseIf GUICtrlRead($ComboPersonnage, "Personnage 5") Then
Sleep(100)
Send("{LEFT}")
Sleep(100)
Send("{ENTER}")
Endif
EndFuncCode : Tout sélectionner
;Ici la progressbar 2
Sleep(10000)
MouseClick("left")
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("^a")
Sleep(100)
$IniCompte = GUICtrlRead($ComboLaunchC)
Send($IniCompte)
Sleep(100)
Send("{TAB}")
Sleep(100)
$IniMDP = GUICtrlRead($InputLaunchMDP)
Send($IniMDP)
Sleep(100)
Send("{ENTER}")Merci de votre aide, Kagami.



