Определение ухода курсора мыши за край экрана

[tae1980]

Нужно определения уход курсора мыши за край экрана, а так же время которое он находится краем экрана.
Хочу что бы при отвод мыши за край экрана и нахождение курсора там 2-5 сек приводило к появлению формы. Возможно такое?

[EducatedFool]

10 минут пытался вытащить курсор за край экрана - но мне это так и не удалось...

[tae1980]

Сообщение от EducatedFool

10 минут пытался вытащить курсор за край экрана - но мне это так и не удалось...

Тогда изменим постановку вопроса:
Нужно определить нахождение курсора мыши у края экрана (подвод курсора к краю экрана), а так же время которое он находится у краем экрана (удержание курсора у края экрана).

Если такое возможно, получаем 8 точек к которым достаточно просто подвести курсор для вызова нужного окна. А так как экран большой, можно не метиться и делать довольно грубые, но быстрые движения. Очень удобно. А задержка реакции в 2-5 сек. позволит избежать срабатывания при случайных подводах курсора.

[VictorM]

Как определить координаты курсора мышки
Может это что-то подскажет? Дерзайте!)

[doober]

тут 2 варианта.
1.Вариант от VictorM + таймер
2.Глобальный хук на мышку,и мы все перемещения курсора отслеживаем

[tae1980]

Сообщение от VictorM

Как определить координаты курсора мышки
Может это что-то подскажет? Дерзайте!)

Да, это может помочь.
Что мы имеем:
1. Можем определить размер экрана.
2. Можем определить координаты курсора. И как следствие определить когда одна из координат курсора будет равна границе экрана.
Все это не сложно упаковать в макрос. Теперь достаточно раз в секунду проверять координуты курсора. Кажется это можно сделать если подправить код

Sub РазВМинуту
  If [a1] > 50 Then МойМакрос
  Application.OnTime Now + TimeSerial(0,1,0), "РазВМинуту"
end sub

Да дело оказалось не таким сложным. Спасибо!

[tae1980]

Сообщение от doober

тут 2 варианта.
1.Вариант от VictorM + таймер
2.Глобальный хук на мышку,и мы все перемещения курсора отслеживаем

Можно подробнее о втором? Есть положительные отличия от первого?

[doober]

Я не люблю таймеров с кодом Application.OnTime

Если вам подходит первый вариант,то тогда заморачиваться с хуком не надо.Есть пример здесь

По коду он должен работать,но не работает реально

[IgorGO]

у меня ваще караул! когда курсор уходит за экран вправо - он попадает на второй монитор

[tae1980]

Сообщение от doober

Если вам подходит первый вариант,то тогда заморачиваться с хуком не надо.Есть пример здесь

Ругается "500 - Internal server error."