Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для ferget

Разный


Сообщения: 1294
Благодарности: 359

Профиль | Отправить PM | Цитировать


вот так

читать дальше »
Код: Выделить весь код
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
Это сообщение посчитали полезным следующие участники:

Отправлено: 06:15, 18-05-2012 | #25