Événement RequestStart
[Microsoft Agent est déconseillé à partir de Windows 7 et peut être indisponible dans les versions ultérieures de Windows.]
-
Description
-
Se produit lorsque le serveur commence une requête en file d'attente.
-
Syntaxe
-
Sub agent**_RequestStart** (ByVal Request**)**
Élément Description Requête Renvoie l'objet Requête.
Notes
L'événement renvoie un objet de requête. Les requêtes étant traitées de manière asynchrone, vous pouvez utiliser cet événement pour déterminer le moment où le serveur commence à traiter une requête (telle qu'une méthode Get, Play ou Speak) et ainsi la synchroniser avec d'autres actions générées par votre application. L'événement n'est envoyé qu'au client qui a créé la référence à l'objet Requête et seulement si vous avez défini une variable globale pour la référence à la 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
Le statut renvoie 4 (requête en cours) pour l'objet de requête renvoyé.
Étant donné que les objets d'animation Request ne sont pas attribués tant que le serveur ne traite pas la requête, assurez-vous que l'objet Request existe avant de tenter de l'évaluer. Par exemple, en Visual Basic, si vous utilisez une condition pour tester si une requête spécifique a été complétée, vous pouvez utiliser le 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
Remarque
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é corrigé dans VBScript 2.0.
Voir aussi