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)
Merci d'avance,
karter45