AutoIt Français

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

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.

AutoIt Français

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

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