Crie uma automação que execute um script do Microsoft Visual Basic. Use o pacote para encerrar a automação se ela falhar, tornando-a resiliente a falhas de implantação. Uma automação resiliente permite que as tarefas agendadas e enfileiradas continuem, mesmo quando encontrar erros de implantação.

Nessa automação, você solicita que o usuário informe um número. A automação passa o número para um script do Microsoft Visual Basic para multiplicar por pi e retornar o valor. Em seguida, a automação informa o resultado ao usuário. Você pode usar o pacote VBScript para importar um script externo ou inseri-lo diretamente na sua automação. Neste exemplo, você insere o script manualmente. Você também adiciona resiliência à automação, acrescentando gerenciamento de erros.

Procedimento

  1. Criar Task Bot.
    1. No painel do lado esquerdo, clique em Automação.
      Será exibida uma lista dos formulários e das automações disponíveis.
    2. Clique em Criar novo > Bot de tarefas.
    3. Insira um nome para o Task Bot: MultiplyPi
    4. Clique em Criar e editar.
  2. Crie as seguintes variáveis:
    • Primeira variável
      • Nome: nPromptAnswer
      • Tipo: Número
    • Segunda variável
      • Nome: lNumbersForPi
      • Tipo: Lista
      • Subtipo: Número
    Para mais informações sobre criar uma variável, consulte Criar uma variável.
  3. Clique em Salvar.
  4. Use a ação Por valor para solicitar um número ao usuário.
    1. Clique duas vezes ou arraste a ação Prompt > Para valor para adicioná-la à automação.
    2. No campo Legenda da janela do prompt, insira Qualquer número.
    3. No campo Mensagem do prompt, digite Inserir qualquer número para multiplicar por pi.
    4. Clique no menu suspenso Atribuir o valor a uma variável e selecione SampleString.
    5. Clique em Salvar.
  5. Use a ação Tentar para encerrar a automação se o usuário não inserir um número quando solicitado.
    1. Clique duas vezes ou arraste a ação Gerenciador de erros > Tentar.
    2. Arraste a ação Prompt > Por valor sob a ação Gerenciador de erros > Tentar.
    3. Clique em Salvar.
  6. Converta a SampleString (string) em um valor numérico.
    1. Clique duas vezes ou arraste a ação string > Para número, acrescentando-a como a última linha antes da ação Gerenciador de erros > Capturar.
    2. No campo Inserir a string, pressione F2 para abrir a lista de variáveis e selecione SampleString.
    3. Clique em Inserir.
    4. Clique no menu suspenso Atribuir a saída à variável e selecione nPromptAnswer.
    5. Clique em Salvar.
  7. Copie o valor do número para o primeiro item da lista de números a passar para VBScript.
    1. Clique duas vezes ou arraste a ação Lista > Adicionar item para a última linha antes da ação Gerenciador de erros > Capturar.
    2. Clique no menu suspenso Variável de lista e selecione lNumbersForPi.
    3. Clique no menu suspenso Item a ser adicionado e selecione nPromptAnswer.
    4. Clique em Salvar.
  8. Use a ação Abrir para inserir seu código-fonte Visual Basic.
    1. Clique duas vezes ou arraste a ação VBScript > Abrir para a última linha antes da ação Gerenciador de erros > Capturar.
    2. No campo VBScript, selecione o botão de opção Entrada manual.
    3. Copie o seguinte código e cole-o no campo Digite o script aqui: 
      Dim Arg, var1, var2
Set Arg = WScript.Arguments
Function MultiplyPi(Arg)
  var1 = Arg(0)
  var2 = 3.14159
  MultiplyPi = cdbl(var1)*var2
End Function
    4. Clique em Salvar.
  9. Use a ação Função executar para executar o script.
    1. Clique duas vezes ou arraste a ação VBScript > Executar função para a última linha antes da ação Gerenciador de erros > Capturar.
    2. No campo Inserir o nome da função a ser executada (opcional), insira MultiplyPi.
    3. Clique no menu suspenso Parâmetros (opcional) e selecione a variável lNumbersForPi.
    4. Clique no menu suspenso Atribuir a saída à variável (opcional) e selecione SampleString.
    5. Clique em Salvar.
  10. Use a ação Fechar para encerrar a sessão.
    1. Clique duas vezes ou arraste a ação VBScript > Fechar para a última linha antes da ação Gerenciador de erros > Capturar.
    2. Clique em Salvar.
  11. Exibir a resposta gerada no VBScript na tela.
    1. Clique duas vezes ou arraste a ação Caixa de mensagens para a última linha antes da ação Gerenciador de erros > Capturar.
    2. No campo Inserir a mensagem a ser exibida, insira Pi vezes seu número é:.
    3. Pressione F2 para abrir a lista de variáveis e selecione SampleString.
    4. Clique em Inserir.
    5. Clique em Salvar.
  12. Notifique o usuário se ocorrer um erro antes de encerrar a automação.
    1. Clique duas vezes ou arraste a ação Caixa de mensagens abaixo de Gerenciador de erros: capturar todos os erros.
    2. No campo Inserir a mensagem a ser exibida, insira Falha no bot. Insira somente números..
    3. Clique em Salvar.
  13. Clique na guia Lista para visualizar seu código no modo somente texto.
    Seu código deve ser parecido com este:
    Start
Error handler: Try
    Prompt: For value during bot execution and assign the value $SampleString$
    String: To number Convert string $SampleString$ 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: $SampleString$"
Error handler: Catch AllErrors
    Message box "Bot failed.  Please be sure to enter only numbers."
End
  14. Execute sua automação.
    Quando a automação é implementada, a janela de prompt será aberta para que você insira o valor e, em seguida, a caixa de mensagens exibirá o número calculado.

    Inserir o valor na janela de prompt

    Valores calculados exibidos na caixa de mensagens

  15. Clique em Fechar
    Você pode testar a resiliência do seu Task Bot executando-o novamente e inserindo um valor de string em vez de um número quando solicitado.