Evento RequestComplete
[Microsoft Agent está en desuso a partir de Windows 7 y puede no estar disponible en versiones posteriores de Windows].
-
Descripción
-
Se produce cuando el servidor completa una solicitud en cola.
-
Sintaxis
-
Sub agent**_RequestComplete** (ByVal Request**)**
Parte Descripción Solicitar Devuelve el objeto Request.
Comentarios
Este evento devuelve un objeto Request. Dado que las solicitudes se procesan de forma asincrónica, puede usar este evento para determinar cuándo el servidor termina de procesar una solicitud (por ejemplo, un método Get, Play o Speak) para sincronizar este evento con otras acciones generadas por la aplicación. El servidor envía el evento solo al cliente que creó la referencia al objeto Request y solo si definió una variable global para la referencia de solicitud:
Dim MyRequest
Dim Genie
Sub window_Onload
Agent1.Characters.Load "Genie","https://agent.microsoft.com/characters/v2/genie/genie.acf"
Set Genie = Agent.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_RequestComplete(ByVal Request)
If Request = MyRequest Then
Status = "Showing animation is now loaded"
End Sub
Dado que los objetos Request de animación no se asignan hasta que el servidor procesa la solicitud, asegúrese de que el objeto Request existe antes de intentar evaluarlo. Por ejemplo, en Visual Basic, si usa un condicional para probar si se completó una solicitud específica, puede usar la palabra clave Nothing:
Sub Agent1_RequestComplete (ByVal Request)
If Not (MyRequest Is Nothing) Then
If Request = MyRequest Then
'-- Do whatever
End If
End If
End Sub
Nota:
En VBScript 1.0, este evento se desencadena incluso si no define referencias a un objeto Request. Esto se ha corregido en VBScript 2.0.
Consulte también