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 ^^