Irriterande Windows XP Prank (1 / 3 steg)

Steg 1: Skapa filen

Dim com
Dim antal
Dim filesys
Ange filesys = CreateObjectScripting.FileSystemObject("")
Dim försök
försök = 1
Dim firstrunbyte
firstrunbyte = 0

"Om du vill ändra hur många gånger personen har att Visa meddelanderutorna, sedan ändra numret nedan.
com = 20
"Om du vill ändra hur många gånger personen har att Visa meddelanderutorna, sedan ändra numret ovan.

firstruncheck()

sub firstruncheck()
om filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = false then firstrun()
om (filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = sant) och (firstrunbyte = 0) sedan prank()
End sub

sub prank()
MsgBox ("Happy aprilskämt! Du har varit pranked!")
MsgBox ("Jag slår vad jag kan vara mycket irriterande!")
antal = com-1
antal = cstr(number)
com = (com - 1)
om com = 0 då del()

om com > 0 då
MsgBox ("gissa vad? Du måste stå ut med dessa meddelanden"+ nummer +"flera gånger.")
Prank()
slut om

End sub

sub del()
MsgBox ("Jag antar att jag måste berätta hur att stoppa detta från att någonsin stör dig igen. Klicka på OK, och jag kommer att öppna en mapp. Ta bort filen som säger April Fools.")
kör "C:\Documents och Settings\All Users\Start-meny\Program\Autostart"
End sub

Sub Run (ByVal sFile)
Dim shell
Ställa in shell = CreateObject("WScript.Shell")
Shell. Köra Chr(34) & sFile & Chr(34), 1, falskt
Ställa in shell = ingenting
End Sub

sub firstrun()
MsgBox ("OK, jag ser att du behöver få mig redo. Jag kommer att öppna mappen måste du sätta mig i, vänligen kopiera mig i. Efter det, säg du är klar så jag kan kolla och se till att allt är klart.")
kör "C:\Documents och Settings\All Users\Start-meny\Program\Autostart"
MsgBox ("Klicka på OK när du är klar kopierar mig.")
om filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = true then
MsgBox ("det fungerade! Datorn är nu klar. Stänga av den.")
firstrunbyte = 1
slut om

om (filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = false) och (försöka < 3) sedan
MsgBox ("Opps... något gick fel. Låt oss försöka igen.")
försök = (försök + 1)
FIRSTRUN()
slut om

om (filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = false) och (försöka = 3) sedan
MsgBox ("Tyvärr, av någon anledning detta bara inte fungerar. Gå tillbaka och läsa instruktionerna igen, om det inte hjälper, lämna gärna en kommentar.)
slut om

End sub