RequestStart-Ereignis

[Microsoft Agent ist ab Windows 7 veraltet und in nachfolgenden Versionen von Windows möglicherweise nicht verfügbar.]

Beschreibung

Tritt auf, wenn der Server eine Anforderung in die Warteschlange startet.

Syntax

Unter-Agent**_RequestStart** (ByValRequest**)**

Teil	BESCHREIBUNG
Anforderung	Gibt das Request-Objekt zurück.

 

Bemerkungen

Das Ereignis gibt ein Request-Objekt zurück. Da Anforderungen asynchron verarbeitet werden, können Sie dieses Ereignis verwenden, um zu bestimmen, wann der Server mit der Verarbeitung einer Anforderung beginnt (z. B. eine Get-, Play- oder Speak-Methode ), und damit diese mit anderen Aktionen synchronisieren, die von Ihrer Anwendung generiert wurden. Das Ereignis wird nur an den Client gesendet, der den Verweis auf das Request-Objekt erstellt hat, und nur, wenn Sie eine globale Variable für den Anforderungsverweis definiert haben:

   Dim MyRequest 
   Dim Genie 

   Sub window_Onload
   
   Agent1.Characters.Load "Genie", _
      "https://agent.microsoft.com/characters/v2/genie/genie.acf"   

   Set Genie = Agent1.Characters("Genie")

   ' This syntax will generate RequestStart and RequestComplete events.
   Set MyRequest = Genie.Get("state", "Showing")

   ' This syntax will not generate RequestStart and RequestComplete events.
   Genie.Get ("state", "Hiding")

   End Sub

   Sub Agent1_RequestStart(ByVal Request)

   If Request = MyRequest Then
      Status = "Loading the Showing animation"

   End Sub

Der Status gibt 4 (Anforderung in Bearbeitung) für das zurückgegebene Request-Objekt zurück.

Da Animationsanforderungsobjekte erst zugewiesen werden, wenn der Server die Anforderung verarbeitet, stellen Sie sicher, dass das Request-Objekt vorhanden ist, bevor Sie versuchen, es auszuwerten. Wenn Sie beispielsweise in Visual Basic eine Bedingung verwenden, um zu testen, ob eine bestimmte Anforderung abgeschlossen wurde, können Sie die Nothing-Schlüsselwort (keyword) verwenden:

   Sub Agent1_RequestStart (ByVal Request)

   If Not (MyRequest Is Nothing) Then
      If Request = MyRequest Then
      '-- Do whatever
      End If
   End If

   End Sub

Hinweis

In VBScript 1.0 wird dieses Ereignis ausgelöst, auch wenn Sie keine Verweise auf ein Request-Objekt definieren. Dies wurde in VBScript 2.0 behoben.

 

Weitere Informationen

RequestComplete-Ereignis