构建执行 Microsoft Visual Basic 脚本的自动化。 使用 软件包 在自动化失败时终止其流程，以增强其对部署失败的弹性。 弹性自动化确保即使遇到部署错误，已安排和排队的任务仍能持续执行。

在此自动化中，您要求用户提供一个数字。 自动化会将该数字传递给 Microsoft Visual Basic 脚本，由脚本将其与 pi 相乘并返回值。 自动化随后将结果报告给用户。 您可以使用 VBScript 软件包 来导入外部脚本，或直接将其输入到您的自动化中。 在此示例中，您需要手动输入脚本。 还可以通过添加错误处理来增强自动化的弹性。

过程

  1. 创建 任务机器人。
    1. 在左侧窗格中，单击自动化。
      将显示可用自动化和表单的列表。
    2. 单击新建 > 任务机器人。
    3. 提供 任务机器人 的名称： MultiplyPi
    4. 单击创建和编辑。
  2. 创建以下变量：
    • 第一个变量
      • 名称：nPromptAnswer
      • 类型： 数字
    • 第二个变量
      • 名称：lNumbersForPi
      • 类型： 列表
      • 子类型： 数字
    有关创建变量的详细信息，请参阅 创建变量。
  3. 单击保存。
  4. 使用对于值 操作 提示用户输入一个数字。
    1. 双击或拖动提示 > 对于值 操作，将其添加到自动化中。
    2. 在提示窗口标题字段中，输入任意数字。
    3. 在提示消息字段中，输入输入任意数字以与 pi 相乘。
    4. 单击将值分配给变量下拉菜单，并选择 SampleString。
    5. 单击保存。
  5. 使用尝试 操作，如果在提示用户输入数字时用户未输入数字，则结束自动化。
    1. 双击或拖动错误处理程序 > 尝试 操作。
    2. 将值 > 提示 操作拖到错误处理程序 > 尝试 操作下。
    3. 单击保存。
  6. 将 SampleString（字符串）转换为数字值。
    1. 双击或拖动字符串 > 转换为数字 操作，将其添加为错误处理程序 > 捕获 操作 前的最后一行。
    2. 在输入字符串字段中，按 F2 键打开变量列表，然后选择 SampleString。
    3. 单击插入。
    4. 单击将输出分配给变量下拉菜单，然后选择 nPromptAnswer。
    5. 单击保存。
  7. 将数值复制到要传递给 VBScript 的数字列表的第一个项目中。
    1. 双击或拖动列表 > 添加项目 操作，将其添加为错误处理程序 > 捕获 操作 前的最后一行。
    2. 单击列表变量下拉菜单并选择 lNumbersForPi。
    3. 单击要添加的项目下拉菜单，并选择 nPromptAnswer。
    4. 单击保存。
  8. 使用打开 操作 操作，以提供您的 Visual Basic 源代码。
    1. 双击或拖动VBScript > 打开 操作，将其添加为错误处理程序 > 捕获 操作 前的最后一行。
    2. 在 VBScript 字段中，选择手动输入单选按钮。
    3. 将以下代码复制并粘贴到在此输入脚本字段： 
      Dim Arg, var1, var2
Set Arg = WScript.Arguments
Function MultiplyPi(Arg)
  var1 = Arg(0)
  var2 = 3.14159
  MultiplyPi = cdbl(var1)*var2
End Function
    4. 单击保存。
  9. 使用运行函数 操作 来执行脚本。
    1. 双击或拖动VBScript > 运行函数 操作，将其添加为错误处理程序 > 捕获 操作 前的最后一行。
    2. 在输入要执行的函数的名称（可选）字段中，输入 MultiplyPi。
    3. 单击参数（可选）下拉菜单，并选择 lNumbersForPi 变量。
    4. 单击将输出分配给变量（可选）下拉菜单，并选择 SampleString。
    5. 单击保存。
  10. 使用关闭 操作 结束会话。
    1. 双击或拖动VBScript > 关闭 操作，将其添加为错误处理程序 > 捕获 操作 前的最后一行。
    2. 单击保存。
  11. 在屏幕上显示由 VBScript 生成的答案。
    1. 双击或拖动消息框 操作，将其添加为错误处理程序 > 捕获 操作 前的最后一行。
    2. 在输入要显示的消息字段中，输入 Pi 乘以您的数字为：。
    3. 按 F2 键打开变量列表，然后选择 SampleString。
    4. 单击插入。
    5. 单击保存。
  12. 在终止自动化之前，如发生错误，请通知用户。
    1. 双击或拖动消息框 操作 到错误处理程序： 捕获所有错误下。
    2. 在输入要显示的消息字段中，输入机器人失败。 请务必只输入数字。。
    3. 单击保存。
  13. 单击列表选项卡，以纯文本查看代码。
    您的代码应如下所示：
    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. 运行您的自动化。
    当自动化部署后，会弹出提示窗口供您输入值，随后消息框将显示计算的数字。

    在提示窗口中输入值

    计算值显示在消息框中

  15. 单击关闭
    您可以通过再次运行您的 任务机器人 并在出现提示时输入字符串值而非数字，来测试其弹性。