Evento RequestStart
[O Microsoft Agent foi preterido do Windows 7 em diante e pode não estar disponível em versões subsequentes do Windows.]
-
Descrição
-
Ocorre quando o servidor inicia uma solicitação enfileirada.
-
Sintaxe
-
Sub agent**_RequestStart** (ByVal Request**)**
Parte Descrição Solicitação Retorna o objeto Request.
Comentários
O evento retorna um objeto Request. Como as solicitações são processadas de forma assíncrona, você pode usar esse evento para determinar quando o servidor começa a processar uma solicitação (como um método Get, Play ou Speak) e sincronizá-la com outras ações geradas pelo aplicativo. O evento é enviado somente para o cliente que criou a referência ao objeto Request e somente se você definiu uma variável global para a referência de solicitação:
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
O Status retorna 4 (solicitação em andamento) para o objeto Request retornado.
Como os objetos Request de animação não são atribuídos até que o servidor processe a solicitação, verifique se o objeto Request existe antes de tentar avaliá-lo. Por exemplo, no Visual Basic, se você usar uma condicional para testar se uma solicitação específica foi concluída, poderá usar a palavra-chave Nothing:
Sub Agent1_RequestStart (ByVal Request)
If Not (MyRequest Is Nothing) Then
If Request = MyRequest Then
'-- Do whatever
End If
End If
End Sub
Observação
No VBScript 1.0, esse evento é acionado mesmo que você não defina referências a um objeto Request. Isso foi corrigido no VBScript 2.0.
Confira também