Evento RequestStart
[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 inicia una solicitud en cola.
-
Sintaxis
-
Sub agent**_RequestStart** (ByVal Request**)**
Parte Descripción Solicitar Devuelve el objeto Request.
Comentarios
El 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 comienza a procesar una solicitud (por ejemplo, un método Get, Play o Speak) y, por tanto, sincronizarlo con otras acciones generadas por la aplicación. El evento solo se envía 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 = 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
Status devuelve 4 (solicitud en curso) para el objeto Request devuelto.
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_RequestStart (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