Что нового

Нажатие клавиши при смене цвета координаты

мариХуянь

Новичок
Сообщения
3
Репутация
0
Версия AutoIT: AutoIt v3
Описание: при смене цвета заданого пикселя нажатие клавиши клавиатуры
Примечания: срабатывать должна быстро
Здравствуйте! Подскажите как сделать,что бы при смене цвета в определенной координате срабатывала(с минимальной задержкой(!!!)) клавиша клавиатуры (F7).И после нажатия программа не закрылась,а продолжала работать так же.Координаты и цвет определил: X,Y: 380 717 Color: 0xAD0000 - обычное состояние(ничего происходить не должно)
X,Y: 380 717 Color: 0x181C18 - когда цвет станет таким мгновенно должна нажаться клавиша F7.Подскажите код,заранее благодарен!
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
Re: Нажатие клавиши при смене цвете координаты

мариХуянь,
Оформите, пожалуйста, тему в соответствии с Правилами обязательного оформления тем.
И, ИМХО, не плохо бы Вам ник поменять, а то как-то похабно звучит.
 
Автор
М

мариХуянь

Новичок
Сообщения
3
Репутация
0
Первый раз делаю.. строго не судите.Пытался сделать по шаблону - не получилось...Вот набросок:
Код:
HotKeySet("{76}")
While 1
	PixelSearch(380 717,0x181C18)
	If Not @error Then
		Send("{76}")
		TrayTip(' ','F7',5)
	EndIf
	Sleep(50)
	WEnd
	Func _76()
		Exit
		EndFunc
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
(подробнее), а обычный код соответственно в тег [code]
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


С уважением, ваш Модератор.
 
Автор
М

мариХуянь

Новичок
Сообщения
3
Репутация
0
Код:
Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
WinActivate("[TITLE:R2]")
While WinActive("[TITLE:R2]")
	 If PixelGetColor(380, 717) == 0x181C18 Then
		 Send("{VK_F7}")
	 EndIf
	 WEnd

Подскажите народ вроде срабатывает,но нажимается не кнопка F7,нажимается много раз,а нужно однократно,и что бы после завершения не закрывалась.Буду ОЧЕНЬ благодарен!


Неужели опытным пользователям это так сложно?((
 
Верх