Erstellen Sie einen Bot, der ein Microsoft Visual Basic-Skript ausführt. Verwenden Sie das Versuchen/Erfassen-Paket, um den Bot im Falle eines Fehlers ordnungsgemäß zu beenden und ihn so widerstandsfähig gegen Abstürze zu machen. Ein widerstandsfähiger Bot ermöglicht es, geplante und in der Warteschlange stehende Bots fortzusetzen, selbst wenn der aktuelle Bot auf einen Fehler stößt.

Bei diesem Bot wird der Nutzer aufgefordert, eine Nummer anzugeben. Der Bot übergibt die Nummer an ein Microsoft Visual Basic-Skript, das sie mit Pi multipliziert und den Wert zurückgibt. Der Bot meldet dann das Ergebnis an den Nutzer. Sie können die Aktion VBScript verwenden, um entweder ein externes Skript zu importieren oder es direkt in Ihren Bot einzugeben. In diesem Beispiel geben Sie das Skript manuell ein. Sie können den Bot auch durch Fehlerbehandlung widerstandsfähiger machen.

Prozedur

  1. Erstellen Sie einen Bot:
    1. Klicken Sie im linken Feld auf Automatisierung.
      Eine Liste der verfügbaren Bots und Formulare wird angezeigt.
    2. Klicken Sie auf Neu erstellen > Bot.
    3. Geben Sie einen Namen für den Bot ein: MultiplyPi
    4. Geben Sie den Speicherort des Ordners ein: Bots\TaskBotExample
    5. Klicken Sie auf Erstellen und Bearbeiten.
  2. Erstellen Sie eine Variable: nPromptAnswer:
    • Typ: Nummer
    • Name: nPromptAnswer
    Erstellen von Variablen
  3. Erstellen Sie eine Variable: lNumbersForPi:
    • Typ: Liste
    • Untertyp: Nummer
    • Name: lNumbersForPi
  4. Klicken Sie auf Speichern.
  5. Verwenden Sie die Aktion Eingabeaufforderung > Für Wert, um den Nutzer nach einer Zahl zu fragen.
    1. Klicken Sie auf den Link Anzeigen im Bereich Aktionen.
    2. Doppelklicken oder ziehen Sie die Aktion Eingabeaufforderung für Wert, um sie dem Bot hinzuzufügen.
    3. Geben Sie in das Feld Fenstertitel der Eingabeaufforderung ein: Any Number
    4. Geben Sie in Feld der Eingabeaufforderung ein: Enter any number to multiply by pi.
    5. Wählen Sie im Feld Wert zu einer Variablen zuweisen die Option Beispielzeichenfolge.
  6. Klicken Sie auf Speichern.
  7. Verwenden Sie die Aktion Fehlerhandler > Versuchen, um den Bot zu beenden, wenn ein Fehler aufgetreten ist, z. B. wenn der Nutzer keine Zahl eingegeben hat.
    1. Doppelklicken oder ziehen Sie die Aktion Fehlerhandler > Versuchen.
    2. Ziehen Sie die Aktion Eingabeaufforderung > Für Wert unter die Aktion Fehlerhandler > Versuchen.
  8. Klicken Sie auf Speichern.
  9. Konvertieren Sie die Beispielzeichenfolge (Zeichenfolge) in einen Zahlenwert.
    1. Doppelklicken oder ziehen Sie die Aktion Zeichenfolge > In Zahl und fügen Sie sie als letzte Zeile vor der Fehlerhandler: Erfassen-Aktion hinzu.
    2. Drücken Sie im Feld Zeichenfolge eingeben die Taste F2, um die Liste Ihrer Variablen zu öffnen, und wählen Sie Beispielzeichenfolge.
    3. Klicken Sie auf Ja, einfügen.
    4. Wählen Sie im Feld Die Ausgabe einer Variable zuweisen die Option nPromptAnswer.
  10. Klicken Sie auf Speichern.
  11. Kopieren Sie den Zahlenwert in das erste Element in der Liste der Zahlen, die an VBScript übergeben werden sollen.
    1. Doppelklicken oder ziehen Sie die Aktion Liste > Element hinzufügen und fügen Sie sie als letzte Zeile vor der Fehlerhandler: Erfassen-Aktion hinzu.
    2. Wählen Sie im Feld Listenvariable die Option lNumbersForPi.
    3. Wählen Sie im Feld Hinzuzufügendes Element die Option nPromptAnswer.
  12. Klicken Sie auf Speichern.
  13. Verwenden Sie die Aktion VBScript > Öffnen, um Ihren Visual Basic-Quellcode bereitzustellen.
    1. Doppelklicken oder ziehen Sie die Aktion VBScript öffnen und fügen Sie sie als letzte Zeile vor der Fehlerhandler: Erfassen-Aktion hinzu.
    2. In den VBScript-Optionen wählen Sie Manuelle Eingabe.
    3. Kopieren Sie den folgenden Code und fügen Sie ihn in das Feld Skript hier eingeben ein: 
      Dim Arg, var1, var2
Set Arg = WScript.Arguments
Function MultiplyPi(Arg)
  var1 = Arg(0)
  var2 = 3.14159
  MultiplyPi = cdbl(var1)*var2
End Function
  14. Klicken Sie auf Speichern.
  15. Verwenden Sie die Aktion VBScript > Funktion ausführen, um das Skript auszuführen.
    1. Doppelklicken oder ziehen Sie die Aktion VBScript Funktion ausführen und fügen Sie sie als letzte Zeile vor der Fehlerhandler: Erfassen-Aktion hinzu.
    2. Im Feld Namen der auszuführenden Funktion eingeben (optional) geben Sie MultiplyPi ein.
    3. Wählen Sie im Feld Parameter (optional) die Variable lNumbersForPi.
    4. Wählen Sie im Feld Ausgabe zu einer Variablen zuweisen (optional) die Option Beispielzeichenfolge.
  16. Klicken Sie auf Speichern.
  17. Verwenden Sie die Aktion VBScript > Schließen, um die Sitzung zu beenden.
    1. Doppelklicken oder ziehen Sie die Aktion VBScript schließen, und fügen Sie sie als letzte Zeile vor der Fehlerhandler: Erfassen-Aktion hinzu.
  18. Klicken Sie auf Speichern.
  19. Geben Sie die im VBScript generierte Antwort auf dem Bildschirm aus.
    1. Doppelklicken oder ziehen Sie die Aktion Nachrichtenfeld und fügen Sie es als letzte Zeile vor der Fehlerhandler hinzu: Erfassen-Aktion hinzu.
    2. Geben Sie in das Feld Anzuzeigende Nachricht eingeben Pi times your number is: ein und drücken Sie dann F2, um die Liste Ihrer Variablen zu öffnen. Wählen Sie die Beispielzeichenfolge.
    3. Klicken Sie auf Ja, einfügen.
  20. Klicken Sie auf Speichern.
  21. Benachrichtigen Sie den Nutzer, wenn ein Fehler aufgetreten ist, und beenden Sie den Bot ordnungsgemäß.
    1. Klicken Sie die Fehlerhandler: AllErrors erfassen-Aktion einmal, damit sie in Ihrem Bot hervorgehoben wird.
    2. Doppelklicken oder ziehen Sie die Aktion Nachrichtenfeld, um sie als letzte Bot-Aktion einzufügen.
    3. Geben Sie in das Feld Anzuzeigende Nachricht eingeben Folgendes ein: Bot failed. Please be sure to enter only numbers.
  22. Klicken Sie auf Speichern.
  23. Klicken Sie auf die Registerkarte Liste, um Ihren Code nur als Text anzuzeigen.
    Ihr Code sollte wie folgt aussehen:
    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
  24. Führen Sie Ihren Bot aus.
  25. Wenn der Bot erfolgreich ausgeführt wird, öffnet sich das Eingabeaufforderungsfenster, in dem Sie den Wert eingeben können. Daraufhin wird im Meldungsfenster die berechnete Zahl angezeigt. Sehen Sie sich die Nachricht an und klicken Sie auf Schließen.
    Eingabe des Wertes im Eingabeaufforderungsfenster
    Anzeige der berechneten Werte im Nachrichtenfeld
    Sie können die Widerstandsfähigkeit Ihres Bots testen, indem Sie den Bot erneut starten und einen Buchstaben statt einer Zahl eingeben.