Показать полную графическую версию : Помогите сделать авто-кликер
можно попробовать
If $var < 0xC00000 OR $var > 0xCFFFFF Then
Нет, к сожалению так не получается =(
Нет, к сожалению так не получается =( »
значит нужно каждый задавать, лучше массивом
К сожалению я не разбираюсь в этом, если у вас не отнимет это много времени. Напишите пожалуйста примерно как выглядит код.
вот так
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
$coord = PixelSearch( 0, 0, 800, 600, $element );первые 4 цифры - область экрана где ищется цвет
А там где 800, 600 - это разрешение экрана ? Или как...
А там где 800, 600 - это разрешение экрана ? Или как... »
это просто для примера
0,0 -это левый верхний угол экрана
800, 600 - это размер области
можно задавать все 4 цифры
AutoIt v3 Window Info
Показует мне Position 480,524 . Куда её вписывать от туда?
первые две цифры брать из Position две последние из Size
Хорошо, а теперь как сделать что-бы при смене любого цвета срабатывал MouseClick("Left"), и задать еще кнопки включения и выключения ?
А как сделать что-бы к примеру при нажатии 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
Всё разобрался , сделал несколько функций.
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.