构建一个执行 Microsoft Visual Basic 脚本的机器人。 使用 Try/Catch 软件包优雅地终止机器人，如果机器人失败，使其对崩溃具有弹性。 即使当前机器人出错，弹性机器人也能让已安排和排队的机器人继续运行。

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

过程

  1. 创建 bot：
    1. 在左侧窗格中，单击自动化。
      将显示可用机器人和表单的列表。
    2. 单击 创建新 > 机器人。
    3. 提供 bot 的名称： MultiplyPi
    4. 输入文件夹位置： Bots\TaskBotExample
    5. 单击创建和编辑。
  2. 创建一个变量：nPromptAnswer：
    • 类型： 数字
    • 名称：nPromptAnswer
    创建变量
  3. 创建一个变量：lNumbersForPi：
    • 类型： 列表
    • 子类型： 数字
    • 名称：lNumbersForPi
  4. 单击保存。
  5. 改为使用 提示 > 输入值 action 向用户询问一个数字。
    1. 单击操作窗格上的显示链接。
    2. 双击或拖动值提示 action，以将其添加到机器人。
    3. 在提示窗口标题字段中，输入： 任何数字
    4. 在提示消息字段中，输入： 请输入任意数字乘以 pi。
    5. 在将值分配给变量字段中，选择 SampleString。
  6. 单击保存。
  7. 如果出现错误，例如用户没有输入数字，使用错误处理程序 > 尝试 action，优雅地终止机器人。
    1. 双击或拖动错误处理程序 > 尝试 action。
    2. 将值 > 提示 action拖到错误处理程序 > 尝试 action下。
  8. 单击保存。
  9. 将 SampleString（字符串）转换为数字值。
    1. 双击或拖动字符串 > 转换为数字 action，将其添加为错误处理程序： 捕获 action之前的最后一行。
    2. 在输入字符串字段中，按 F2 键打开变量列表，然后选择 SampleString。
    3. 单击是，插入。
    4. 在将输出分配给变量字段中，选择 nPromptAnswer。
  10. 单击保存。
  11. 将数值复制到要传递给 VBScript 的数字列表的第一个项目中。
    1. 双击或拖动 列表 > 添加项目 action，将其添加为错误处理程序： 捕获 action之前的最后一行。
    2. 在列表变量字段中，选择 lNumbersForPi。
    3. 在要添加的项目字段中，选择 nPromptAnswer。
  12. 单击保存。
  13. 使用 VBScript > 打开 action 操作，提供您的 Visual Basic 源代码。
    1. 双击或拖动 VBScript 打开 action，将其添加为 错误处理程序： 捕获 action之前的最后一行。
    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
  14. 单击保存。
  15. 使用 VBScript > 运行函数 action 执行脚本。
    1. 双击或拖动 VBScript 运行函数 action，将其添加为 错误处理程序： 捕获 action之前的最后一行。
    2. 在输入要执行的函数的名称（可选）字段中，输入 MultiplyPi。
    3. 在参数（可选）字段中，选择 lNumbersForPi 变量。
    4. 在将输出分配给变量（可选）字段中，选择 SampleString。
  16. 单击保存。
  17. 使用 VBScript > 关闭 action 操作结束会话。
    1. 双击或拖动 VBScript 关闭 action，将其添加为 错误处理程序： 捕获 action之前的最后一行。
  18. 单击保存。
  19. 在屏幕上打印由 VBScript 生成的答案。
    1. 双击或拖动消息框 action，将其添加为错误处理程序： 捕获 action之前的最后一行。
    2. 在输入要显示的消息字段中，输入 Pi 乘以您的数字是：，然后按 F2 键打开变量列表。 选择 SampleString。
    3. 单击是，插入。
  20. 单击保存。
  21. 如果发生错误，请通知用户并优雅地结束机器人。
    1. 单击错误处理程序： 捕获所有错误 action一次，以便在机器人中突出显示。
    2. 双击或拖动消息框 action，将其插入为最后一个机器人操作。
    3. 在输入要显示的消息字段中，输入机器人失败。 请务必只输入数字。。
  22. 单击保存。
  23. 单击列表选项卡，以纯文本查看代码。
    您的代码应如下所示：
    启动错误处理程序： 尝试提示： 在机器人执行期间的值，并分配值 $SampleString$ 字符串： 将字符串 $SampleString$ 转换为数字，并将其分配给数字变量 $nPromptAnswer$ 列表： 将项 $nPromptAnswer$ 添加到 $lNumbersForPi$ VBScript： 打开包含 7 行 VBScript 的 VBScript 手动脚本： 运行函数 "MultiplyPi" VBScript： 关闭 VBScript“默认”消息框 “Pi 乘以您的数字是：$SampleString$” 错误处理程序： 捕获所有错误消息框”机器人失败。 请务必只输入数字。” 结束
  24. 运行您的 bot。
  25. 当 bot 成功运行时，会打开提示窗口，您可以在其中输入值，然后消息框会显示计算出的数字。 查看消息并单击关闭。
    在提示窗口中输入值
    计算值显示在消息框中
    您可以通过再次运行机器人并输入字母而不是数字来测试您的机器人的弹性。