[R] Bouton Radio

[SkyDrink]

Bonjour, j'ai un petit problème depuis un certain moment, je voudrait que pour chaque bouton radio qu'il y'a dans la Gui seul une parti du script ce lance.
Il y'a forcément un message sur ce problème mais je doit vous avouer que vu le très grand nombre de page à ce sujet je n'ai réussi a trouver les renseignement dont j'ai besoin.

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
For $i = 0 To 1 Step +1

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Createur de perso", 450, 300, -1, -1)
Global $Group1 = GUICtrlCreateGroup("Tools de SkyDrink", 128, 32, 329, 273)
Global $feca = GUICtrlCreateRadio("Radio1", 160, 80, 9, 9)
Global $sacri = GUICtrlCreateRadio("Radio2", 160, 104, 9, 9)
Global $steamer = GUICtrlCreateRadio("Radio5", 160, 176, 9, 9)
Global $Zobal = GUICtrlCreateRadio("Radio6", 336, 80, 9, 9)
Global $iop = GUICtrlCreateRadio("Radio7", 336, 104, 9, 9)
Global $cra = GUICtrlCreateRadio("Radio8", 336, 128, 9, 9)
Global $xelor = GUICtrlCreateRadio("Radio9", 336, 152, 9, 9)
Global $osa = GUICtrlCreateRadio("Radio10", 336, 176, 9, 9)
Global $panda = GUICtrlCreateRadio("Radio11", 336, 200, 9, 9)
Global $roublard = GUICtrlCreateRadio("Radio12", 336, 224, 9, 9)
Global $sadi = GUICtrlCreateRadio("Radio4", 160, 152, 9, 9)
Global $sram = GUICtrlCreateRadio("Radio13", 160, 128, 9, 9)
Global $eni = GUICtrlCreateRadio("Radio3", 160, 200, 9, 9)
Global $enu = GUICtrlCreateRadio("Radio14", 160, 224, 9, 9)
Global $eca = GUICtrlCreateRadio("Radio15", 336, 248, 9, 9)
Global $Go = GUICtrlCreateButton("Go", 416, 272, 25, 17, $WS_GROUP)
Global $pseudo = GUICtrlCreateInput("Nom du personnage", 200, 272, 105, 21)
Global $Label2 = GUICtrlCreateLabel("Feca", 176, 80, 68, 17)
Global $Label3 = GUICtrlCreateLabel("Sram", 176, 128, 68, 17)
Global $Label4 = GUICtrlCreateLabel("Sadi", 176, 152, 68, 17)
Global $Label1 = GUICtrlCreateLabel("Sacri", 176, 104, 68, 17)
Global $Label5 = GUICtrlCreateLabel("Steamer", 176, 176, 68, 17)
Global $Label6 = GUICtrlCreateLabel("Eni", 176, 200, 68, 17)
Global $Label7 = GUICtrlCreateLabel("Enu", 176, 224, 68, 17)
Global $Label8 = GUICtrlCreateLabel("Zobal", 352, 80, 68, 17)
Global $Label9 = GUICtrlCreateLabel("Iop", 352, 104, 68, 17)
Global $Label10 = GUICtrlCreateLabel("Crâ", 352, 128, 66, 17)
Global $Label11 = GUICtrlCreateLabel("Xelor", 352, 152, 66, 17)
Global $Label12 = GUICtrlCreateLabel("Osa", 352, 176, 66, 17)
Global $Label13 = GUICtrlCreateLabel("Panda", 352, 200, 66, 17)
Global $Label14 = GUICtrlCreateLabel("Roublard", 352, 224, 66, 17)
Global $Label15 = GUICtrlCreateLabel("Eca", 352, 248, 66, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

 $nMsg = GUIGetMsg()
Switch $nMsg
    Case $GUI_EVENT_CLOSE
Case $enu
    WinWait("Dofus") ;Attend la fenêtre avec le pseudo
WinActivate("Dofus") ;Active la fenêtre
WinMove("Dofus", "", 0, 0, 800, 600) ;Redimentionnement et repositionnement de la fenêtre Dofus

MouseClick("left",193,231,1,1) ;Choisi la classe ici le enu
Sleep(500)
MouseClick("left",114,371,1,1)
Sleep(300)
MouseClick("left",161,339,1,1)
Sleep(250)
MouseClick("left",114,396,1,1)
Sleep(500)
MouseClick("left",227,345,1,1)
Sleep(250)
MouseClick("left",143,348,1,1)
sleep(250)
MouseClick("left",227,345,1,1)
Sleep(250)
MouseClick("left",142,372,1,1)
Sleep(250)
MouseClick("left",227,345,1,1)
Sleep(250)
MouseClick("left",358,507,1,1)
Sleep(500)
Send ($pseudo)
Sleep(500)
MouseClick("left",402,550,1,1)


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

 EndSwitch
WEnd

 

Voici un aperçu de mon script, j'ai aussi un problème qui doit être ridicule pour vous ^^' je ne trouve pas comment faire pour que si l'utilisateur appuie sur le bouton Go le script ce lance en ayant pris en compte le bouton radio.

Je suis pas si j'ai était précis sur le problème, vous pouvez me posez les questions qui vous sont floue.

[Tlem]

Bonsoir.
Pour l'instant votre code n'est pas un bot de jeux. Il serait bien que cela ne change pas !

Concernant votre problème, vous devez rechercher sur le forum la fonction IsChecked() ensuite vous devez dans votre boucle principale (While/Wend) vérifier pour chaque bouton créé si il est coché ou non et en fonction du résultat, vous effectuez votre action.

Code : Tout sélectionner

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit
    
    Case $GO
        ; Action pour Radio1
        If IsChecked($feca) Then
            ; Code
        EndIf
        
        ; Action pour Radio2
        If IsChecked($sacri) Then
            ; Code
        EndIf
    EndSwitch
WEnd

[SkyDrink]

Merci je vais voir ça et non c'est pas un bots mais plutôt un utilitaire moi qui crée beaucoup de perso sa me permet d'avoir sur chaque perso la même couleur.
Pour que sa soit plus esthétique j'ai voulus crée une Gui avec des radio ^^

Si mon problème est résolus je métrait [R] dans 5min

[SkyDrink]

Je réouvre le sujet Tlem j'ai une erreur avec le boue de script que tu me donne

ERROR: IsChecked(): undefined function.

Apparemment la fonction n'est pas définie mais je ne sais pas comment faire ^^'
pourrais tu m'expliquer si tu a 2 minutes.

[mikell]

Raa la la

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

GUICreate("My GUI radio", 150, 150) 
$radio1 = GUICtrlCreateRadio("Radio 1", 10, 10, 120, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$radio2 = GUICtrlCreateRadio("Radio 2", 10, 40, 120, 20)
$btn = GUICtrlCreateButton("Go", 30, 80, 50, 25)
GUISetState() 

While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $btn
        If _IsChecked($radio1) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($radio1, 1))
        If _IsChecked($radio2) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($radio2, 1))
        EndSelect
WEnd

Func _IsChecked($controle)
    Return BitAND(GUICtrlRead($controle), $GUI_CHECKED) = $GUI_CHECKED
EndFunc ;==>_IsChecked 
 

[SkyDrink]

Svp monsieur je suis perddu je peut mettre où le mon script pour le radio1 :X j'ai essayé après de Then en retirant le Msgbox mais sa ne marche pas.

[mikell]

Code : Tout sélectionner

Case $msg = $btn
    If _IsChecked($radio1) Then 
        [color=#FF0000];  tu mets le fourbi ici[/color]
    EndIf

[pierrotm777]

Ca donnerait cela !

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;For $i = 0 To 1 Step +1

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Createur de perso", 450, 300, -1, -1)
Global $Group1 = GUICtrlCreateGroup("Tools de SkyDrink", 128, 32, 329, 273)

Global $feca = GUICtrlCreateRadio("Radio1", 160, 80, 9, 9)
Global $sacri = GUICtrlCreateRadio("Radio2", 160, 104, 9, 9)
Global $steamer = GUICtrlCreateRadio("Radio5", 160, 176, 9, 9)
Global $Zobal = GUICtrlCreateRadio("Radio6", 336, 80, 9, 9)
Global $iop = GUICtrlCreateRadio("Radio7", 336, 104, 9, 9)
Global $cra = GUICtrlCreateRadio("Radio8", 336, 128, 9, 9)
Global $xelor = GUICtrlCreateRadio("Radio9", 336, 152, 9, 9)
Global $osa = GUICtrlCreateRadio("Radio10", 336, 176, 9, 9)
Global $panda = GUICtrlCreateRadio("Radio11", 336, 200, 9, 9)
Global $roublard = GUICtrlCreateRadio("Radio12", 336, 224, 9, 9)
Global $sadi = GUICtrlCreateRadio("Radio4", 160, 152, 9, 9)
Global $sram = GUICtrlCreateRadio("Radio13", 160, 128, 9, 9)
Global $eni = GUICtrlCreateRadio("Radio3", 160, 200, 9, 9)
Global $enu = GUICtrlCreateRadio("Radio14", 160, 224, 9, 9)
Global $eca = GUICtrlCreateRadio("Radio15", 336, 248, 9, 9)

Global $Go = GUICtrlCreateButton("Go", 416, 272, 25, 17, $WS_GROUP)

Global $pseudo = GUICtrlCreateInput("Nom du personnage", 200, 272, 105, 21)

Global $Label2 = GUICtrlCreateLabel("Feca", 176, 80, 68, 17)
Global $Label3 = GUICtrlCreateLabel("Sram", 176, 128, 68, 17)
Global $Label4 = GUICtrlCreateLabel("Sadi", 176, 152, 68, 17)
Global $Label1 = GUICtrlCreateLabel("Sacri", 176, 104, 68, 17)
Global $Label5 = GUICtrlCreateLabel("Steamer", 176, 176, 68, 17)
Global $Label6 = GUICtrlCreateLabel("Eni", 176, 200, 68, 17)
Global $Label7 = GUICtrlCreateLabel("Enu", 176, 224, 68, 17)
Global $Label8 = GUICtrlCreateLabel("Zobal", 352, 80, 68, 17)
Global $Label9 = GUICtrlCreateLabel("Iop", 352, 104, 68, 17)
Global $Label10 = GUICtrlCreateLabel("Crâ", 352, 128, 66, 17)
Global $Label11 = GUICtrlCreateLabel("Xelor", 352, 152, 66, 17)
Global $Label12 = GUICtrlCreateLabel("Osa", 352, 176, 66, 17)
Global $Label13 = GUICtrlCreateLabel("Panda", 352, 200, 66, 17)
Global $Label14 = GUICtrlCreateLabel("Roublard", 352, 224, 66, 17)
Global $Label15 = GUICtrlCreateLabel("Eca", 352, 248, 66, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

 $nMsg = GUIGetMsg()
Switch $nMsg
    Case $GUI_EVENT_CLOSE
Case $enu
    WinWait("Dofus") ;Attend la fenêtre avec le pseudo
WinActivate("Dofus") ;Active la fenêtre
WinMove("Dofus", "", 0, 0, 800, 600) ;Redimentionnement et repositionnement de la fenêtre Dofus

MouseClick("left",193,231,1,1) ;Choisi la classe ici le enu
Sleep(500)
MouseClick("left",114,371,1,1)
Sleep(300)
MouseClick("left",161,339,1,1)
Sleep(250)
MouseClick("left",114,396,1,1)
Sleep(500)
MouseClick("left",227,345,1,1)
Sleep(250)
MouseClick("left",143,348,1,1)
sleep(250)
MouseClick("left",227,345,1,1)
Sleep(250)
MouseClick("left",142,372,1,1)
Sleep(250)
MouseClick("left",227,345,1,1)
Sleep(250)
MouseClick("left",358,507,1,1)
Sleep(500)
Send ($pseudo)
Sleep(500)
MouseClick("left",402,550,1,1)


EndSwitch

While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $GO
                If _IsChecked($feca) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($feca, 1))
                If _IsChecked($sacri) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($sacri, 1))
                If _IsChecked($steamer) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($steamer, 1))
                If _IsChecked($Zobal) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($Zobal, 1))
                If _IsChecked($iop) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($iop, 1))
                If _IsChecked($cra) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($cra, 1))
                If _IsChecked($xelor) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($xelor, 1))
                If _IsChecked($osa) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($osa, 1))
                If _IsChecked($panda) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($panda, 1))
                If _IsChecked($roublard) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($roublard, 1))
                If _IsChecked($sadi) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($sadi, 1))
                If _IsChecked($sram) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($sram, 1))
                If _IsChecked($eni) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($eni, 1))
                If _IsChecked($enu) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($enu, 1))
                If _IsChecked($eca) Then Msgbox(0,"", "cliqué " & GuiCtrlRead($eca, 1))
        EndSelect
WEnd

Func _IsChecked($controle)
    Return BitAND(GUICtrlRead($controle), $GUI_CHECKED) = $GUI_CHECKED
EndFunc ;==>_IsChecked