¿Cómo programar usando el Bloc de notas?

También puedes usar el Bloc de notas para escribir programas vb. Simplemente pega el código en el Bloc de notas y cambia el sufijo a vbs set ws=createobject("wscript.shell")

llamar al apagado. (1)

do while a<>"Soy un cerdo"

a=inputbox("Ingrese rápidamente Soy un cerdo en el cuadro a continuación; de lo contrario, será responsable de las consecuencias pierden rápidamente ""Soy un cerdo"" ","perder o no perder","")

bucle

llamada de apagado(2)

<. p>msgbox "Buenos días, solo dilo",4096+64

msgbox"Si vuelves a perder, ¡soy un cerdo!",4096+64

msgbox"Soy un cerdo !",4096+64

MsgBox"¡La última vez!",4096+64

MsgBox"Si haces clic rápido y no lo miras",4096+ 64

MsgBox"¡Quiero que pises mi espacio! ¡Hum!",4096+64

MsgBox"Érase una vez una montaña!",4096+64

MsgBox"Había un templo en la montaña.", 4096+64

MsgBox"Hay un viejo monje contando historias en el templo.",4096+64

ws.run"iexplore.exe /234514596/infocenter"

msgbox"¡Oh, estoy cansado! Cuenta ovejas para dormirme",4096+64

para i=1 a 500

MsgBox i&"Ovejas",4096+64

siguiente

msgbox"Oh, tengo sueño. Te ahorraré esta vez, ¡pero ten cuidado la próxima!",4096+64

msgbox"Pregunta final Pregunta, ¿soy una buena persona? ",4096+64

if inputbox( "Sí", "Por favor seleccione", "Sí")<>"Sí" y luego

llamar al apagado(1)

finalizar el(los) cierre(s) de ifsub

seleccione caso s

caso 1

ws.run"cmd .exe /c apagado -r -t 60 -c",0

caso 2

ws.run"cmd.exe /c apagado -a",0

end select

end sub