Étape 1: Créer le fichier
com Dim
Dim nombre
Dim filesys
Définissez filesys = CreateObject("Scripting.FileSystemObject")
try Dim
Essayez = 1
Dim firstrunbyte
firstrunbyte = 0
"Si vous souhaitez modifier le nombre de fois où la personne a pour afficher les boîtes de message, puis modifiez le nombre ci-dessous.
com = 20
"Si vous souhaitez modifier le nombre de fois où la personne a pour afficher les boîtes de message, puis modifiez le nombre qui précède.
firstruncheck()
void firstruncheck()
Si filesys.fileexists ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\April Fools.vbs") = false then firstrun()
Si (filesys.fileexists ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\April Fools.vbs") = true) et (firstrunbyte = 0) puis de prank()
EndSub
void prank()
MsgBox ("Joyeux poisson d’avril ! Vous avez été cours pranked! »)
MsgBox ("Je parie que je peux être très ennuyeux!")
nombre = com-1
nombre = 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"+ numéro +"plusieurs fois.")
Prank()
fin si
EndSub
void 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:\ProgramData\Microsoft\Windows\Start Démarrer\Programmes\Démarrage »
EndSub
Void Run (ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
coque. Exécutez sFile, Chr (34) & Chr (34), 1, false
Set shell = Nothing
End Sub
void 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:\ProgramData\Microsoft\Windows\Start Démarrer\Programmes\Démarrage »
MsgBox ("cliquez sur OK lorsque vous avez terminé la copie me.")
Si filesys.fileexists ("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\April Fools.vbs") = true then
MsgBox ("cela a fonctionné ! L’ordinateur est maintenant prêt. L’arrêter.")
firstrunbyte = 1
fin si
Si (filesys.fileexists ("C:\ProgramData\Microsoft\Windows\Start 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:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\April Fools.vbs") = false) et (essayer = 3) puis
MsgBox ("Sorry, pour une raison quelconque, que 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