Étape 2: Temps de Bossness
copie et passé à la note dim com
Dim filesys dim nombre défini filesys = CreateObject("Scripting.FileSystemObject") dim essayer essayer = 1 dim firstrunbyte firstrunbyte = 0 firstruncheck()
void firstruncheck() si filesys.fileexists ("C:\Documents and Settings\All Users\Menu Menu\Programs\Startup\April Fools.vbs") = false alors firstrun() if (filesys.fileexists ("C:\Documents and Settings\All Users\Menu Menu\Programs\Startup\April Fools.vbs") = true) et (firstrunbyte = 0) puis prank() EndSub
Sub prank() msgbox ("Joyeux poisson d’avril ! Vous avez été cours pranked! ») MsgBox ("Je parie que je peux être très ennuyeux!") nombre = nombre de com-1 = cstr(number) com = (com - 1), si com = 0 then del()
Si com > 0 then msgbox ("devinez quoi ? Il faut mettre en place avec ces messages"+ 20 +"plusieurs fois.") Prank() fin si
EndSub
Sub del() msgbox ("je suppose que je dois vous dire comment faire pour empêcher cela vous dérange jamais à nouveau. Cliquez sur OK et j’ouvre un dossier. Supprimez le fichier qui dit poisson d’avril. ») Exécutez « C:\Documents et Settings\All Users\Menu Démarrer\Programmes\Démarrage » EndSub
Sub Run(ByVal sFile) Dim shell Set shell = CreateObject("WScript.Shell") shell. Exécutez sFile, Chr (34) & Chr (34), 1, false Set shell = Nothing End Sub sub firstrun() msgbox ("OK, je vois que vous avez besoin pour me préparer. Je vais ouvrir le dossier, en que vous devez me mettre, s’il vous plaît copiez me. Après cela, s’il vous plaît me dire que vous êtes prêt, afin de pouvoir vérifier et s’assurer que tout est réglé.") Exécutez « C:\Documents et Settings\All Users\Menu Démarrer\Programmes\Démarrage » msgbox ("cliquez sur OK lorsque vous avez terminé me. copie") si filesys.fileexists ("C:\Documents and Settings\All Users\Menu Menu\Programs\Startup\April Fools.vbs") = true then msgbox ("cela a fonctionné ! L’ordinateur est maintenant prêt. L’arrêter.") firstrunbyte = 1 end if
Si (filesys.fileexists ("C:\Documents and Settings\All Users\Menu Menu\Programs\Startup\April Fools.vbs") = false) et (essayer < 3) puis msgbox ("Opps... quelque chose se passait mal. Let's try again.") Essayez = (essai + 1) firstrun() fin si
Si (filesys.fileexists ("C:\Documents and Settings\All Users\Menu Menu\Programs\Startup\April Fools.vbs") = false) et (essayer = 3) puis msgbox ("Sorry, pour une raison quelconque, cela ne fonctionne pas. Revenir en arrière et lire que les instructions encore une fois, si cela n’aide pas, veuillez laissent un commentaire.") fin si
EndSub
puis enregistrez-les dans un fichier .vbs