Événement RequestStart

[Microsoft Agent est déconseillé à partir de Windows 7 et peut ne pas être disponible dans les versions ultérieures de Windows.]

Description

Se produit lorsque le serveur commence une requête mise en file d’attente.

Syntaxe

Sous-agent**_RequestStart** (ByVal Request**)**

Élément	Description
Requête	Retourne l’objet Request .

 

Notes

L’événement retourne un objet Request . Étant donné que les demandes sont traitées de manière asynchrone, vous pouvez utiliser cet événement pour déterminer quand le serveur commence à traiter une demande (par exemple, une méthode Get, Play ou Speak ) et ainsi synchroniser cette opération avec d’autres actions générées par votre application. L’événement est envoyé uniquement au client qui a créé la référence à l’objet Request et uniquement si vous avez défini une variable globale pour la référence de requête :

   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

L’état renvoie 4 (requête en cours) pour l’objet Request retourné.

Étant donné que les objets Request d’animation ne sont pas affectés tant que le serveur n’a pas traite la demande, assurez-vous que l’objet Request existe avant d’essayer de l’évaluer. Par exemple, dans Visual Basic, si vous utilisez une condition pour tester si une demande spécifique a été effectuée, vous pouvez utiliser l’mot clé Nothing :

   Sub Agent1_RequestStart (ByVal Request)

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

   End Sub

Notes

Dans VBScript 1.0, cet événement se déclenche même si vous ne définissez pas de références à un objet Request . Ce problème a été résolu dans VBScript 2.0.

 

Voir aussi

Événement RequestComplete