Stap 1: Maak het bestand
Dim com
Dim nummer
Dim filesys
set filesys = CreateObject("Scripting.FileSystemObject")
Dim proberen
Probeer = 1
Dim firstrunbyte
firstrunbyte = 0
' Als u wijzigen hoe vele malen de persoon heeft de berichtvensters weergeven wilt, wijzigt u het artikelnummer.
com = 20
' Als u wijzigen hoe vele malen de persoon heeft de berichtvensters weergeven wilt, wijzigt u het bovenstaande nummer.
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) vervolgens prank()
end sub
sub prank()
MsgBox ("Happy April Fools! U hebt al pranked!")
MsgBox ("Ik wed dat ik kan erg vervelend zijn!")
aantal = com-1
aantal = cstr(number)
com = (com - 1)
Als com = 0 dan del()
Als com > 0 then
MsgBox ("wat denk je? Je moet opgemaakt met deze berichten"nummer +"vaker.")
Prank()
eind 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.")
"C:\Documents en Settings\All Users\Start Menu\Programs\Startup" uitvoeren
end sub
Sub Run (ByVal sFile)
Dim shell
Instellen van shell = CreateObject("WScript.Shell")
shell. Uitvoeren van Chr(34) & sFile & Chr(34), 1, onwaar
Instellen van shell = niets
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" uitvoeren
MsgBox ("Klik op OK wanneer u klaar bent met kopiëren me.")
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
eind als
Als (filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = false) en (probeer < 3) dan
MsgBox ("Opps... er ging iets mis. Probeer opnieuw.")
Probeer = (probeer + 1)
FIRSTRUN()
eind 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 die dit gewoon niet werkt. «««Terug en lees dat de instructies nogmaals, als dat niet helpt, laat alstublieft een reactie.»)
eind als
end sub
