Случайное смещение мыши с переодичностью

[shadowgm]

Ребят, выручайте! Кодингом занимался давно тут встала проблемка.

Нужна программа, которая через определенное время (например каждые 5 секунд, но чтобы можно самому казать временной период) смещает курсор мыши в случайном направлении на случайное количество пикселов, но не более например пяти (с возможностью указания этого числа). простенькая форма с двумя эдитами: в первом указываем интервал, во втором максимальное число пикселов, на которое может сместиться курсор. Очень нужно пожалуйста!! Вы тут ребята все отзывчивые, просто поймите тоже в делфи кодил очень давно в эти счетчики и рандомы вникнуть за 12 часов никак! Заранее большое спасибо!!

[Hacker19_90]

в ontimer

  dx:= random(11) - 5;
  dy:= random(11) - 5;
  SetCursorPos(OldX + dx, OldY+dy);
  OldX := OldX + dx;
  OldY := OldY + dy;

принцип ясен?

[shadowgm]

примерно да, но я вот смотрю сейчас на эти буквы с цифрами и у меня реально голова закипает

[s-andriano]

Это - к доктору.

[Stilet]

shadowgm

Дай угадаю: блокировка сеанса? Надоело пароль вводить?
Может проще убрать эту блокировку вместо того чтоб городить чушь?
(которая кстати будет тебе мешать когда ты будешь работать)

[shadowgm]

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

Дай угадаю: блокировка сеанса? Надоело пароль вводить?
Может проще убрать эту блокировку вместо того чтоб городить чушь?
(которая кстати будет тебе мешать когда ты будешь работать)

вместо того "...чтоб городить чушь" лучше бы помогли!

[denisbrain]

видимо народу нужны такие вещи раз пишут
написал на своем блоге подобную программку

http://netsoftware.ucoz.ru/blog/kak_...u/2012-05-18-6

cooltray на основании
http://www.delphiexpert.ru/view_download.php?id=30
cooltray научил данное приложение сворачиваться в трей

время простоя компьютера - на основании
http://www.delphicomponent.ru/257-de...ompyutera.html

[shadowgm]

а при чем тут заставка вообще?

[denisbrain]

обычно такие проги для вот этого и нужны

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

Дай угадаю: блокировка сеанса? Надоело пароль вводить?
Может проще убрать эту блокировку вместо того чтоб городить чушь?
(которая кстати будет тебе мешать когда ты будешь работать)

[shadowgm]

procedure TForm1.Timer1Timer(Sender: TObject);
var
  posX, posY: Integer;
  foo: TPoint;
begin
 posX:= Random (10)+2;
 posY:= Random (10)+1;
   GetCursorPos(foo);
 SetCursorPos(foo.X+posx, foo.Y+posy);

end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  Timer1.Interval:=(1000);
Timer1.Enabled:=(true);
end;

Сам допер, сам написал. Всем спасибо, все могут быть свободны!