La souris à but !
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 775 fois - Téléchargée 33 fois
Contenu du snippet
Voici un code qui, toute les secondes, fait bouger la souris vingt fois ...
Glorkonline --- Glorkonline.be.tf --- Glorkonline@hotmail.com
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
Commentaires
- Messages postés
- 1237
- Date d'inscription
- samedi 8 novembre 2003
- Statut
- Membre
- Dernière intervention
- 3 septembre 2006
10repeat
until false;
- Messages postés
- 871
- Date d'inscription
- dimanche 6 janvier 2002
- Statut
- Membre
- Dernière intervention
- 3 novembre 2005
1Et 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.
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.