Stap 2: Bossness tijd
kopiëren en verleden in notitie dim com
Dim nummer dim filesys set filesys = CreateObject("Scripting.FileSystemObject") dim proberen proberen = 1 dim firstrunbyte firstrunbyte = 0 firstruncheck()
sub firstruncheck() als filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = false then firstrun() als (filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = true) en (firstrunbyte = 0) dan prank() end sub
sub prank() msgbox ("Happy April Fools! U hebt al pranked!") MsgBox ("Ik wed dat ik kan erg vervelend zijn!") nummer = com-1 nummer = cstr(number) com = (com - 1) als com = 0 dan del()
Als com > 0 dan msgbox ("wat denk je? Je moet opgemaakt met deze berichten"+ 20 +"vaker.") Prank() einde als
end sub
sub del() msgbox ("Ik denk dat ik moet u vertellen hoe om te stoppen dat dit ooit u weer lastig. Klik op OK, en ik zal een map openen. Verwijder het bestand dat April Fools zegt.") uitvoeren van "C:\Documents en Settings\All Users\Start Menu\Programs\Startup" end sub
Sub Run(ByVal sFile) Dim shell Set shell = CreateObject("WScript.Shell") shell. Uitvoeren van Chr(34) & sFile & Chr(34), 1, false ingesteld shell = Nothing End Sub sub firstrun() msgbox ("OK, ik zie dat u nodig hebt om me klaar. Ik zal openstellen van de map die u wilt zette me in, kopieer me in. Na dat, vertel me dat je bent klaar, zodat ik kan controleren en zorg ervoor dat alles is ingesteld.") "C:\Documents en Settings\All Users\Start Menu\Programs\Startup" msgbox ("Klik op OK wanneer u klaar bent met kopiëren me.") worden uitgevoerd als filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = true then msgbox ("het werkte! De computer is nu klaar. Shut it down.") firstrunbyte = 1 einde als
Als (filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = false) en (probeer < 3) vervolgens msgbox ("Opps... er ging iets mis. Probeer opnieuw.") Probeer (probeer + 1) = firstrun() end als
Als (filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = false) en (probeer = 3) dan msgbox ("Sorry, voor sommige reden dit gewoon niet werkt. «««Terug en lees dat de instructies nogmaals, als dat niet helpt, laat alstublieft een reactie.») eind als
end sub
vervolgens opslaan als een .vbs bestand