Dim AgentControl, Agent

function openITString(txtMensagem,iWidth,iHeight)
  window.ShowModalDialog "Mensagem_chr_str.asp?varGleidson="&txtmensagem,"","DialogHeight:"& iHeight & "px; DialogWidth: " & iWidth & "px; center: yes; help: no; resizable: no; status: no"
end function

Sub Agent_Initialize
  Set AgentControl = CreateObject ("Agent.Control.1")

  AgentControl.Connected = true ' necessary for IE3
  AgentControl.Characters.Load "Peedy", "http://agent.microsoft.com/agent2/chars/Peedy/Peedy.acf"

  Set Agent = AgentControl.Characters ("Peedy")
  Agent.LanguageID = &H0416

'  Agent.AutoPopupMenu = False
  Agent.MoveTo 650, 450, 0

'  Juliana, Portuguese (Brazilian), L&H TTS3000  {8AA08CA0-A1AE-11d3-9BC5-00A0C967A2D1}
'  Alexandre, Portuguese (Brazilian), L&H TTS3000  {8AA08CA1-A1AE-11d3-9BC5-00A0C967A2D1}

End Sub


Sub Agent_Speak (varText, HideAfterSpeak)
' HideAfterSpeak => 0 - Default
'                   1 - True
'                   2 - False

  Dim varItem, varAgentActive

  varAgentActive = Agent.Activate

  If IsArray (varText) Then

    Agent.Get "State", "Showing, Speaking"
    Agent.Get "Animation", "Greet, GreetReturn"

    Agent.Show

    Agent.Get "State", "Hiding"
    Agent.Play "Greet"

    For Each varItem in varText
      Agent.Speak varItem
    Next

    Agent.Play "Idle1_1"

    If ((HideAfterSpeak = 0) and Not varAgentActive) or (HideAfterSpeak = 1) Then
      Agent.Hide
    End If

  End If

End Sub

Sub Agent_Alert (varText)
  If Agent.Activate Then
    Agent_Speak Array (varText), False

  Else
    window.alert varText
  End If

End Sub

Function document_onmousedown()
  On Error Resume Next

  If Not ((window.event.button = 1) or (window.event.srcElement.tagName = "INPUT")) Then
    alert "Função não disponível ao sistema!"

  End If

End Function

Function Check_KeyPress()
'  If (window.event.keyCode = 13) Then
'    window.event.returnValue = false
'    btnOk_onclick()
'  End If

  window.Event.CancelBubble = True

End Function

Function Check_AsCharacter()
'Não permite a entrada se ç, letras acentuadas e etc...
  If  (window.event.keyCode < 65  or window.event.keyCode > 90) and (window.event.keyCode < 97 or window.event.keyCode > 122) and  window.event.keyCode <> 32 Then
    alert "Não é permitido a inserção de caracteres acentuados, o caracter ç e caracteres semelhantes!!"
    window.event.returnValue = false    
  End If
End Function



Function Check_AsInteger()
  If (window.event.keyCode < 48) or (window.event.keyCode > 57) Then
    window.event.returnValue = false
  End If

End Function

Function Check_AsNumber()
'Temporariamente, só aceita , -> 44
'  If ((window.event.keyCode < 48) or (window.event.keyCode > 57)) and (window.event.keyCode <> 44) and (window.event.keyCode <> 46) Then
  If ((window.event.keyCode < 48) or (window.event.keyCode > 57)) and (window.event.keyCode <> 44) Then
    window.event.returnValue = false
  End If

End Function