Well guys, this a lil program, not really difficult to make,but I think It's usefull to send it to persons, who are accepting any email. (in .exe file)
I know it's working with DBC
cls:sync on:hide mouse:ink rgb(244,214,210),0
for x = 1 to 100
strt = timer(): repeat :until timer() > strt + 3000:cls
ink rgb(255,255,255),1:box 268,347,371,368:set cursor 50,50: print "Thanks for formating your primary HARD DISK with":set cursor 50,105: print "Abording this program could cause several damages to your boot device.":set cursor 50,120
print "After formating the hard disk, you will need to install a new Operating System.":set cursor 50,135: print "All files of this computer will be lost, and won't be available from now on.":set cursor 50,150
print "Please wait until the formating has finished.":set cursor 240,350: print "C:"
ink rgb(255,0,0),1:set cursor 385,50: print "AziSoft":set cursor 50,90: print "DO NOT TURN YOUR COMPUTER OFF"
ink rgb(200,200,10),1:box 270,349,269+x,366:set cursor 307,350:ink rgb(0,0,200),1:print x ; "%":sync
next x
sleep 3000:cls
ink rgb(255,0,0),1:set cursor 300,50: print "I got you !!!"
ink rgb(255,255,255),1:set cursor 50,70: print "From now on, you will have another look at people sending you files through E-mail":set cursor 150,85: print "Never trust anyone, or next time, it could be real."
set cursor 200,150: print "<Click on the mouse to continue>."
sync: sleep 1:repeat:until mouseclick()=1
Besides, I'm still searching how to block the keyboard while it's running ... and I'd like to know a way, to let the CPU do some sound, so the recipient can be scared some more.
[href]
