Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 841 fois - Téléchargée 33 fois
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;
repeat
until false;
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.
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.