[R] Fonction constante

[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.

[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.