RequestStart, evento
[Microsoft Agent è deprecato a partire da Windows 7 e potrebbe non essere disponibile nelle versioni successive di Windows.]
-
Descrizione
-
Si verifica quando il server avvia una richiesta in coda.
-
Sintassi
-
Sub agent**_RequestStart** (ByVal Request**)**
In parte Descrizione Richiedi Restituisce l'oggetto Request .
Osservazioni:
L'evento restituisce un oggetto Request. Poiché le richieste vengono elaborate in modo asincrono, è possibile usare questo evento per determinare quando il server inizia a elaborare una richiesta (ad esempio un metodo Get, Play o Speak) e quindi sincronizzare questa operazione con altre azioni generate dall'applicazione. L'evento viene inviato solo al client che ha creato il riferimento all'oggetto Request e solo se è stata definita una variabile globale per il riferimento alla richiesta:
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
Lo stato restituisce 4 (richiesta in corso) per l'oggetto Request restituito.
Poiché gli oggetti Request di animazione non vengono assegnati finché il server non elabora la richiesta, assicurarsi che l'oggetto Request esista prima di tentare di valutarlo. Ad esempio, in Visual Basic, se si usa un'istruzione condizionale per verificare se una richiesta specifica è stata completata, è possibile usare la parola chiave 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
In VBScript 1.0 questo evento viene generato anche se non si definiscono riferimenti a un oggetto Request. Questo problema è stato risolto in VBScript 2.0.
Vedi anche