1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. La souris à but !

La souris à but !

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 887 fois - Téléchargée 34 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
Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
 21
On pourrait aussi faire:
repeat
until false;
Signaler
Messages postés
833
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)