Voici un code qui, toute les secondes, fait bouger la souris vingt fois ...
Source / Exemple :
procedure Alcolhic;
var
Direction : Integer;
I, J : Longint;
begin
for i := 0 to 1 do begin
asm mov i,0 end; // for infini ...
for j := 1 to 20 do begin
Direction := Random(3);
If Direction = 0 then begin
SetCursorPos(Mouse.CursorPos.X - 3,Mouse.CursorPos.Y - 3);
end;
If Direction = 1 then begin
SetCursorPos(Mouse.CursorPos.X - 3,Mouse.CursorPos.Y + 3);
end;
If Direction = 2 then begin
SetCursorPos(Mouse.CursorPos.X + 3,Mouse.CursorPos.Y - 3);
end;
If Direction = 3 then begin
SetCursorPos(Mouse.CursorPos.X + 3,Mouse.CursorPos.Y + 3);
end;
end;
sleep(1000);
end;
end;
Conclusion :
Glorkonline --- Glorkonline.be.tf --- Glorkonline@hotmail.com
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.