La souris à but !

Commenter

Contenu du snippet

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

A voir également

S'inscrire maintenant

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.

Du même auteur (Glorkonline)