Paso 2: Tiempo de Bossness
copia y pasado en la nota dim com
Dim filesys dim número set filesys = CreateObject("Scripting.FileSystemObject") dim probar probar = firstrunbyte dim firstrunbyte 1 = firstruncheck() 0
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 los sub de final prank()
Sub prank() msgbox ("feliz April Fools! Has sido pranked!") MsgBox ("apuesto a que puedo ser muy molesto!") número = número de com-1 = cstr(number) com = (com - 1) si com = 0 then del()
Si com > 0 then msgbox ("¿Adivina qué? Tienes que aguantar con estos mensajes"20 +"veces más".) prank() fin 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 de final
Sub Run(ByVal sFile) Dim shell Set shell = caparazón de CreateObject("WScript.Shell"). 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 copiar mí") si filesys.fileexists ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\April Fools.vbs") = true then msgbox ("¡ funcionó! El equipo está listo. Cerrarlo.") firstrunbyte = 1 end if
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() fin 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 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
luego guardar como un archivo .vbs
