[R] GUI qui inscrit des coordonnées dans le script

[canardbrochette]

bonjour a tous je suis canardbrochette(le u n'est aps voulu,une fausse manip' a l'inscription)

je vais expliquer mon problème ou mon désir

j'ai actuellement un script qui clique automatiquement sur des pixels précis,qui est parfaitement adapté a mon ordinateur,mais voila,on me le demande de plus en plus,et c'est qu'il n'est aps adaptable!
donc j'aimerasi une petite fonction ou un "truc" pour par exemple:

je veux que le pixel choisi soit dans la barre d'adresse (un exemple)
et je veix mettre une message box ou on entre les coordonnée,et cela s'inscrit dans le script

je fais les script:

1:avez vous configuré le script? si oui -->exectution du script si non--> messagebox qui met: lancez le script de detection de pixels

2:metterz la souris sur l'icone réduire des fenetres
entrez les coordonnées --> une fois entrées,paf,elles soint inscrites dedans
(toujours mettre un truc de confirmation) si oui,c'est ok --> next si non,on recommmence le step

pour la suite,c'est juste le principe,apres je pourrai me débrouiller,c'est juste ca quoi
bref,ce serait un truc comme ca quoi


bien sur je vous suis reconnaissant de m'aider,vous vous aiguiller,je vous répondrai du mieux possible

[jbnh]

j'ai pas trop compris , si tu me réponds vite je peux le faire ce soir.
Donc l'utilisateur entre les coordonnées, on cherche la couleur de ce pixel et on met quoi dans le script?

[canardbrochette]

non,en fait on affiche une boite de dialogue avec écrit dedans entrez les coordonnées du pixel, et en fonction de ces coordonnées,la souris va cliquer dessus,

sinon,si tu as MSN,je suis preneur,et je pourrai te montrer mon script,ce sera tellement plus pratique

je t'envoie mon adresse en MP

[Tlem]

Merci de lire les règles de présentation d'un post.

Votre nom à été modifié pour supprimer le 'u'.

[jbnh]

Voilà, après m'être entretenu avec lui sur msn, il voulait un espèce de script maker:

► Afficher le textele code autoit

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

If Not FileExists("script_coord.au3") Then
        FileWrite("script_coord.au3",";script ou l'on insere les coords" & @CRLF)   
EndIf

GUICreate("Insertion des valeurs", 200, 440)
GUICtrlCreateLabel("Mousemove", 10, 10)
GUICtrlCreateLabel("Coord X", 10, 40)
$coord1 = GUICtrlCreateInput("", 60, 40, 50, 20)
GUICtrlCreateLabel("Coord Y", 10, 60)
$coord2 = GUICtrlCreateInput("", 60, 60, 50, 20)
$btn1 = GUICtrlCreateButton("Valider", 10, 90, 80)

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

GUICtrlCreateLabel("Mouseclick", 10, 130)
GUICtrlCreateLabel("Coord X", 10, 170)
$coord3 = GUICtrlCreateInput("", 60, 170, 50, 20)
GUICtrlCreateLabel("Coord Y", 10, 190)
$coord4 = GUICtrlCreateInput("", 60, 190, 50, 20)
$btn2 = GUICtrlCreateButton("Valider", 10, 220, 80)

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


GUICtrlCreateLabel("Mousedrag", 10, 260)
GUICtrlCreateLabel("Coord X1", 10, 290)
$coord5 = GUICtrlCreateInput("", 60, 290, 50, 20)
GUICtrlCreateLabel("Coord Y1", 10, 310)
$coord6 = GUICtrlCreateInput("", 60, 310, 50, 20)

GUICtrlCreateLabel("Coord X2", 10, 340)
$coord7 = GUICtrlCreateInput("", 60, 340, 50, 20)
GUICtrlCreateLabel("Coord Y2", 10, 360)
$coord8 = GUICtrlCreateInput("", 60, 360, 50, 20)

$btn3 = GUICtrlCreateButton("Valider", 10, 390, 80)



GUISetState(@SW_SHOW)

While 1
   
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
             ExitLoop
             
             Case $msg = $btn1
             
             $var1 = FileWriteLine('script_coord.au3', 'mousemove(' & GUICtrlRead($coord1) &','& GUICtrlRead($coord2) &',20)' & @CRLF)
             
             If $var1 = 1 then
             MsgBox(0, "Insertion des valeurs", "Ecriture des valeurs réussie")
             Else
             MsgBox(0, "Insertion des valeurs", "Ecriture des valeurs ratées")
             Endif
             
             Case $msg = $btn2
             
             $var2 = FileWriteLine('script_coord.au3', 'mouseclick(' & GUICtrlRead($coord3) &','& GUICtrlRead($coord4) &',1,20)' & @CRLF)
             
             If $var2 = 1 then
             MsgBox(0, "Insertion des valeurs", "Ecriture des valeurs réussie")
             Else
             MsgBox(0, "Insertion des valeurs", "Ecriture des valeurs ratées")
             Endif
             
             Case $msg = $btn3
             
             $var3 = FileWriteLine('script_coord.au3', 'mouseclickdrag(' & GUICtrlRead($coord5) &','& GUICtrlRead($coord6) &','& GUICtrlRead($coord7) &','& GUICtrlRead($coord8) &',20)' & @CRLF)
             If $var3 = 1 then
             MsgBox(0, "Insertion des valeurs", "Ecriture des valeurs réussie")
             Else
             MsgBox(0, "Insertion des valeurs", "Ecriture des valeurs ratées")
             Endif
            
    EndSelect           
Wend

Je déplace donc le sujet dans une catégorie plus appropriée.

[canardbrochette]

apres une petite discussion avec jbnh, j'ai mis la barre assez haut:

dans le script en lui meme,il y a deux fichiers:

script_interface avec les gui et le reste
script_coords avec un script tout fait:
celui ci:

► Afficher le texte

Code : Tout sélectionner

HotKeySet ( "{ESC}" , "Fin" );petite fonction pour quitter le script, la touche est echap
Func Fin ( ) 
Exit
EndFunc ;pour quitter ^^

mouseclick("left",961,11,10,20)
sleep(1000)
mouseclick("left",39,182,2,20)
sleep(3000)
mouseclickdrag("left",623,98,71,98,20)send("{BACKSPACE}")
send("http://warmaniac.ifrance.com/login.php")
send("{ENTER}")
sleep(7000)
mouseclickdrag("left",468,691,361,691,20)
send("{BACKSPACE}")
send("test")
send("{TAB}")
send("test")
send("{ENTER}")
sleep(4000)

$i = 0 

While ($i <> 2000)
    
mousemove(314,393,20)
sleep(2000)
mouseclick("left",505,355,1,20)

$i = $i + 1

if $i = 2 Then
    mouseclickdrag("left",623,98,71,98,20)
    send("http://warmaniac.ifrance.com/frames.php")
    send("{ENTER}")
    sleep(5000)
    
    endif

if $i = 20 Then
    mouseclick("left",209,71,1,20)
    sleep(5000)
    $i = 3

EndIf

WEnd

en fait dans script_coords il y aura déja un script tout fait(celui qui est dans le spoiler)
script_interface va "lire" script_coords,quand script_interface va lire un mouseclick dans script_coords-->ouverture d'un GUI mouseclick avec deux entrées,coords X et coords Y quand il va lire un mousemove -->ouverture du GUI mousemove avec deux entrées,coords X et coords Y et ainsi de suite,et pour les mouseclickdrag 4 entrées:,coords X,coords Y coords X1 et coords Y1

[canardbrochette]

petit up

[timmalos]

Bon je pense que ceci devrait te satisfaire: une simple gui, soit tu lance le script ( que tu avais donné) si tu as deja parametré les positions, soit tu lance une gui de modifications. Toutes les données sont stocké via un fichier .ini, donc quand tu auras paramétré une premiere fois, tant que tu ne supprime pas le .ini toutes tes positions sont enregistrées.

Demande si tu ne comprend pas car je n'ai pas terminé cette partie la, faute de temps, mais c'est facile pour toi de continuer je t'ai donné des instructions.

Ravi de pouvoir être utile,
Timothée

► Afficher le textecode final

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>


;~ Par Timothée..., je n'ai pas terminé la fonction modifier par faute de temps mais je t'ai laissé des indications pour continuer
;~ facilement, il y a juste à changer les $x1 par sx3_1 etc... Voila j'espere que c'est ce que tu voulais. 




mettreajour()

HotKeySet ( "{ESC}" , "Fin" );petite fonction pour quitter le script, la touche est echap
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Mouse v1.0", 316, 231, 352, 195)
GUISetIcon("D:\003.ico")
$GroupBox1 = GUICtrlCreateGroup("", 8, 1, 297, 193)
$Button3 = GUICtrlCreateButton("&Lancer le Script", 80, 32, 153, 49, 0)
$Button4 = GUICtrlCreateButton("&Modifier les positions", 80, 88, 153, 49, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button2 = GUICtrlCreateButton("&Quitter", 122, 203, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1

    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button2
            Exit
        Case $Button3
            lancer()    
        Case $Button4
            modifier()  
            mettreajour()
    EndSwitch
WEnd


Func mettreajour()

$x1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x1","100")
$x2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x2","100")
$x3_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x3_1","100")
$x3_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x3_2","100")
$x4_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x4_1","100")
$x4_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x4_2","100")
$x5 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x5","100")
$x6 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x6","100")
$x7_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x7_1","100")
$x7_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x7_2","100")
$x8 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x8","100")
$y1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y1","100")
$y2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y2","100")
$y3_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y3_1","100")
$y3_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y3_2","100")
$y4_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y4_1","100")
$y4_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y4_2","100")
$y5 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y5","100")
$y6 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y6","100")
$y7_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y7_1","100")
$y7_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y7_2","100")
$y8 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y8","100")

EndFunc


Func Fin ( )
Exit
EndFunc ;pour quitter ^^



Func modifier()
HotKeySet ( "{ESC}" , "Fin" );petite fonction pour quitter le script, la touche est echap


#Region ### START Koda GUI section ### Form=
$Form222 = GUICreate("Mouse v1.0 : Modifications", 316, 231, 352, 195)
GUISetIcon("D:\003.ico")
$Button8 = GUICtrlCreateButton("&Valider", 122, 203, 75, 25, 0)
;~ ; a finir à partir d'ici: mettre la suite, tu devrais y arriver avec le premier exemple
$x1label = GUICtrlCreateLabel("$x1:", 24, 48, 24, 17)
$x1input = GUICtrlCreateInput($x1, 48, 48, 73, 21)  
;
; ~~~~~~~~~  exemple:
;$x2label = GUICtrlCreateLabel("$x2:", 24, 48, 24, 17)
;$x2input = GUICtrlCreateInput($x2, 48, 48, 73, 21) 
;
;
;
;




;
;
;
;
;~ ; ////////////////////////


GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ### 


While 1

     ; ToolTip pour t'aider  a trouver les positions de la souris plus facilement qu'avec Autoit WIndow Info
    $pos = MouseGetPos()
    Tooltip("X="&$pos[0]&"||Y="&$pos[1])
    ; Fin
    $nMsg = GUIGetMsg()
    Switch $nMsg
        ;~ ;a finir à partir d'ici: mettre la suite, tu devrais y arriver avec le premier exemple
        Case $x1input
            $x1 = GuictrlRead($x1input)


;   exemple:    Case. $x2input
;                   $x2 = GuictrlRead($x2input)
;
;
;
;
;



;
;
;
;

        ;~ ; ////////////////////////
        Case $GUI_EVENT_CLOSE
            GUIDelete($form222)
            Exitloop
        Case $Button8
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$x1",$x1)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$x2",$x2)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$x3_1",$x3_1)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$x3_2",$x3_2)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$x4_1",$x4_1)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$x4_2",$x4_2)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$x5",$x5)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$x6",$x6)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$x7_1",$x7_1)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$x7_2",$x7_2)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$x8",$x8)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$y1",$y1)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$y2",$y2)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$y3_1",$y3_1)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$y3_2",$y3_2)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$y4_1",$y4_1)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$y4_2",$y4_2)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$y5",$y5)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$y6",$y6)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$y7_1",$y7_1)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$y7_2",$y7_2)
            IniWrite(@ScriptDir&"\parametres.ini","Positions","$y8",$y8)  
            
            GUIDelete($form222)
            Exitloop
        
    EndSwitch
WEnd
    
    
EndFunc

Func lancer()
HotKeySet ( "{ESC}" , "Fin" );petite fonction pour quitter le script, la touche est echap
mouseclick("left",$x1,$y1,10,20)
sleep(1000)
mouseclick("left",$x2,$y2,2,20)
sleep(3000)
mouseclickdrag("left",$x3_1,$y3_1,$x3_2,$y3_2,20)
send("{BACKSPACE}")
send("http://warmaniac.ifrance.com/login.php")
send("{ENTER}")
sleep(7000)
mouseclickdrag("left",$x4_1,$y4_1,$x4_2,$y4_2,20)
send("{BACKSPACE}")
send("test")
send("{TAB}")
send("test")
send("{ENTER}")
sleep(4000)

$i = 0

While ($i <> 2000)
   
mousemove($x5,$y5,20)
sleep(2000)
mouseclick("left",$x6,$y6,1,20)

$i = $i + 1

if $i = 2 Then
    mouseclickdrag("left",$x7_1,$y7_1,$x7_2,$y7_2,20)
    send("http://warmaniac.ifrance.com/frames.php")
    send("{ENTER}")
    sleep(5000)
   
    endif

if $i = 20 Then
    mouseclick("left",$x8,$y8,1,20)
    sleep(5000)
    $i = 3

EndIf

WEnd

EndFunc

Edit: si tu ne veux pas te faire 'chier' a faire la gui 'Modifications', (tu peux dailleur t'aider de Koda c'est plus rapide),
1:---->>> tu clique une fois sur Modifier les positions
2:---->>> tu clique une fois sur Valider
3:---->>> Un fichier "parametres.ini" s'est créé dans le dossier de ton script, le bureau si ton script est dans le bureau, tu clique dessus et la tu pourra modifier à la main toutes les positions ( tu as l'air de connaitre comment utiliser Autoit WIndow Info pour connaitre les positions de la souris)
4:---->>> tu relance ton script et tu clique sur Lancer, totu devrait bien se passer, comme quand tu avais ton script. Tu peux maintenant faire passer ton script entre plusieurs ordinateurs il te suffira de changer les parametres dans le .ini

Je pense que cela te conviendra. Bonne journée:)

[canardbrochette]

tou d'abord,je te remercie grandement,ton script m'a l'air vraiment bien pensé,
je vais tester d'adapoter tout cela,mais je te remercie pour ton travail,j'adapte,et je partage apres,si jamais j'ai un blem,prends mon MSN,j'aurai surement quelques questions

MSN: final-canardbrochette[at]hotmail[point]fr

EDIT: boulot monstre que tu as fait! maleusreusement,apres quelques regards sur le script en lui meme,il y a quelques trucs ici et la que je me comprends pas
me contacter par MSN siouplé m'sieur

REDIT:

si tu ne veux pas te faire 'c....' a faire la gui 'Modifications', (tu peux dailleur t'aider de Koda c'est plus rapide),
1:---->>> tu clique une fois sur Modifier les positions
2:---->>> tu clique une fois sur Valider
3:---->>> Un fichier "parametres.ini" s'est créé dans le dossier de ton script, le bureau si ton script est dans le bureau, tu clique dessus et la tu pourra modifier à la main toutes les positions ( tu as l'air de connaitre comment utiliser Autoit WIndow Info pour connaitre les positions de la souris)
4:---->>> tu relance ton script et tu clique sur Lancer, totu devrait bien se passer, comme quand tu avais ton script. Tu peux maintenant faire passer ton script entre plusieurs ordinateurs il te suffira de changer les parametres dans le .ini

ici je ne peux pas,car une fois que je clique sur modifier les positions message d'erreur:

line 85 (file"script.au3"):

$x1label = GUICtrlCreatelabel($x1,24,48,24,17)
$1label = GUICtrlCreatelabel(^ERROR

Error: variable used whithout being declared

or cette variable est déclérée (les deux en fait)

$x1 est déclarée a la ligne 44

Code : Tout sélectionner

$x1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x1","100")

mais $x1label,je ne vois aps ou elle est déclarée vuq u'elle se déclare dans cette ligne

[timmalos]

en effet j'ai vu ca totu a l'heure l'erreur vient du fait que j'ai voulu mettres les ini read dans une fonction ca n'a pas l'air de marcher je ne sais pas du tout pourquoi

Mais je t'envoie un script qui marche meme si il est moins beau

[timmalos]

RESOLU, je lui ai envoyé par msn , voila le code qu'il voulait:

Code : Tout sélectionner

#NoTrayIcon
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
Global $ok = 0

HotKeySet ( "{ESC}" , "Fin" );petite fonction pour quitter le script, la touche est echap


$x1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x1","100")
$x2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x2","100")
$x3_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x3_1","100")
$x3_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x3_2","100")
$x4_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x4_1","100")
$x4_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x4_2","100")
$x5 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x5","100")
$x6 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x6","100")
$x7_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x7_1","100")
$x7_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x7_2","100")
$x8 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x8","100")
$y1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y1","100")
$y2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y2","100")
$y3_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y3_1","100")
$y3_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y3_2","100")
$y4_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y4_1","100")
$y4_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y4_2","100")
$y5 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y5","100")
$y6 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y6","100")
$y7_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y7_1","100")
$y7_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y7_2","100")
$y8 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y8","100")



If $x1 = "" or $x8 = "" or $y8 = "" then
    modifier()
Else
    $msgbox = MsgBox(4,"MouseClick v1","Vous avez déjà paramétré le script."&@CRLF&" Voulez vous continuer? (oui) ou reparamétrer? (non)")
        If $msgbox = 6 then
            lancer()
        Else
            modifier()  
        EndIf
EndIF







Func modifier()
run(@scriptdir & "\mousecoord.exe")
HotKeySet ( "{ESC}" , "Fin" );petite fonction pour quitter le script, la touche est echap


While $ok <> 1
$x1 = InputBox("Mouseclick 1/22","Entrez la valeur de $x1","100")
$y1 = InputBox("Mouseclick 2/22","Entrez la valeur de $y1","100")
$x2 = InputBox("Mouseclick 3/22","Entrez la valeur de $x2","100")
$y2 = InputBox("Mouseclick 4/22","Entrez la valeur de $y2","100")
$x3_1 = InputBox("Mouseclickdrag 5/22","Entrez la valeur de $x3_1","100")
$y3_1 = InputBox("Mouseclickdrag 6/22","Entrez la valeur de $y3_1","100")
$x3_2 = InputBox("Mouseclickdrag 7/22","Entrez la valeur de $x3_2","100")
$y3_2 = InputBox("Mouseclickdrag 8/22","Entrez la valeur de $y3_2","100")
$x4_1 = InputBox("Mouseclickdrag 9/22","Entrez la valeur de $x4_1","100")
$y4_1 = InputBox("Mouseclickdrag 10/22","Entrez la valeur de $y4_1","100")
$x4_2 = InputBox("Mouseclickdrag 11/22","Entrez la valeur de $x4_2","100")
$y4_2 = InputBox("Mouseclickdrag 12/22","Entrez la valeur de $y4_2","100")
$x5 = InputBox("Mouseclickdrag 13/22","Entrez la valeur de $x5","100")
$y5 = InputBox("Mouseclickdrag 14/22","Entrez la valeur de $y5","100")
$x6 = InputBox("Mouseclickdrag 15/22","Entrez la valeur de $x6","100")
$y6 = InputBox("Mouseclickdrag 16/22","Entrez la valeur de $y6","100")
$x7_1 = InputBox("Mouseclickdrag 17/22","Entrez la valeur de $x7_1","100")
$y7_1 = InputBox("Mouseclickdrag 18/22","Entrez la valeur de $y7_1","100")
$x7_2 = InputBox("Mouseclickdrag 19/22","Entrez la valeur de $x7_2","100")
$y7_2 = InputBox("Mouseclickdrag 20/22","Entrez la valeur de $y7_2","100")
$x8 = InputBox("Mouseclickdrag 21/22","Entrez la valeur de $x8","100")
$y8 = InputBox("Mouseclickdrag 22/22","Entrez la valeur de $y8","100")
$ok = 1
ProcessClose ( "mousecoord.exe")



WEnd
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x1",$x1)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x2",$x2)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x3_1",$x3_1)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x3_2",$x3_2)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x4_1",$x4_1)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x4_2",$x4_2)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x5",$x5)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x6",$x6)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x7_1",$x7_1)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x7_2",$x7_2)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x8",$x8)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y1",$y1)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y2",$y2)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y3_1",$y3_1)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y3_2",$y3_2)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y4_1",$y4_1)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y4_2",$y4_2)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y5",$y5)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y6",$y6)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y7_1",$y7_1)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y7_2",$y7_2)
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y8",$y8) 
;~            
$msgbox = MsgBox(4,"MouseClick v1","Vous avez paramétré le script."&@CRLF&" Voulez vous lancer le script? (oui) ou quitter? (non)")
    If $msgbox = 6 then
        lancer()
    Else
        Exit    
    EndIf

EndFunc





;~ , DEBUT DE LANCER
Func lancer()
HotKeySet ( "{ESC}" , "Fin" );petite fonction pour quitter le script, la touche est echap
mouseclick("left",$x1,$y1,10,20)
sleep(1000)
mouseclick("left",$x2,$y2,2,20)
sleep(3000)
mouseclickdrag("left",$x3_1,$y3_1,$x3_2,$y3_2,20)
send("{BACKSPACE}")
send("http://warmaniac.ifrance.com/login.php")
send("{ENTER}")
sleep(7000)
mouseclickdrag("left",$x4_1,$y4_1,$x4_2,$y4_2,20)
send("{BACKSPACE}")
send("test")
send("{TAB}")
send("test")
send("{ENTER}")
sleep(4000)

$i = 0

While ($i <> 2000)
   
mousemove($x5,$y5,20)
sleep(2000)
mouseclick("left",$x6,$y6,1,20)

$i = $i + 1

if $i = 2 Then
    mouseclickdrag("left",$x7_1,$y7_1,$x7_2,$y7_2,20)
    send("http://warmaniac.ifrance.com/frames.php")
    send("{ENTER}")
    sleep(5000)
   
    endif

if $i = 20 Then
    mouseclick("left",$x8,$y8,1,20)
    sleep(5000)
    $i = 3

EndIf

WEnd

EndFunc
;~ , FIN DDE LANCER
Func Fin ( )
Exit
EndFunc ;pour quitter ^^

[canardbrochette]

je vasi remercier timmalos2 et jbnh pour l'aide fournie ainsi que tlem pour la présentation du post(oui bon,maigre consolation tlem,je dois l'avouer )

merci a toius et j'espère que ce script servira a tout le monde !

[Tlem]

ainsi que tlem

J'ai rien fait moi ...
Vous étiez en très bonne main, donc comme j'avais d'autres chats à fouettés ...

[jbnh]

ainsi que tlem

J'ai rien fait moi ...
Vous étiez en très bonne main, donc comme j'avais d'autres chats à fouettés ...

Hahaha, ca m'a bien fait rire en tout cas surtout le smiley j'imagnais bien ta tête en lisant le message !!

[Tlem]

<= A peut prêt ça.

[timmalos]

@canardbrochette, tu as resolu ce que tu voulais faire? pas de soucis avec les arrays? si tu veux une autre solution que celle que je t'avasi donné il y en a des centaines, n'hesite pas à demander

[canardbrochette]

hmm oui j'ai a peu près fait ce que je désirais,je vous poste ceci,mais il me reste encore quelques problèmes,surtout au niveau texte,car j'aimerais que tout soit personnalisable dans mon script,certes,timmalos m'a bien aidé et bien aiguillé,j'en ai profité pour continuer et finir ce qu'il m'avait donné ainsi que peaufiner

ce qui bloque c'est au send,cela envoie $x9 ou $x10 au lieu du texte entré dans la configuration,bref,ca aide pas

voici le script:

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
Global $ok = 0

HotKeySet ( "{ESC}" , "Fin" );petite fonction pour quitter le script, la touche est echap


$x1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x1","")
$x2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x2","")
$x3_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x3_1","")
$x3_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x3_2","")
$x4_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x4_1","")
$x4_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x4_2","")
$x5 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x5","")
$x6 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x6","")
$x7_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x7_1","")
$x7_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x7_2","")
$x8 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x8","")
$y1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y1","")
$y2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y2","")
$y3_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y3_1","")
$y3_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y3_2","")
$y4_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y4_1","")
$y4_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y4_2","")
$y5 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y5","")
$y6 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y6","")
$y7_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y7_1","")
$y7_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y7_2","")
$y8 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y8","")
$x9 = IniRead(@ScriptDir&"\parametres.ini","Adresse","$x9","")
$y9 = IniRead(@ScriptDir&"\parametres.ini","Pseudonyme","$y9","")
$x10 = IniRead(@ScriptDir&"\parametres.ini","Mot de passe","$x10","")
$y10 = IniRead(@ScriptDir&"\parametres.ini","Adresse","$y10","")

If $x1 = "" then
    modifier()
Else
    $msgbox = MsgBox(4,"MouseClick v1","Vous avez déjà paramétré le script."&@CRLF&" Voulez vous continuer? (oui) ou reparamétrer? (non)")
        If $msgbox = 6 then
            lancer()
        Else
            modifier()  
        EndIf
EndIF







Func modifier()
run(@scriptdir & "\mousecoord.exe")
HotKeySet ( "{ESC}" , "Fin" );petite fonction pour quitter le script, la touche est echap


While $ok <> 1
$1input = InputBox("Mouseclick 1/11","Entrez les coordonnées de votre souris quand elle est sur l'icone de réduction des fenetres séparées par une virgule ","(ex:147,145)")
$1 = StringSplit($1input,",")
;---- x1 et y1

$2input = InputBox("Mouseclick 2/11","Entrez les coordonnées de votre souris quand elle est sur l'icone de votre navigateur internet séparées par une virgule","(ex:147,145)")
$2 = StringSplit($2input,",")
;---- x2 et y2

$3input = InputBox("Mouseclickdrag 3/11","Entrez les coordonnées de votre souris quand elle est sur la barre d'adresse aux 3/4 a droite séparées par une virgule","(ex:147,145)")
$3 = StringSplit($3input,",")
;---- x3_1 et y3_1

$4input = InputBox("Mouseclickdrag 4/11","Entrez les coordonnées de votre souris quand elle est sur la barre d'adresse au maximum a gauche tout en restant dans la zone de texte séparées par une virgule","(ex:147,145)")
$4 = StringSplit($4input,",")
;---- x3_2 et y3_2

$12input = InputBox("Mouseclick 6/11","Entrez l'adresse de votre site oui il y a votre pub","(ex:http://test.test.fr)");du texte,a voir...
$12 = $12input
;---- x9

$msgbox4 = MsgBox(4,"login","avez vous besoin de vous logguer dans votre site pour acceder aux pubs?");ici je ne suis pas sur

if $msgbox4 = 6 then
$5input = InputBox("Mouseclickdrag 5/11","Entrez les coordonnées de votre souris quand elle est sur la case pseudonyme le maximum a droite tout en restant dans la zone de texte séparées par une virgule","(ex:147,145)")
$5 = StringSplit($5input,",")
;---- x4_1 et y4_1

$6input = InputBox("Mouseclick 7/11","Entrez les coordonnées de votre souris quand elle est sur la case pseudonyme le maximum a gauche tout en restant dans la zone de texte séparées par une virgule","(ex:147,145)")
$6 = StringSplit($6input,",")
;---- x4_2 et y4_2

$13input = InputBox("Mouseclick 10/11","Entrez votre pseudonyme","(ex:test)");ici c'est du texte,je ne suis pas sur du tout...
$13 = $13input
;---- y9

$14input = InputBox("Mouseclick 11/11","Entrez votre mot de passe","(ex:test)");pareil pour ce point la
$14 = $14input
;---- x10

$15input = InputBox("Mouseclick 12/11","Entrez l'adresse de votre page d'index","(ex:http://warmaniac.ifrance.com/frames.php)")
$15 = $15input
;---- y10
endif

$7input = InputBox("Mouseclick 8/11","Entrez les coordonnées de votre souris quand elle est sur votre module le maximum au milieu séparées par une virgule","(ex:147,145)")
$7 = StringSplit($7input,",")
;---- x5 et y5
$8input = InputBox("Mouseclick 9/11","Entrez les coordonnées de votre souris quand elle est sur la petite croix de fermeture du module séparées par une virgule","(ex:147,145)")
$8 = StringSplit($8input,",")
;---- x6 et y6
$9input = InputBox("Mouseclickdrag 13/11","Entrez les coordonnées de votre souris quand elle est sur la barre d'adresse aux 3/4 a droite séparées par une virgule","(ex:147,145)")
$9 = StringSplit($9input,",")
;---- x7_1 et xy7_1
$10input = InputBox("Mouseclickdrag 14/11","Entrez les coordonnées de votre souris quand elle est sur la barre d'adresse au maximum a gauche tout en restant dans la zone de texte séparées par une virgule","(ex:147,145)")
$10 = StringSplit($10input,",")
;---- x7_2 et y7_2
$11input = InputBox("Mouseclick 12/11","Entrez les coordonnées de votre souris quand elle est sur l'icone d'actualisation de votre page séparées par une virgule","(ex:147,145)")
$11 = StringSplit($11input,",")
;---- x8 et y8
$ok = 1

ProcessClose ( "mousecoord.exe")

WEnd
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x1",$1[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y1",$1[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x2",$2[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y2",$2[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x3_1",$3[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y3_1",$3[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x3_2",$4[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y3_2",$4[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x4_1",$5[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y4_1",$5[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x4_2",$6[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y4_2",$6[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x5",$7[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y5",$7[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x6",$8[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y6",$8[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x7_1",$9[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y7_1",$9[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x7_2",$10[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y7_2",$10[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x8",$11[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y8",$11[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Adresse","$x9",$12)
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Pseudonyme","$y9",$13)
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Mot de passe","$x10",$14)
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Adresse","$y10",$15)
    ;-----
    
    
$msgbox = MsgBox(4,"MouseClick v1","Vous avez paramétré le script."&@CRLF&" Voulez vous lancer le script? (oui) ou quitter? (non)")
    If $msgbox = 6 then
        lancer()
    Else
        Exit    
    EndIf







;~ , DEBUT DE LANCER
Func lancer()
HotKeySet ( "{ESC}" , "Fin" );petite fonction pour quitter le script, la touche est echap
mouseclick("left",$x1,$y1,10,20)
sleep(1000)
mouseclick("left",$x2,$y2,2,20)
sleep(7000)
mouseclickdrag("left",$x3_1,$y3_1,$x3_2,$y3_2,20)
send("{BACKSPACE}")
send("$x9");- adresse ici je ne suis pas sur
send("{ENTER}")
sleep(10000)
if $msgbox4 = 6 then
mouseclickdrag("left",$x4_1,$y4_1,$x4_2,$y4_2,20);zone de login
send("{BACKSPACE}");-
send("$y9");- pseudonyme ici je ne suis pas sur
send("{TAB}");-
send("$x10");- mot de passe ici je ne suis pas sur
send("{ENTER}");-
sleep(10000)
endif
$i = 0

While ($i <> 2000)
   
mousemove($x5,$y5,20);- zone de clic
sleep(2000);-
mouseclick("left",$x6,$y6,1,20);-

$i = $i + 1

if $i = 2 Then
    mouseclickdrag("left",$x7_1,$y7_1,$x7_2,$y7_2,20)
    send("$y10");-  adresse ici je ne suis pas sur
    send("{ENTER}")
    sleep(5000)
   
    endif

if $i = 20 Then
    mouseclick("left",$x8,$y8,1,20)
    sleep(5000)
    $i = 3

EndIf

WEnd

EndFunc
;~ , FIN DDE LANCER
Func Fin ( )
Exit
EndFunc ;pour quitter ^^

bref,a voir,a corriger ou meme a revoir

@tlem je voulais te remercier car tu m'avais,comment dire,enseigné lese règles du forum en faisant un effort et en me mettant un lien,et ca,c'est fort
hem,pour les chats,je sais pas si je dois dire pauvres chats ou pauvre tlem(bah oui fouetter des chats faut etre malade quand meme )

Canardbrochette

[timmalos]

Tu t'en es bien sorti mais tu as fait pas mal d'erreur je pense avoir tout corrigé.
Ton script tel qu'il etait ne pouvait marcher qu'avec beaucoup de chance:
Il fallait d'abord cliquer sur Modifier, tout rentré, quitter le programme, recliquer sur modifier en remettant les mêmes valeurs, puis cliquer sur lancer
Bonne chance pour faire tout ca:)
Si tu veux que je t'explique pourquoi , ca sera sur msn:)

Et il y avait pas mal d'autres erreurs.
Petite suggestion: au lieu de mettre:

(ex:147,145)

Mets ca:

$x1&","&$y1

En remplacant les x1 par la suite, etc. Comme ca l'utilisateur a ses dernière valeurs et si il y en a qu'une qui a changé il sera content de ne pas tout ravoir à faire. Je t'ai mis l'exemple sur la premiere InputBox.

Voilà pour les send:
Si tu mets ca:

Code : Tout sélectionner

send("$x1")

tu va envoyer $x1
Si tu mets ca:

Code : Tout sélectionner

send($x1)

tu va envoyer la valeur de $x1

Le code!

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
Global $ok = 0

HotKeySet ( "{ESC}" , "Fin" );petite fonction pour quitter le script, la touche est echap

$log = IniRead(@ScriptDir&"\parametres.ini","Positions","Log","0")
$x1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x1","")
$x2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x2","")
$x3_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x3_1","")
$x3_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x3_2","")
If $log = 1 then
$x4_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x4_1","")
$x4_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x4_2","")
$y4_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y4_1","")
$y4_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y4_2","")
$y9 = IniRead(@ScriptDir&"\parametres.ini","Pseudonyme","$y9","")
$x10 = IniRead(@ScriptDir&"\parametres.ini","Mot de passe","$x10","")
$y10 = IniRead(@ScriptDir&"\parametres.ini","Adresse","$y10","")
EndIf
$x5 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x5","")
$x6 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x6","")
$x7_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x7_1","")
$x7_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x7_2","")
$x8 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x8","")
$y1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y1","")
$y2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y2","")
$y3_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y3_1","")
$y3_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y3_2","")
$y5 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y5","")
$y6 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y6","")
$y7_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y7_1","")
$y7_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y7_2","")
$y8 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y8","")
$x9 = IniRead(@ScriptDir&"\parametres.ini","Adresse","$x9","")


If $x1 = "" then
    modifier()
Else
    $msgbox = MsgBox(4,"MouseClick v1","Vous avez déjà paramétré le script."&@CRLF&" Voulez vous continuer? (oui) ou reparamétrer? (non)")
        If $msgbox = 6 then
            lancer()
        Else
            modifier()  
        EndIf
EndIF







Func modifier()
run(@scriptdir & "\mousecoord.exe")
HotKeySet ( "{ESC}" , "Fin" );petite fonction pour quitter le script, la touche est echap
MsgBox(0,"Parametrage", "Vous allez configurer le programme. Veuillez s'il vous plait suivre toutes les indications données."&@CRLF&"Quand vous devez enregistrer des positions, veuillez les écrire:"&@CRLF&"1: séparés par une virgule."&@CRLF&"2: Les X en premier et les Y après"&@CRLF&"Exemple: 204,547 ")

While $ok <> 1
$1input = InputBox("Mouseclick 1/14","Entrez les coordonnées de votre souris quand elle est sur l'icone de réduction des fenetres  ",$x1&","&$y1)
$1 = StringSplit($1input,",")
;---- x1 et y1

$2input = InputBox("Mouseclick 2/14","Entrez les coordonnées de votre souris quand elle est sur l'icone de votre navigateur internet ","(ex:147,145)")
$2 = StringSplit($2input,",")
;---- x2 et y2

$3input = InputBox("Mouseclickdrag 3/14","Entrez les coordonnées de votre souris quand elle est sur la barre d'adresse aux 3/4 a droite ","(ex:147,145)")
$3 = StringSplit($3input,",")
;---- x3_1 et y3_1

$4input = InputBox("Mouseclickdrag 4/14","Entrez les coordonnées de votre souris quand elle est sur la barre d'adresse au maximum a gauche tout en restant dans la zone de texte ","(ex:147,145)")
$4 = StringSplit($4input,",")
;---- x3_2 et y3_2

$12input = InputBox("Mouseclick 5/14","Entrez l'adresse de votre site oui il y a votre pub","(ex:http://test.test.fr)");du texte,a voir...
$12 = $12input
;---- x9

$msgbox4 = MsgBox(4,"login","avez vous besoin de vous logguer dans votre site pour acceder aux pubs?");ici je ne suis pas sur

if $msgbox4 = 6 then
$5input = InputBox("Mouseclickdrag 6/14","Entrez les coordonnées de votre souris quand elle est sur la case pseudonyme le maximum a droite tout en restant dans la zone de texte ","(ex:147,145)")
$5 = StringSplit($5input,",")
;---- x4_1 et y4_1

$6input = InputBox("Mouseclick 7/14","Entrez les coordonnées de votre souris quand elle est sur la case pseudonyme le maximum a gauche tout en restant dans la zone de texte ","(ex:147,145)")
$6 = StringSplit($6input,",")
;---- x4_2 et y4_2

$13input = InputBox("Mouseclick 8/14","Entrez votre pseudonyme","(ex:test)");ici c'est du texte,je ne suis pas sur du tout...
$13 = $13input
;---- y9

$14input = InputBox("Mouseclick 9/14","Entrez votre mot de passe","(ex:test)");pareil pour ce point la
$14 = $14input
;---- x10

$15input = InputBox("Mouseclick 10/14","Entrez l'adresse de votre page d'index","(ex:http://warmaniac.ifrance.com/frames.php)")
$15 = $15input
;---- y10
endif

$7input = InputBox("Mouseclick 11/14","Entrez les coordonnées de votre souris quand elle est sur votre module le maximum au milieu ","(ex:147,145)")
$7 = StringSplit($7input,",")
;---- x5 et y5
$8input = InputBox("Mouseclick 12/14","Entrez les coordonnées de votre souris quand elle est sur la petite croix de fermeture du module ","(ex:147,145)")
$8 = StringSplit($8input,",")
;---- x6 et y6
$9input = InputBox("Mouseclickdrag 13/14","Entrez les coordonnées de votre souris quand elle est sur la barre d'adresse aux 3/4 a droite ","(ex:147,145)")
$9 = StringSplit($9input,",")
;---- x7_1 et xy7_1
$10input = InputBox("Mouseclickdrag 14/14","Entrez les coordonnées de votre souris quand elle est sur la barre d'adresse au maximum a gauche tout en restant dans la zone de texte ","(ex:147,145)")
$10 = StringSplit($10input,",")
;---- x7_2 et y7_2
$11input = InputBox("Mouseclick 14/14","Entrez les coordonnées de votre souris quand elle est sur l'icone d'actualisation de votre page ","(ex:147,145)")
$11 = StringSplit($11input,",")
;---- x8 et y8
$ok = 1

ProcessClose ( "mousecoord.exe")

WEnd
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x1",$1[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y1",$1[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x2",$2[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y2",$2[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x3_1",$3[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y3_1",$3[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x3_2",$4[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y3_2",$4[2])
    ;-----
If $msgbox4 = 6 Then    
    IniWrite(@ScriptDir&"\parametres.ini","Positions","Log","1")
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x4_1",$5[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y4_1",$5[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x4_2",$6[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y4_2",$6[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Pseudonyme","$y9",$13)
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Mot de passe","$x10",$14)
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Adresse","$y10",$15)
    ;-----
EndIf   
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x5",$7[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y5",$7[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x6",$8[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y6",$8[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x7_1",$9[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y7_1",$9[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x7_2",$10[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y7_2",$10[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$x8",$11[1])
    IniWrite(@ScriptDir&"\parametres.ini","Positions","$y8",$11[2])
    ;-----
    IniWrite(@ScriptDir&"\parametres.ini","Adresse","$x9",$12)
    ;-----
   
   
   
$msgbox = MsgBox(4,"MouseClick v1","Vous avez paramétré le script."&@CRLF&" Voulez vous lancer le script? (oui) ou quitter? (non)")
    If $msgbox = 6 then
        $log = IniRead(@ScriptDir&"\parametres.ini","Positions","Log","0")
        $x1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x1","")
        $x2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x2","")
        $x3_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x3_1","")
        $x3_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x3_2","")
        If $log = 1 then
        $x4_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x4_1","")
        $x4_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x4_2","")
        $y4_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y4_1","")
        $y4_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y4_2","")
        $y9 = IniRead(@ScriptDir&"\parametres.ini","Pseudonyme","$y9","")
        $x10 = IniRead(@ScriptDir&"\parametres.ini","Mot de passe","$x10","")
        $y10 = IniRead(@ScriptDir&"\parametres.ini","Adresse","$y10","")
        EndIf
        $x5 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x5","")
        $x6 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x6","")
        $x7_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x7_1","")
        $x7_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x7_2","")
        $x8 = IniRead(@ScriptDir&"\parametres.ini","Positions","$x8","")
        $y1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y1","")
        $y2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y2","")
        $y3_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y3_1","")
        $y3_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y3_2","")
        $y5 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y5","")
        $y6 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y6","")
        $y7_1 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y7_1","")
        $y7_2 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y7_2","")
        $y8 = IniRead(@ScriptDir&"\parametres.ini","Positions","$y8","")
        $x9 = IniRead(@ScriptDir&"\parametres.ini","Adresse","$x9","")

        lancer()
    Else
        Exit    
    EndIf


EndFunc




;~ , DEBUT DE LANCER
Func lancer()
HotKeySet ( "{ESC}" , "Fin" );petite fonction pour quitter le script, la touche est echap
mouseclick("left",$x1,$y1,10,20)
sleep(1000)
mouseclick("left",$x2,$y2,2,20)
sleep(7000)
mouseclickdrag("left",$x3_1,$y3_1,$x3_2,$y3_2,20)
send("{BACKSPACE}")
send($x9);- adresse ici je ne suis pas sur
send("{ENTER}")
sleep(10000)
if $Log = 1 then
mouseclickdrag("left",$x4_1,$y4_1,$x4_2,$y4_2,20);zone de login
send("{BACKSPACE}");-
send($y9);- pseudonyme ici je ne suis pas sur
send("{TAB}");-
send($x10);- mot de passe ici je ne suis pas sur
send("{ENTER}");-
sleep(10000)
endif
$i = 0

While ($i <> 2000)
   
mousemove($x5,$y5,20);- zone de clic
sleep(2000);-
mouseclick("left",$x6,$y6,1,20);-

$i = $i + 1

if $i = 2 Then
    mouseclickdrag("left",$x7_1,$y7_1,$x7_2,$y7_2,20)
    send($y10);-  adresse ici je ne suis pas sur
    send("{ENTER}")
    sleep(5000)
   
endif

if $i = 20 Then
    mouseclick("left",$x8,$y8,1,20)
    sleep(5000)
    $i = 3

EndIf

WEnd

EndFunc
;~ , FIN DDE LANCER

Func Fin ( )
Exit
EndFunc ;pour quitter ^^

[canardbrochette]

timmalos,je crois que je vais dire:

je t'aime

merci bien pour tout,c'est vraiment,génial!

[timmalos]

pas de soucis:) A la prochaine fois que tu auras des soucis:)