[..] 3CheckBox voir plus :O!

[Affen]

Voilà alors c'est que j'ai fais un scrypt pour que si par exemple 2 checkbox sont cochées, alors qu'il fasse 2 chose mais quand j'ouvre mon scrypt, et bah il se ferme automatiquement.:

► Afficher le texte

Code : Tout sélectionner

WinActivate("[Conquête2.0]")
HotKeySet ("{ESC}", "_Quit")
HotKeySet ("{0}", "_Pause")
Global $Paused

Opt('MustDeclareVars', 1)

_Mine()

Func _Mine()
    Local $color1,$color2,$color3,$color4,$coordBlue,$coordCuivre,$coordFer,$coordOr,$CheckBox_1,$btn_1,$CheckBox_2,$CheckBox_3,$GUI_EVENT_CLOSE,$msg

    GUICreate("CoS²Bots-Pack",325,325)
    Opt("GUICoordMode", 4)
    $CheckBox_1 = GUICtrlCreateCheckbox("MineDeFer",10,10,120,20)
    $CheckBox_2 = GUICtrlCreateCheckbox("MineDeCuivre",10,10,120,80)
    $CheckBox_3 = GUICtrlCreateCheckbox("MineD'Or",10,10,120,120)
    $btn_1 = GUICtrlCreateButton("START",135,275,60,30)

    GUISetState()

    $msg = GUIGetMsg()
        While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $btn_1
                GUIDelete()
While 1=1
If $CheckBox_1 = 1 And $CheckBox_2 = 0 And $CheckBox_3 = 0 Then
                $coordFer=PixelSearch(780,25,995,370,$color1,3)
                    If Not @error Then
                        MouseClick("left",$coordFer[0],$coordFer[1],1)
                        MouseClick("left",500,425,1)
            EndIf
                $coordBlue=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,$color3,3)
                    If Not @error Then
                        Send("{ESC}")
                        MouseClick("left",565,377,1)
                        Exit
            EndIf
                Sleep(500)
EndIf
If $CheckBox_2 = 1 And $CheckBox_1 = 0 And $CheckBox_3 = 0 Then
                $coordBlue=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,$color3,3)
                    If Not @error Then
                        Send("{ESC}")
                        MouseClick("left",565,377,1)
                        Exit
            EndIf
                Sleep(500)
                $coordCuivre=PixelSearch(780,25,995,370,$color2)
                    If Not @error Then
                        MouseClick("left",$coordCuivre[0],$coordCuivre[1],1)
                        MouseClick("left",500,425,1)
            EndIf
EndIf
If $CheckBox_3 = 1 And $CheckBox_2 = 0 And $CheckBox_1 = 0 Then
                $coordBlue=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,$color3,3)
                    If Not @error Then
                        Send("{ESC}")
                        MouseClick("left",565,377,1)
                        Exit
            EndIf
                $coordOr=PixelSearch(780,25,995,370,$color4)
                    If Not @error Then
                        MouseClick("left",$coordOr[0],$coordOr[1],1)
                        MouseClick("left",500,425,1)
            EndIf
EndIf
If $CheckBox_1 = 1 And $CheckBox_2 = 1 And $CheckBox_3 = 0 Then
                $coordFer=PixelSearch(780,25,995,370,$color1,3)
                    If Not @error Then
                        MouseClick("left",$coordFer[0],$coordFer[1],1)
                        MouseClick("left",500,425,1)
            EndIf
                $coordBlue=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,$color3,3)
                    If Not @error Then
                        Send("{ESC}")
                        MouseClick("left",565,377,1)
                        Exit
            EndIf
                Sleep(500)
                $coordCuivre=PixelSearch(780,25,995,370,$color2)
                    If Not @error Then
                        MouseClick("left",$coordCuivre[0],$coordCuivre[1],1)
                        MouseClick("left",500,425,1)
            EndIf
EndIf
If $CheckBox_1 = 1 And $CheckBox_3 = 1 And $CheckBox_2 = 0 Then
                $coordFer=PixelSearch(780,25,995,370,$color1,3)
                    If Not @error Then
                        MouseClick("left",$coordFer[0],$coordFer[1],1)
                        MouseClick("left",500,425,1)
            EndIf
                $coordBlue=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,$color3,3)
                    If Not @error Then
                        Send("{ESC}")
                        MouseClick("left",565,377,1)
                        Exit
            EndIf
                $coordOr=PixelSearch(780,25,995,370,$color4)
                    If Not @error Then
                        MouseClick("left",$coordOr[0],$coordOr[1],1)
                        MouseClick("left",500,425,1)
            EndIf
EndIf
If $CheckBox_2 = 1 And $CheckBox_3 = 1 And $CheckBox_1 = 0 Then
                $coordOr=PixelSearch(780,25,995,370,$color4)
                    If Not @error Then
                        MouseClick("left",$coordOr[0],$coordOr[1],1)
                        MouseClick("left",500,425,1)
            EndIf
                $coordBlue=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,$color3,3)
                    If Not @error Then
                        Send("{ESC}")
                        MouseClick("left",565,377,1)
                        Exit
            EndIf
                $coordCuivre=PixelSearch(780,25,995,370,$color2)
                    If Not @error Then
                        MouseClick("left",$coordCuivre[0],$coordCuivre[1],1)
                        MouseClick("left",500,425,1)
            EndIf
EndIf
If $CheckBox_1 = 1 And $CheckBox_2 = 1 And $CheckBox_3 = 1 Then
                $coordFer=PixelSearch(780,25,995,370,$color1,3)
                    If Not @error Then
                        MouseClick("left",$coordFer[0],$coordFer[1],1)
                        MouseClick("left",500,425,1)
            EndIf
                $coordBlue=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,$color3,3)
                    If Not @error Then
                        Send("{ESC}")
                        MouseClick("left",565,377,1)
                        Exit
            EndIf
                Sleep(500)
                $coordCuivre=PixelSearch(780,25,995,370,$color2)
                    If Not @error Then
                        MouseClick("left",$coordCuivre[0],$coordCuivre[1],1)
                        MouseClick("left",500,425,1)
            EndIf
                $coordBlue=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,$color3,3)
                    If Not @error Then
                        Send("{ESC}")
                        MouseClick("left",565,377,1)
                        Exit
            EndIf
                $coordOr=PixelSearch(780,25,995,370,$color4)
                    If Not @error Then
                        MouseClick("left",$coordOr[0],$coordOr[1],1)
                        MouseClick("left",500,425,1)
            EndIf
EndIf
WEnd
EndSelect
WEnd
EndFunc

Func _Quit()
    ConsoleWrite("Le Bot a été arrêté avec succès" & @CRLF)
    Exit
EndFunc

Func _Pause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Le program est en pause',0,0)
    WEnd
    ToolTip("")
EndFunc

QuelQun sais ou est le problème?

[ani]

Bien le bonjour Affen
Un oubli surement, avant de continuer
pourriez vous lire le réglement concernant la présentation d'un message
et surtout les mentions légales du forum

en vous remerciant.

Code : Tout sélectionner

WinActivate("[Conquête2.0]")
HotKeySet ("{ESC}", "_Quit")
HotKeySet ("{0}", "_Pause")
Global $Paused

Opt('MustDeclareVars', 1)

Ecrivez le plutot comme ceux-ci

Code : Tout sélectionner

Opt('MustDeclareVars', 1)
HotKeySet ("{ESC}", "_Quit")
HotKeySet ("{0}", "_Pause")
Global $Paused
WinActivate("[Conquête2.0]")

Opt("GUICoordMode", 4) indiquez le entre votre fonction et la déclaration de variables

Code : Tout sélectionner

[color=#FF0000]$msg = GUIGetMsg[/color]()
While 1
$msg = GUIGetMsg()

retirez ce qui y est en rouge

bonne continuation et bonne lecture.

[Affen]

Merci de ta réponse bref, je vais voir ce que tu m'a conseiller et aller voir la charte de reglements.

edit:ani,j'ai assayé ce que tu ma proposé mais le problème survien toujours. Que faire?

[ani]

Quand vous démarrez le script il plante direct ?

déjà dans les déclaration Local vous pouvez retirer $GUI_EVENT_CLOSE

et retirez aussi après le bouton start (Case $msg = $btn_1) le Guidelete
ensuite au niveau de la seconde boucle

Code : Tout sélectionner

while 1 [color=#FF0000]= 1[/color]

retirez ce qui est en rouge.
AU niveau des checkbox vous ne faites aucune vérification si elles sont coché ou non, a part l'indice 0 et 1 qui ne serve à rien.
Pour vous 1 correspond à cocher et 0 décocher ?

Code : Tout sélectionner

BitAND(GUICtrlRead($CheckBox_1), $GUI_CHECKED) = $GUI_CHECKED

les valeurs des variables coché et décoché.

Code : Tout sélectionner

$GUI_CHECKED = 1
$GUI_UNCHECKED = 4

Editez déjà le titre de votre premier post en indiquant [..] devant le titre.
Puis effacé tout les mots comme bot

Seconde avertissement !!!
Allez regarder dans vos message privé

merci

[Affen]

ReBonjours,Comment dois-je les mettres et ou dans le scrypt?

Pour vous 1 correspond à cocher et 0 décocher ?

Code : Tout sélectionner

BitAND(GUICtrlRead($CheckBox_1), $GUI_CHECKED) = $GUI_CHECKED

les valeurs des variables coché et décoché.

Code : Tout sélectionner

$GUI_CHECKED = 1
$GUI_UNCHECKED = 4

Merci D'avance

[ani]

Bonsoir affen,
A la première ligne de votre script vous devez ajouter la constante

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

,ensuite au niveau du controle des checkbox remplacer

Code : Tout sélectionner

If $CheckBox_1 = 1 And $CheckBox_2 = 0 And $CheckBox_3 = 0 Then

par

Code : Tout sélectionner

 If BitAND(GUICtrlRead($CheckBox_1,$GUI_CHECKED) = $GUI_CHECKED And BitAND(GUICtrlRead($CheckBox_2,$GUI_UNCHECKED) = $GUI_UNCHECKED  And BitAND(GUICtrlRead($CheckBox_3,$GUI_UNCHECKED) = $GUI_UNCHECKED  Then

faite de même pour les autres.

AU niveau des condition (si chekbox est coché alors = if ...... $Gui_checked then)
au lieu de fermer la condition par endif essayé plutot elseif
Exemple:

Code : Tout sélectionner

 If BitAND(GUICtrlRead($CheckBox_1,$GUI_CHECKED) = $GUI_CHECKED And BitAND(GUICtrlRead($CheckBox_2,$GUI_UNCHECKED) = $GUI_UNCHECKED  And BitAND(GUICtrlRead($CheckBox_3,$GUI_UNCHECKED) = $GUI_UNCHECKED  Then
.......
ElseIf BitAND(GUICtrlRead($CheckBox_2,$GUI_CHECKED) = $GUI_CHECKED And BitAND(GUICtrlRead($CheckBox_1,$GUI_UNCHECKED) = $GUI_UNCHECKED  And BitAND(GUICtrlRead($CheckBox_3,$GUI_UNCHECKED) = $GUI_UNCHECKED  Then

Le elseif signifie sinon si.

Pour la prochaine fois éviter les mots que je vous est demandé.

bonne continuation et bonne apprentissage.

[Affen]

Bonjours, j'ai assayé votre conseil mais un autres erreu m'aparait. dont celle-ci:

If If BitAND(GUICtrlRead($CheckBox_1,$GUI_CHECKED) = $GUI_CHECKED And BitAND(GUICtrlRead($CheckBox_2,$GUI_UNCHECKED) = $GUI_UNCHECKED And BitAND(GUICtrlRead($CheckBox_3,$GUI_UNCHECKED) = $GUI_UNCHECKED Then
If BitAND(GUICtrlRead($CheckBox_1,$GUI_CHECKED) = $GUI_CHECKED And BitAND(GUICtrlRead($CheckBox_2,$GUI_UNCHECKED) = $GUI_UNCHECKED And BitAND(GUICtrlRead($CheckBox_3,$GUI_UNCHECKED) = $GUI_UNCHECKED ^ERROR

Error: Error parsing function call.

[Iste]

heu, il manquerait pas des ")" ?

Code : Tout sélectionner

BitAND[color=#0000FF][b]([/b][/color]GUICtrlRead[color=#FF0000][b]([/b][/color]$CheckBox_3,$GUI_UNCHECKED[color=#4000FF][b])[/b][/color] = $GUI_UNCHECKED

[ani]

en effet, bein vu iste

Code : Tout sélectionner

BitAND(GUICtrlRead($CheckBox_3,$GUI_UNCHECKED)[color=#FF0000])[/color] = $GUI_UNCHECKED

Vous pouvez même mettre le tout entre parenthèse.
Exemple :
If (BitAND(GUICtrlRead($CheckBox_3,$GUI_UNCHECKED)) = $GUI_UNCHECKED) And (...................) then

[Affen]

Me revoila, je dois surment vous ennuyer et je m'en excuse mais, voilà la nouvelle erreur:
If BitAND(GUICtrlRead($CheckBox_1,$GUI_CHECKED)) = $GUI_CHECKED And BitAND(GUICtrlRead($CheckBox_2,$GUI_UNCHECKED)) = $GUI_UNCHECKED And BitAND(GUICtrlRead($CheckBox_3,$GUI_UNCHECKED)) = $GUI_UNCHECKED Then
If ^ERROR

Error: Incorrect number of parameters in function call.

[ani]

Désolé, je vous induit en erreur, j'ai oumit la parenth§se de la lecture du contrôle (guictrlread)

Code : Tout sélectionner

BitAND(GUICtrlRead($CheckBox_1[color=#FF0000])[/color],$GUI_CHECKED)=$GUI_CHECKED

[Affen]

Merci!, je n'ai plu de problème d'erreur. cependant. il n'exécute pas les choses coché. il exécute comme si elles sont tous coché alors k'une seul est coché :S.