Schritt 1: Erstellen Sie die Datei
Dim com
Dim Zahl
Dim filesys
Legen Sie Filesys = CreateObject("Scripting.FileSystemObject")
Dim versuchen
versuchen Sie = 1
Dim firstrunbyte
Firstrunbyte = 0
"Wenn Sie wie oft ändern die Person hat die Meldungsfelder anzeigen möchten, ändern Sie dann die Nummer unten.
com = 20
"Wenn Sie wie oft ändern die Person hat die Meldungsfelder anzeigen möchten, ändern Sie dann die Nummer oben.
firstruncheck()
Sub firstruncheck()
Wenn filesys.fileexists ("C:\Documents und Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = False dann firstrun()
Wenn (filesys.fileexists ("C:\Documents und Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = True) und (Firstrunbyte = 0) dann prank()
End sub
Sub prank()
MsgBox ("Happy Aprilscherz! Sie haben pranked worden!")
MsgBox ("Ich wette, ich kann sehr ärgerlich sein!")
Anzahl = com-1
Anzahl = cstr(number)
com = (com - 1)
Wenn com = 0 dann del()
Wenn com-> 0 dann
MsgBox ("weißt du was? Du musst mit diesen Nachrichten Aufmachungen"+ Zahl +"öfter.")
Prank()
beenden, wenn
End sub
Sub del()
MsgBox ("Ich denke, ich muss Ihnen sagen, wie dies stört Sie immer wieder daran hindern. Klicken Sie auf OK, und ich werde einen Ordner zu öffnen. Löschen Sie die Datei, die Aprilscherze sagt.")
führen Sie "C:\Documents und Settings\All Users\Start Menu\Programs\Startup"
End sub
Sub-Run (ByVal sFile)
Dim Schale
Shell Set = CreateObject("WScript.Shell")
Shell. Führen Sie Chr(34) & sFile & Chr(34), 1, false
Shell Set = Nothing
End Sub
Sub firstrun()
MsgBox ("OK, ich sehe, dass Sie mich vorbereiten müssen. Ich öffnet sich der Ordner müssen Sie steckten mich in, bitte Kopie an mich in. Danach bitte sagen Sie mir, dass Sie bereit sind, so kann ich überprüfen und sicherstellen, dass alles eingestellt ist.")
führen Sie "C:\Documents und Settings\All Users\Start Menu\Programs\Startup"
MsgBox ("klicken Sie auf OK, wenn du fertig bist mich nachzuahmen.")
Wenn filesys.fileexists ("C:\Documents und Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = True then
MsgBox ("Es hat funktioniert! Der Computer ist jetzt bereit. Herunterfahren Sie.")
Firstrunbyte = 1
beenden, wenn
Wenn (filesys.fileexists ("C:\Documents und Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = False) und (versuchen Sie < 3) dann
MsgBox ("upps... etwas schief gelaufen. Lassen Sie uns versuchen Sie es erneut.")
versuchen (Try + 1) =
FirstRun()
beenden, wenn
Wenn (filesys.fileexists ("C:\Documents und Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = False) und (versuchen = 3) dann
MsgBox ("Sorry, aus irgendeinem Grund kann dies einfach nicht funktioniert. Gehen Sie zurück und lesen Sie die Anweisungen wieder, wenn das nicht hilft, bitte einen Kommentar hinterlassen.")
beenden, wenn
End sub