Paso 1: Crear el archivo
Dim com
número de DIM
filesys DIM
establecer filesys = CreateObject("Scripting.FileSystemObject")
try DIM
prueba = 1
Dim firstrunbyte
firstrunbyte = 0
' Si usted quiere cambiar cuantas veces la persona tiene que ver los cuadros de mensaje, cambiar el número siguiente.
com = 20
' Si usted quiere cambiar cuantas veces la persona tiene que ver los cuadros de mensaje, cambiar el número de arriba.
firstruncheck()
Sub firstruncheck()
Si filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = false then firstrun()
Si (filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = true) y (firstrunbyte = 0) entonces prank()
sub final
Sub prank()
MsgBox ("feliz April Fools! Has sido pranked!")
MsgBox ("apuesto a que puedo ser muy molesto!")
número = com-1
número = cstr(number)
com = (com - 1)
Si com = 0 then del()
Si com > 0 entonces
MsgBox ("¿Adivina qué? Tienes que aguantar con estos mensajes"+ número +"veces más".)
prank()
terminar si
sub final
Sub del()
MsgBox ("supongo que tengo que decirle cómo evitar esto cada vez que te moleste otra vez. Haga clic en aceptar y se abrirá una carpeta. Elimine el archivo que dice April Fools.")
ejecutar "C:\Documents y Settings\All Users\Start Menu\Programs\Startup"
sub final
Gestión de sub (ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
cáscara. Ejecutar Chr(34) & sFile & Chr(34), 1, false
Set shell = nada
End Sub
Sub firstrun()
MsgBox ("OK, veo que necesitas para hacerme el listo. Abro la carpeta que necesita ponerme en, me copia. Después de eso, por favor dígame que usted está listo para que pueda comprobar y asegúrese de que todo lo es.")
ejecutar "C:\Documents y Settings\All Users\Start Menu\Programs\Startup"
MsgBox ("haga clic en Aceptar cuando haya terminado de Copiarme.")
Si filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = true entonces
MsgBox ("¡ funcionó! El equipo está listo. Cerrarlo.")
firstrunbyte = 1
terminar si
Si (filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = false) y (< 3) entonces
MsgBox ("Opps... algo salió mal. Vamos a intentarlo.")
prueba = (prueba 1)
FIRSTRUN()
terminar si
Si (filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = false) y (tratar de = 3) entonces
MsgBox ("lo siento, por alguna razón que esto no funciona solo. Volver atrás y leer que las instrucciones, si eso no ayuda, por favor dejan un comentario.)
terminar si
sub final
