Page 1 sur 1
[R] Fonction constante
Posté : sam. 16 août 2008 01:55
par Nairod
Bonjour,
Dans un premier temps et comme je n'ai pu encore le faire, j'aimerais remercier les créateurs de ce magnifique forum ainsi que touts les internautes contribuant à son entretenir.
Je suis en train de créer un petit script me permettant d'automatiser l'appui sur certaines touches et la détection de certains pixels. Jusque là rien d'extraordinaire, je vous montre :
Il est certainement moche mais j'en suis fière
Ce que j'aimerais rajouter, c'est une fonction (ou autre) qui automatiserai l'appuie sur F7 si les pixel rouges disparaissent et se à tout moment du script.
► Afficher le texte
Code : Tout sélectionner
Global $Paused
;Global $Popo
HotKeySet("{F11}", "Sortie")
HotKeySet("{F10}", "Pause")
$x=0
$y=0
MsgBox(0,"Lancement du programme etes vous prèt ?","Cliquez sur Ok quand vous etes prèt.")
MouseMove(800,17)
MouseDown("left")
MouseUp("left")
; Attente de ciblage -----------------------
While 10
while 11
If Not PixelSearch ( $x+750 , $y+75 , $x+870 , $y+83 , 0xFF0000, 100 ) Then ExitLoop
sleep(100)
wend
; ----------------------------------------
While 20
sleep(100)
Send("2")
sleep(100)
Send("3")
sleep(100)
If PixelSearch ( $x+750 , $y+75 , $x+770 , $y+83 , 0xFF0000, 100 ) Then ExitLoop
Wend
sleep(100)
Send("2")
sleep(100)
Send("3")
Send("{w down}")
Sleep(800)
Send("{w up}")
; ------------------------------------
$f=0
While 30
Send("{F1}")
sleep(200)
$f=$f+1
If $f>30 then ExitLoop
Wend
; ----------------------------------------------
sleep(500)
Send("{F2}")
While 40
sleep(100)
if Not PixelSearch ( $x+260 , $y+90 , $x+275 , $y+100 , 0xFF0000, 100 ) Then ExitLoop ;Attendre le full life
Wend
Send("{s down}")
Sleep(100)
Send("{s up}")
Wend
;-------------------------------------------------------
Func Pause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
;>>Fonction que j'ai imaginée mais qui ne fonctionne pas<<
;Func Popo()
;if PixelSearch ( $x+260 , $y+90 , $x+275 , $y+100 , 0xFF0000, 100 )
;Then Send("{F7}")
;EndFunc
Func Sortie()
Exit
EndFunc
Ce que j'aimerais rajouter, c'est une fonction (ou autre) qui automatiserai l'appuie sur F7 si les pixel rouges disparaissent et se à tout moment du script.
Re: [..] Fonction constante
Posté : sam. 16 août 2008 15:47
par Nairod
Il me seble avoir trouvé la solution.
Je la met au cas où, il serait util pour d'auters.
en début de script je met la fonction
AdlibEnable
Code : Tout sélectionner
Global $Paused
AdlibEnable("Popo")
HotKeySet("{F11}", "Sortie")
HotKeySet("{F10}", "Pause")
$x=0
$y=0
MsgBox(0,"Lancement du programme etes vous prèt ?","Cliquez sur Ok quand vous etes prèt.")
MouseMove(800,17)
MouseDown("left")
MouseUp("left")
Et en fin de script je met
Code : Tout sélectionner
Func Popo()
if PixelSearch ( $x+260 , $y+90 , $x+275 , $y+100 , 0xFF0000, 100 ) Then Send("{F7}")
EndFunc
Après une bonne semain de recherche j'ai enfin trouvé
J'imagine que quelque chose de plus propre existe mais l'important est que ca marche.