Последние записи
- Нужен ли сайт разработчику?
- Обсуждаем технологию I2P
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
2nd
Янв
Алгоритм программы которая двигает курсор в обратном направлении
Posted by Chas under Delphi
Как сделать небольшую программу которая должна двигать курсором в противоположном направлении? Пример мыш двигаетса влево а курсор вправо.
Человек_Борща
Тут 2 способа, глобальная ловушка либо как-то ещё. Но найболее простой способ это ловушка.
Так, получаешь ширину и высоту экрана.
Далее просто:
У нас есть конвеерная лента ввиде массива array[0..1] of TPoint, в 0 будем хранить текущие координаты, в 1 заносим новые координаты,
TPoint это XY коррдинаты. Горизонталь монитора это Y а вертикаль это X(Или на оборот, до сих пор путаю оси графика функции).
Далее логика:
Если a[1].X < a[0].X //Движение вверх
значит a[1].X + 1 // а мы делаем вижение вниз
Если a[1].Y < a[0].Y //Движение влево
значит a[1].Y + 1 //а мы делаем движение вправо
Если a[1].X > a[0].X //Движение Вниз
значит a[1].X – 1 // а мы делаем вижение вверх
Если a[1].Y > a[0].Y //Движение вправо
значит a[1].Y – 1 //а мы делаем движение влево
Присваиваем мышке a[1] координаты.
Надеюсь ясно?
С ловушкой проблема в том, что координаты мыши для 1 будет сложно получить.
Но думаю и в прогрfмме можно отгребать координаты мыши со всего экрана? без проблем.
GetCursorPos(a[0]); //Базовые кооринаты
Sleep(5); //Ждём изменения
GetCursorPos(a[1]); //Координаты сравнения