Evento RequestComplete
[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 termina uma solicitação enfileirada.
-
Sintaxe
-
Sub agent**_RequestComplete** (ByVal Request**)**
Parte Descrição Solicitação Retorna o objeto Request.
Comentários
Esse 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 termina de processar uma solicitação (como um método Get, Play ou Speak) para sincronizar esse evento com outras ações geradas pelo aplicativo. O servidor envia o evento 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 = 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
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_RequestComplete (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