La souris à but !

5/5 (2 avis)

Snippet vu 4 760 fois - Téléchargée 33 fois

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

Ajouter un commentaire

Commentaires

Signaler
cs_grandvizir
Messages postés
1237
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
 10 -
On pourrait aussi faire:
repeat
until false;
Signaler
cs_Bestiol
Messages postés
871
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
3 novembre 2005
 1 -
Beaucoup de code pour pas grand chose...
Et la boucle infinie doit certainement bloquer l'application, surtout à cause du sleep !
L'utilisation d'un timer est plus conseillée, ça évite aussi la bidouille en assembleur pour faire une boucle infinie qui, au passage, se fait avec While True do ...

Bonne prog' !
Bestiol.
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)