Page 1 sur 1
[R] Logiciel qui clique à certains endroits.
Posté : sam. 08 oct. 2011 17:09
par octejere
Bonjours,
J'aimerai un logiciel qui double clique en:
- 702.467
- 761.653
- 958.653
- 951.467
Et un autre qui repère la couleur : 0xB0D88B
Merci d'avance
Re: [..] Logiciel qui clique à certain endroit :)
Posté : sam. 08 oct. 2011 17:25
par PandiPanda
voici pour vous
► Afficher le texte
Code : Tout sélectionner
Dim $posX[4]=[702,761,958,951]
Dim $posY[4]=[467,653,653,467]
Octejere()
Func Octejere()
For $i=0 To UBound($posX)-1
MouseClick("left",$posX[$i],$posY[$i],2,0)
Next
; partie ci dessous permet de chercher la couleur
Local $posColor
Do
$posColor=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,0xB0D88B)
Until Not @error
MsgBox(0,'','couleur trouvée en pos: '&$posColor[0]&"."&$posColor[1])
EndFunc
Re: [..] Logiciel qui clique à certain endroit :)
Posté : sam. 08 oct. 2011 19:19
par octejere
En fait j'aimerai un script pour double-cliquer sur certains endroits ET un autre qui double-clique sur la couleur 0xB0D88B
Merci.
Re: [..] Logiciel qui clique à certain endroit :)
Posté : sam. 08 oct. 2011 19:27
par PandiPanda
mon script fait exactement ce que vous vouliez mais si vous vous voulez faire 2 chose de manière séparée ... voici plus bas
► Afficher le texte
Code : Tout sélectionner
Dim $posX[4]=[702,761,958,951]
Dim $posY[4]=[467,653,653,467]
ClickOuJeVeux($posX,$posY)
_RecherchePixelEtClick(2,0xB0D88B)
Func ClickOuJeVeux($arrayX,$arrayY)
For $i=0 To UBound($arrayX)-1
MouseClick("left",$arrayX[$i],$arrayY[$i],2,0)
Next
EndFunc
Func _RecherchePixelEtClick($nbClick=2,$color=0xB0D88B)
Local $posColor
Do
$posColor=PixelSearch(0,0,@DesktopWidth,@DesktopHeight,$color)
Until Not @error
MouseClick('left',$posColor[0],$posColor[1],$nbClick,0)
EndFunc
Re: [..] Logiciel qui clique à certain endroit :)
Posté : dim. 09 oct. 2011 09:56
par octejere
Cela marche !
Merci beaucoup
Bonne continuation
Re: [..] Logiciel qui clique à certain endroit :)
Posté : dim. 09 oct. 2011 22:40
par Tlem
