VBNet - Форум - Помогите с маленькой прогой на сравнения цвета

Вопрос: Помогите с маленькой прогой на сравнения цвета Добавлено: 11.06.11 12:55

Автор вопроса: vovick

Есть координаты пикселя на мониторе (465,271). Надо сравнить цвет экрана монитора в этой точке с каким-то заданным цветом(RGB(180,235,149)).

Даже проще в этой точке может быть либо серый, либо зеленый цвет(RGB(180,235,149)), если серый - ничего не делать и программа завершает работу, если зеленый - нажать ctrl + alt + del

Помогите решить эту маленькую задачку.
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: FedX ICQ: 578776900 Вопросов: 4 Ответов: 10	Профиль \| \| #1	Добавлено: 11.06.11 13:09
	Не знаю, как сделать ctrl + alt + del, но сравнить могу помочь. If Point(465,271) = RGB(180,235,149) Then ... ElseIf Point(465,271) = RGB(180,235,149) Then ... End If Ответить

Номер ответа: 2 Автор ответа: FedX ICQ: 578776900 Вопросов: 4 Ответов: 10	Профиль \| \| #2	Добавлено: 11.06.11 13:10
	Сам не пробовал, но что то типа этого Ответить

Номер ответа: 3 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #3	Добавлено: 11.06.11 16:42
	Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Select case GetPixel(GetDC(GetDesktopWindow()),465 ,271) Case RGB(180,235,149) Case RGB(128,128,128) ' Зависит от цвета.... Case else End select Ответить

Номер ответа: 4 Автор ответа: sh ICQ: 1234567 Вопросов: 0 Ответов: 1	Web-сайт: www.blackspeller.ru/ Профиль \| \| #4	Добавлено: 12.06.11 08:09
	ё Ответить

Страница: 1 |