Ejemplo de uso del paquete VBScript en un bot resistente

Diseñe un bot que ejecute un script de Microsoft Visual Basic. Utilice el paquete Intentar/Capturar para finalizar fácilmente el bot si falla, haciéndolo resistente a las caídas. Un bot resistente permite que los bots programados y en lista de prioridad continúen, incluso si el bot actual encuentra un error.

En este bot, se pide al usuario que proporcione un número. El bot pasa el número a un script de Microsoft Visual Basic para que lo multiplique por pi y devuelva el valor. A continuación, el bot informa el resultado al usuario. Puede utilizar la acción VBScript para importar un script externo o escribirlo directamente en su bot. En este ejemplo, se escribe el script manualmente. También se agrega resistencia al bot mediante la gestión de errores.

Procedimiento

Cree un bot:
1. En el panel izquierdo, haga clic en Automatización.
  Se muestra la lista de bots y formularios disponibles.
2. Haga clic en Crear nuevo > Bot.
3. Proporcione un nombre para el bot: MultiplyPi
4. Ingrese la ubicación de la carpeta: Bots\TaskBotExample
5. Haga clic en Crear y editar.
Cree una variable: nPromptAnswer:
- Tipo: Número
- Nombre: nPromptAnswer
Crear una variable
Cree una variable: lNumbersForPi:
- Tipo: Lista
- Subtipo: Número
- Nombre: lNumbersForPi
Haga clic en Guardar.
Utilice la acción Indicador > De valor para pedir al usuario un número.
1. Haga clic en el vínculo Mostrar en el panel Acciones.
2. Haga doble clic o arrastre la acción Indicador de valor para añadirla al bot.
3. En el campo Título de ventana de indicador, escriba: Any Number
4. En el campo Mensaje de indicador, escriba: Enter any number to multiply by pi.
5. En el campo Asignar el valor a una variable, seleccione prompt-assignment.
Haga clic en Guardar.
Utilice la acción Manejador de errores > Intentar para finalizar fácilmente el bot si hubo un error, como por ejemplo que el usuario no haya ingresado un número.
1. Haga doble clic en la acción Manejador de errores > Intentar o arrástrela.
2. Arrastre la acción Indicador > De valor debajo de la acción Manejador de errores > Intentar.
Haga clic en Guardar.
Convierta la prompt-assignment (cadena) a un valor numérico.
1. Haga doble clic en Cadena > A númeroacción o arrástrela, de forma que se agregue como la última línea antes del Manejador de errores: Capturaracción.
2. En el campo Introducir la cadena, pulse F2 para abrir la lista de sus variables y seleccione prompt-assignment.
3. Haga clic en Sí, insertar.
4. En el campo Asignar resultado a una variable, seleccione nPromptAnswer.
Haga clic en Guardar.
Copie el valor del número en el primer elemento de la lista de números para pasar a VBScript.
1. Haga doble clic en Lista > Agregar elementoacción o arrástrela, de forma que se agregue como la última línea antes del Manejador de errores: Capturaracción.
2. En el campo Variable de lista seleccione lNumbersForPi.
3. En el campo Elemento que se añadirá, seleccione nPromptAnswer.
Haga clic en Guardar.
Utilice la acción VBScript > Abrir para proporcionar su código fuente de Visual Basic.
1. Haga doble clic en la acción Abrir VBScript o arrástrela y agréguela como la última línea antes de Manejador de errores: Capturaracción.
2. En las opciones VBScript, seleccione Entrada manual.
3. Copie el siguiente código y péguelo en el campo Introducir script aquí:
```
Dim Arg, var1, var2
Set Arg = WScript.Arguments
Function MultiplyPi(Arg)
  var1 = Arg(0)
  var2 = 3.14159
  MultiplyPi = cdbl(var1)*var2
End Function
```
Haga clic en Guardar.
Utilice la acción VBScript > Ejecutar función para ejecutar el script.
1. Haga doble clic en Ejecutar función VBScriptacción o arrástrela, de forma que se agregue como la última línea antes del Manejador de errores: Capturaracción.
2. En el campo Ingrese el nombre de la función que se ejecutará (opcional), escriba MultiplyPi.
3. En el campo Parámetros (opcional), seleccione la variable lNumbersForPi.
4. En el campo Asignar la salida a una variable (opcional), seleccione prompt-assignment.
Haga clic en Guardar.
Utilice la acción VBScript > Cerrar para terminar la sesión.
1. Haga doble clic en Cerrar VBScriptacción o arrástrela, de forma que se agregue como la última línea antes del Manejador de errores: Capturaracción.
Haga clic en Guardar.
Imprima la respuesta generada en la pantalla de VBScript.
1. Haga doble clic en la acción Cuadro de mensaje o arrástrela y agréguela como la última línea antes de Manejador de errores: Capturaracción.
2. En el campo Introduzca el mensaje a mostrar, escriba Pi times your number is: y pulse F2 para abrir la lista de sus variables. Seleccione prompt-assignment.
3. Haga clic en Sí, insertar.
Haga clic en Guardar.
Notifique al usuario si se ha producido un error y finalice el bot fácilmente.
1. Haga clic en Manejador de errores: Atrapar todos los erroresacción una vez para que se destaque en su bot.
2. Haga doble clic en la acción Cuadro de mensajes o arrástrela para insertarla como la última acción del bot.
3. En el campo Escriba el mensaje para mostrar, escriba: Bot failed. Please be sure to enter only numbers..
Haga clic en Guardar.

Haga clic en la pestaña Lista para ver su código como texto solamente.

Su código debería verse así:

Start
Error handler: Try
    Prompt: For value during bot execution and assign the value $prompt-assignment$
    String: To number Convert string $prompt-assignment$ to a number and assign it to number variable $nPromptAnswer$
    List: Add item $nPromptAnswer$ to $lNumbersForPi$
    VBScript: Open VBScript manual script of 7 lines
    VBScript: Run function "MultiplyPi"
    VBScript: Close VBScript "Default"
    Message box "Pi times your number is: $prompt-assignment$"
Error handler: Catch AllErrors
    Message box "Bot failed.  Please be sure to enter only numbers."
End

Ejecute su bot.
Cuando el bot se ejecuta con éxito, un cuadro de mensaje muestra el número calculado. Vea el mensaje y haga clic en Cerrar. Puede probar la resistencia de su bot ejecutándolo de nuevo e introduciendo una letra en lugar de un número.

Automation 360

Ejemplo de uso del paquete VBScript en un bot resistente