Войти

Показать полную графическую версию : Помогите сделать авто-кликер


Страниц : 1 [2]

ferget
18-05-2012, 05:16
можно попробовать

If $var < 0xC00000 OR $var > 0xCFFFFF Then

wnc
18-05-2012, 05:31
Нет, к сожалению так не получается =(

ferget
18-05-2012, 05:43
Нет, к сожалению так не получается =( »
значит нужно каждый задавать, лучше массивом

wnc
18-05-2012, 05:49
К сожалению я не разбираюсь в этом, если у вас не отнимет это много времени. Напишите пожалуйста примерно как выглядит код.

ferget
18-05-2012, 06:15
вот так

HotKeySet("{ESC}", "Terminate")

;Сначала выбираем все нужные цвета
Dim $aArray[4]

;тут записываем каждый цвет
$aArray[0]=0xC00000
$aArray[1]=0x000000
$aArray[2]=0xFFFFFF
$aArray[3]=0xCFF555
;........................




While 1
For $element In $aArray
$aPos = MouseGetPos()
$var = PixelGetColor( $aPos[0] , $aPos[1] )
If $var = $element Then
MouseClick("Left")
EndIf
Next
WEnd


Func Terminate()
Exit 0
EndFunc

хотя лучше автоматизировать поиск цвета, этот код сам наводит мышку на нужный цвет

HotKeySet("{ESC}", "Terminate")


;Сначала выбираем все нужные цвета
Dim $aArray[4]

;тут записываем каждый цвет
$aArray[0]=0xC00000
$aArray[1]=0x000000
$aArray[2]=0xFFFFFF
$aArray[3]=0xCFF555
;........................




While 1
For $element In $aArray
$coord = PixelSearch( 0, 0, 800, 600, $element );первые 4 цифры - область экрана где ищется цвет
If Not @error Then
MouseClick("Left", $coord[0] , $coord[1])
EndIf
Next
WEnd


Func Terminate()
Exit 0
EndFunc

wnc
18-05-2012, 06:26
$coord = PixelSearch( 0, 0, 800, 600, $element );первые 4 цифры - область экрана где ищется цвет
А там где 800, 600 - это разрешение экрана ? Или как...

ferget
18-05-2012, 06:31
А там где 800, 600 - это разрешение экрана ? Или как... »
это просто для примера
0,0 -это левый верхний угол экрана
800, 600 - это размер области

можно задавать все 4 цифры

wnc
18-05-2012, 06:39
AutoIt v3 Window Info
Показует мне Position 480,524 . Куда её вписывать от туда?

ferget
18-05-2012, 06:41
первые две цифры брать из Position две последние из Size

wnc
18-05-2012, 15:45
Хорошо, а теперь как сделать что-бы при смене любого цвета срабатывал MouseClick("Left"), и задать еще кнопки включения и выключения ?

wnc
19-05-2012, 03:41
А как сделать что-бы к примеру при нажатии MouseClick("Right")
Останавливался этот код:

HotKeySet("{ESC}", "Terminate")

While 1
$aPos = MouseGetPos()
$var = PixelGetColor( $aPos[0] , $aPos[1] )
If $var <> 0x212121 Then
MouseClick("Left")
EndIf
WEnd

Func Terminate()
Exit 0
EndFunc

И начинался этот

HotKeySet("{ESC}", "Terminate")


;Сначала выбираем все нужные цвета
Dim $aArray[4]

;тут записываем каждый цвет
$aArray[0]=0xC00000
$aArray[1]=0x000000
$aArray[2]=0xFFFFFF
$aArray[3]=0xCFF555
;........................




While 1
For $element In $aArray
$coord = PixelSearch( 0, 0, 800, 600, $element );первые 4 цифры - область экрана где ищется цвет
If Not @error Then
MouseClick("Left", $coord[0] , $coord[1])
EndIf
Next
WEnd


Func Terminate()
Exit 0
EndFunc

wnc
19-05-2012, 04:39
Всё разобрался , сделал несколько функций.




© OSzone.net 2001-2012