[R] Script ne s'exécute pas complètement

karter45 · #1

Bonjour,
jai esseyer de faire un petit programme pour faire peur a mes amis seulement ca ne marche pas trop lol,
il y a que le bib sonnore qui se fait mais rien d'autre ^^
voici le code:

Code : Tout sélectionner

#NoTrayIcon
While 1
Beep(1000, 500)
Beep(500, 100)
WEnd

#NoTrayIcon
While 1
CDTray("d:","open")
CDTray("d:","close")
WEnd

BlockInput(1)
ProgressOn("Transfert de fonds", "Votre compte va être débité de 50 000 €", "0 €")
For $i = 0 to 100 step 1
sleep(100)
ProgressSet($i,500*$i&" €")
Next
ProgressSet(100,"Votre compte à été débité de 50 000 €","Transfert terminé")
sleep(2000)
ProgressOff()
BlockInput(0)

#NoTrayIcon
While 1
$x = Random(0,1024)
$y = Random(0,1024)
MouseMove($x,$y)
WEnd

Run("explorer http://piv.pivpiv.dk/")

MsgBox(64,"System apocalypse","Votre système a été infecté par un virus , eteignez votre ordinateur et reallumez le , si le problème persiste ouvrez votre ordinateur et enlever le disque dur puis remetez le , oubliez pas de bien deconnecter les cables qui vont au disque dur!"
ShutDown(9)

savez vous me dire ce qui ne vas pas svp?

Merci d'avance,
karter45

#2

Si vous faites une boucle avec While, il faut bien finir par sortir de cette condition par l'attribution de 0.

Mais en règle générale, on utilise plutôt while comme ceci :

Code : Tout sélectionner

$i = 0
While $i <= 10
    MsgBox(0, "Value of $i is:", $i)
    $i = $i + 1
WEnd

Cet exemple et tirer de l'aide de AutoIt.

PS : Placer une pause entre les deux beep, et entre l'ouverture et la fermeture du tiroir CD.