Frase de Buzz sistemática Generator.vbs (4 / 6 paso)

Paso 4: El código

2) copiar el código debajo de la línea de apóstrofo y asterisco y luego péguelo en Bloc de notas.

' *********************************************

Dim aviso
Dim mensaje
Message1 DIM
Dim Message2
Dim Message3

' Control de errores
Error volver siguiente

Aviso = "Boughton Buzz sistemática frase"
Mensaje = "Elegir un número de 3 dígitos del 000 al 999?"

Pregunta = InputBox(message,Notice)
' Comprobar Null o vacía inputbox luego cancela
IF IsEmpty(Question) entonces
WScript.quit()

ELSEIF Len(Question) = 0 THEN
WScript.quit()

Terminar si

message1 = Left(Question,1) ' número 1
message2 = Mid(Question,2,1) ' 2 º número
message4 = Right(Question,1) ' número 3

' Columna 1
Si Message1 = 0 then mensaje = "Integrada"
Si Message1 = 1 then mensaje = "Total"
Si Message1 = 2 then mensaje = "Sistematizada"
Si Message1 = 3 then mensaje = "URL"
Si Message1 = 4 then mensaje = "Funcional"
Si Message1 = 5 then mensaje = "Respuesta"
Si Message1 = 6 then mensaje = «Óptimo»
Si Message1 = 7 then mensaje = "Sincronizado"
Si Message1 = 8 then mensaje = "Compatible"
Si Message1 = 9 then mensaje = "Equilibrado"

' Columna 2
Si Message2 = 0 then Message3 = "Dirección"
Si Message2 = 1 then Message3 = "Organizacional"
Si Message2 = 2 entonces Message3 = "Monitoreados"
Si Message2 = 3 then Message3 = "Recíproco"
Si Message2 = 4 then Message3 = "Digital"
Si Message2 = 5 then Message3 = "Logístico"
Si Message2 = 6 then Message3 = "Transitorios"
Si Message2 = 7 then Message3 = "Incremental"
Si Message2 = 8 then Message3 = "Tercera generación"
Si Message2 = 9 then Message3 = "Política"

' Columna 3
Si Message4 = 0 then Message5 = "Opciones"
Si Message4 = 1 then Message5 = «Flexibilidad»
Si Message4 = 2 entonces Message5 = "Capacidad"
Si Message4 = 3 then Message5 = "Movilidad"
Si Message4 = 4 then Message5 = "Programación"
Si Message4 = 5 then Message5 = "Concepto"
Si Message4 = 6 then Message5 = "Tiempo-fase"
Si Message4 = 7 then Message5 = "Proyección"
Si Message4 = 8 then Message5 = "Hardware"
Si Message4 = 9 then Message5 = "Contingencia"

' Mensaje de control de errores
IF Err.Number <> 0 entonces
MsgBox "has introducido algo incorrecto.  Vuelve a intentarlo.  ", vbOKOnly + 16," Ooopps... "
WScript.quit()
END IF

«Resultados finales
MsgBox mensaje & "" & Message3 & "" & Message5, vbInformation, aviso