Движение мышки

[professor1979]

Всем привет.
Помогите написать код для действия, у меня не получается:
нужно, чтобы через определенный промежуток времени курсор мыши сдвигался на несколько пикселей

[denisbrain]

procedure TForm1.Timer1Timer(Sender: TObject);
var r:tpoint;
begin
windows.GetCursorPos(r);
r.X:=r.X+-5+random(10);
r.y:=r.y+-5+random(10);
windows.SetCursorPos(r.X,r.y);

end;

[professor1979]

Спасибо. Но вот, а как сделать так, чтобы курсор мышки сдвигался на n-расстояние один раз каждые 5-10 минут, а не постоянно?

[Stilet]

так, чтобы курсор мышки сдвигался на n-расстояние один раз каждые 5-10 минут, а не постоянно?

procedure TForm1.Timer1Timer(Sender: TObject);
var r:tpoint;
begin
windows.GetCursorPos(r);
r.X:=r.X+-5+random(10);
r.y:=r.y+-5+random(10);
windows.SetCursorPos(r.X,r.y);
TTimer(Sender).Interval:=5000+random(5000);
end;

Бяку пишешь? Западлушку? По рукам смотри получишь.

[professor1979]

Надо просто было сделать, чтобы система не блокировалась. Всем спасибо за помощь.

[Stilet]

Надо просто было сделать, чтобы система не блокировалась.

Достаточно отключить в настройках экрана автоблокировку (скринсейвер с автоблоком) и не париться.

[professor1979]

Прав нет на изменения (не дает доменная политика). А .exe запустит дает. Вот так вот

[Stilet]

не дает доменная политика

Поверь мне если твоя СБ узнает о таком нарушении ты можешь вылететь с работы. Я когда-то безопасностью занимался, то что ты делаешь может попадать под наказания.
К примеру: Оставил ты комп, ушел в другое место надолго. Блока нет, любой гость предприятия может подойти к компу и под предлогом "Он попросил меня чето скачать, забыл мол" наделать беды. И загремишь ты по полной на ковре начальства.