Condividi tramite


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

Evento RequestComplete