[R] Editer une ComboBox et Lignes d'un .ini

[Kagami]

Bonjour,

Je souhaiterez réaliser un petit logiciel permettant l'automatisation du lancement de Dofus.
Ce n'est donc pas un bot, voici le code source qui vous le prouvera:

► Afficher le texteCode

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 <Process.au3>

$IniCompte = IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher Compte", "Nom de Compte", "")
$IniMDP = IniRead("Dofus Account Launcher Settings.ini", "Dofus Account Launcher MDP", "Mot de Passe", "")
Global Const $SaveChemin = "Dofus Account Launcher Settings.ini"
Global $y = _FileCountLines ($SaveChemin)/2+1

;-------------------------------------------------------------------GUI-------------------------------------------------------------------
#Region ### START Koda GUI section ### Form=E:\Autres\Autoit\GUI\Dofus Account Launcher.kxf
$Form1 = GUICreate("Form1", 421, 621, 344, 126)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Yannis\Bureau\cyril\Autoit\Scripts\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, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Label4 = GUICtrlCreateLabel("", 264, 158, 68, 20, $WS_BORDER)
$Group2 = GUICtrlCreateGroup(" Launcher", 176, 272, 239, 164, 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, 399, 115, 33, $WS_GROUP)
$Label7 = GUICtrlCreateLabel(" Personnage   ", 183, 352, 75, 17, $WS_BORDER)
$ComboPersonnage = GUICtrlCreateCombo("", 264, 350, 145, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Personnage 1|Personnage 2|Personnage 3|Personnage 4|Personnage 5")
$Label8 = GUICtrlCreateLabel(" Serveur", 183, 376, 75, 17, $WS_BORDER)
$ComboServeur = GUICtrlCreateCombo("", 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)
$InputLaunchC = GUICtrlCreateInput($IniCompte, 264, 292, 145, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$InputLaunchMDP = GUICtrlCreateInput($IniMDP, 264, 316, 145, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL,$ES_READONLY))
$Label9 = GUICtrlCreateLabel("", 268, 270, 60, 20, $WS_BORDER)
$Group3 = GUICtrlCreateGroup("Aide", 208, 448, 185, 85, $BS_CENTER)
$Button3 = GUICtrlCreateButton("Aide", 216, 472, 83, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Aide en Ligne", 304, 472, 83, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Comment utiliser le Launcher?", 216, 504, 171, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label10 = GUICtrlCreateLabel("  Aide ", 284, 448, 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)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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, $y & " Dofus Account Launcher Compte", "Nom de Compte", $SaveCompte)
                $y = $y+1
                IniWrite($SaveChemin, $y & " Dofus Account Launcher MDP", "Mot de Passe", $SaveMDP)
                $y = $y+1
            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

    Case $ButtonLaunch
        If $IniCompte <> "" And $IniMDP <> "" And $ComboServeur <> "" And $ComboPersonnage <> "" Then ; Bugué pour $ComboServeur et $ComboPersonnage
            _Launch($IniCompte, $IniMDP, $ComboServeur, $ComboPersonnage)
        Else
            MsgBox(48, "Dofus Account Launcher", 'Un des champs de la partie "Launcher" est vide. Veuillez remplir tous les champs.')
        EndIf

EndSwitch
WEnd

 Func _Launch($IniCompte, $IniMDP, $ComboServeur, $ComboPersonnage)
    ShellExecute("C:\Program Files\Dofus 2\app\UpLauncher.exe", "", "C:\Program Files\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

    Sleep(7000)
    MouseClick("left")
    Sleep(100)
    Send("{TAB}")
    Sleep(100)
    Send("{TAB}")
    Sleep(100)
    Send("{TAB}")
    Sleep(100)
    Send("{TAB}")
    Sleep(100)
    Send("^a")
    Sleep(100)
    Send($IniCompte)
    Sleep(100)
    Send("{TAB}")
    Sleep(100)
    Send($IniMDP)
    Sleep(100)
    Send("{ENTER}")

    Sleep(30000)
    If GUICtrlRead($ComboServeur, "Serveur 1") Then
        Sleep(100)
        Send("{ENTER}")
    ElseIf GUICtrlRead($ComboServeur, "Serveur 2") Then
        Sleep(100)
        Send("{RIGHT}")
        Sleep(100)
        Send("{ENTER}")
    ElseIf GUICtrlRead($ComboServeur, "Serveur 3") Then
        Sleep(100)
        Send("{RIGHT}")
        Sleep(100)
        Send("{RIGHT}")
        Sleep(100)
        Send("{ENTER}")
    ElseIf GUICtrlRead($ComboServeur, "Serveur 4") Then
        Sleep(100)
        Send("{RIGHT}")
        Sleep(100)
        Send("{RIGHT}")
        Sleep(100)
        Send("{RIGHT}")
        Sleep(100)
        Send("{ENTER}")
    ElseIf GUICtrlRead($ComboServeur, "Serveur 5") Then
        Sleep(100)
        Send("{RIGHT}")
        Sleep(100)
        Send("{RIGHT}")
        Sleep(100)
        Send("{RIGHT}")
        Sleep(100)
        Send("{RIGHT}")
        Sleep(100)
        Send("{ENTER}")
    EndIf

    Sleep(30000)
    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

EndFunc

J'aimerai savoir comment faire pour que la personne puisse enregistrer, au maximum, cinq comptes dans le fichier .ini
Avec le $y je peux enregistrer une infinité de compte mais je voudrais donc m'arrêter à 5.
Attention car, si vous tester le script et que vous enregistrez, vous verrez que les informations du .ini seront notées comme ceci:

Code : Tout sélectionner

[1 Dofus Account Launcher Compte]
Nom de Compte=TestC1
[2 Dofus Account Launcher MDP]
Mot de Passe=TestMDP1
[3 Dofus Account Launcher Compte]
Nom de Compte=TestC2
[4 Dofus Account Launcher MDP]
Mot de Passe=TestMDP2

Et non comme ceci:

Code : Tout sélectionner

[1 Dofus Account Launcher Compte]
Nom de Compte=TestC1
[1 Dofus Account Launcher MDP]
Mot de Passe=TestMDP1
[2 Dofus Account Launcher Compte]
Nom de Compte=TestC2
[2 Dofus Account Launcher MDP]
Mot de Passe=TestMDP2

(Regardez les Chiffres)

Après, l'input $InputLauncherC est enfait une ComboBox, mais pour le moment, comme je ne sais pas faire avec des ComboBox, j'ai mit une Input.
Donc, je voudrais savoir comment faire pour que ma ComboBox se remplissent par les Nom de Comptes enregistrés dans le .ini et, bien sur, ça modifierai aussi le contenu de l'input $InputLauncherMDP

Ma question est peut-être un peu compliqué je pense ^^"
Si je me suis mal exprimé, dites le moi et je ferai ce que je peux pour reformuler mes questions.
Merci à celui, celle ou ceux qui m'aidera(ont)
Kagami!

[Kagami]

Bon, je pars toute la semaine...
J'espère trouver tout pleins de réponses en rentrant vendredi prochain =)

[Tlem]

Votre script est trop 'personnel' pour être testé dans de bonnes conditions sur une autre machine.

Cela dit, pour répondre à votre problématique, j'envisagerais l'utilisation de IniReadSection pour lire la totalité des sections du fichier .ini, puis avec le tableau résultant, je ne lirais que les cinq premières section.
Pour l'écriture du fichier .ini, c'est la même chose. Un tableau de cinq éléments => Écriture dans le fichier .ini

Pour la gestion de ces cinq éléments dans votre script, utilisez toujours le tableau. Si votre tableau contient moins de cinq éléments, alors un bouton 'Créer Compte' est actif. Si plus de cinq compte alors le bouton est inactif.
Pour l'édition d'un compte, utilisez le combo. Si l'élément x est sélectionné alors le bouton 'Éditer' permet son édition.

[Kagami]

Hum... Tout ça me parait un peu dur à réaliser mais je vais tout de même tenter le coup.
Je vais essayer de m'aider le plus possible de l'aide d'Autoit et , j'avais quelque chose d'intéressant sur des fonctions de la ComboBox comme ajouter un élément par exemple.
Qu'entendez-vous par "Trop personnalisé"? J'ai essayé le plus possible de coder ce launcher de sorte à pouvoir le partager mais, si il y a quelque qui fait que ce code n'est utilisable uniquement sur mon ordinateur, ça va être un peu plus difficile à partager... Vous parlez de la couleur? Si c'est le cas, alors je me demande bien comment les bot peuvent marcher sur tous les ordinateurs puisqu'ils ne font que rechercher une couleur.

Je vous direz si vous avez résolu mon problème ce week-end parce que au lycée, il n'y a pas d'Autoit ^^"
Je pense sans doute avoir besoin de plus de précision, me connaissant...
Bonne journée.
Kagami

[Tlem]

Je ne parle pas de la couleur, mais :
- Le fichier 'Dofus Account Launcher Settings.ini' n'est peut être pas présent lors du premier lancement.
- Ligne 20, je doute que "poster_dofus.jpg" soit au même endroit ou existant sur un autre PC.
- Êtes-vous sur que sur une autre machine, le launcher se trouve bien ici : "C:\Program Files\Dofus 2\app\"
- Ligne 97 : Et si il à dofus 1 ou plus tard Dofus 3 ???

[Kagami]

- Le fichier 'Dofus Account Launcher Settings.ini' n'est peut être pas présent lors du premier lancement.
- Ligne 20, je doute que "poster_dofus.jpg" soit au même endroit ou existant sur un autre PC.
- Êtes-vous sur que sur une autre machine, le launcher se trouve bien ici : "C:\Program Files\Dofus 2\app\"
- Ligne 97 : Et si il à dofus 1 ou plus tard Dofus 3 ???

1) Dans ce cas, je mettrai une condition où, si le fichier n'existe pas, ça redémarre le Launcher.
2) Quand je compilerai l'image ne serai pas enregistrée dans le trainer? Il faut absolument que l'utilisateur ai l'image à l'endroit prévu où il y a un autre moyen?
3) Je vais mettre une Input demandant le chemin si ce n'est pas le même et, sinon, ça exécute avec le chemin par défaut.
4) Dofus 1 n'existe plus et, le temps qu'il sorte une version 3, au moins un ou deux ans seront passé. Sinon, j'éditerai le Launcher et je le reposterai sur mon forum.

[Kagami]

Hum... J'ai une question concernant la création de Combo.
Voici à quoi ressemble une GUICreateCombo:

Code : Tout sélectionner

$Combo = GUICtrlCreateCombo("", 264, 374, 145, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Item 1|Item 2|Item 3|Item 4|Item 5")

Est-il possible de mettre des variables à la place des Item?
J'ai essayé de remplacer les Items par des variables mais ça n'a pas marché.

[Tlem]

Code : Tout sélectionner

GUICtrlSetData(-1, $Var1 & "|" & $Var2 & "|" & $Var3 & "|" & $Var4 & "|" & $Var5)

[Kagami]

Bonsoir,

Mon Launcher marche impeccablement bien mais, j'ai une dernière question (Du moins, je l'espère) je voudrais savoir si il y a moyen d'avoir sur sa GUI une image et, que, peu importe où soit l'image, elle apparaisse quand même.
Car, j'ai essayé de mettre:

Code : Tout sélectionner

$Pic1 = GUICtrlCreatePic("poster_dofus.jpg", 0, 0, 420, 620, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

En pensant que si je ne mettais pas de chemin, l'image serait trouvé partout sur l'ordinateur mais non, il faut qu'elle soit au même endroit que le programme.
Merci de votre aide.

[Tlem]

2 solutions :

1 - Utiliser la commande FileInstall (voir exemple de la DOC) qui vous permettra d'inclure l'image dans votre exe, puis de l'utiliser lorsque bon vous semble (c'est la solution la plus simple).

2 - Inclure cette image dans les ressources de votre exe et utiliser l'UDF qui va bien pour l'afficher (http://www.autoitscript.fr/forum/viewto ... f=11&t=513).

[Kagami]

Merci pour votre aide.
Je passe en résolu.