Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Here is a module I wrote to use the Agent :
' #VBIDEUtils#**************
' * Programmer Name : Waty Thierry
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : waty.thierry@usa.net
' * Date : 16/10/98
' * Time : 17:52
' * Module Name : Agent_Module
' * Module Filename : Agent.bas
' **************************
' * Comments : Functions to handle an Agent
' *
' *
' **************************
Option Explicit
' *** Agent
Global Character As IAgentCtlCharacterEx
Private sIddle(8) As String
Public Sub Agent_Init(MyAgent As Agent, sChar As String, bShow As Boolean)
' *** Initialise the agent
On Error GoTo ERROR_Agent_Init
Randomize
Set Character = Nothing
MyAgent.Characters.Load "CharacterID", sChar
Set Character = MyAgent.Characters("Charac
' *** Set the character's language
Character.LanguageID = &H409
' *** Show the character
If bShow Then Character.Show
sIddle(1) = "Idle1_1"
sIddle(2) = "Idle1_2"
sIddle(3) = "Idle1_3"
sIddle(4) = "Idle1_4"
sIddle(5) = "Idle2_1"
sIddle(6) = "Idle2_2"
sIddle(7) = "Idle3_1"
sIddle(8) = "Idle3_2"
Exit Sub
ERROR_Agent_Init:
Exit Sub
End Sub
Public Sub Agent_NewsArrive(sNews As String)
' *** News arrives
On Error GoTo ERROR_Agent_NewsArrive
Character.Play "Announce"
Character.Speak sNews
Exit Sub
ERROR_Agent_NewsArrive:
Exit Sub
End Sub
Public Sub Agent_Search()
' *** Start a search
On Error GoTo ERROR_Search
Character.Stop
Character.Play "Search"
Exit Sub
ERROR_Search:
Exit Sub
End Sub
Public Sub Agent_Searching(sText As String)
' *** Start a search
On Error GoTo ERROR_Searching
Character.Play "Searching"
Character.Speak sText
Exit Sub
ERROR_Searching:
Exit Sub
End Sub
Public Sub Agent_SearchFound(sText As String)
' *** Start a search
On Error GoTo ERROR_Agent_SearchFound
Character.Play "Pleased"
Character.Speak sText & " found"
Exit Sub
ERROR_Agent_SearchFound:
Exit Sub
End Sub
Public Sub Agent_SearchNotFound(sText
' *** Start a search
On Error GoTo ERROR_Agent_SearchNotFound
Character.Play "Sad"
Character.Speak sText & " not found"
Exit Sub
ERROR_Agent_SearchNotFound
Exit Sub
End Sub
Public Sub Agent_Read()
' *** Start a Read
On Error GoTo ERROR_Read
Character.Play "Read"
Exit Sub
ERROR_Read:
Exit Sub
End Sub
Public Sub Agent_Reading(sText As String)
' *** Start a Read
On Error GoTo ERROR_Reading
Character.Play "Reading"
Character.Speak sText
Exit Sub
ERROR_Reading:
Exit Sub
End Sub
Public Sub Agent_Iddle()
' *** Start an iddle
On Error GoTo ERROR_Iddle
Character.Play sIddle(Int((8 * Rnd) + 1))
Exit Sub
ERROR_Iddle:
Exit Sub
End Sub
Public Sub Agent_Query()
' *** Start a query
On Error GoTo ERROR_Query
Character.Play "DoMagic1"
Character.Play "DoMagic2"
Exit Sub
ERROR_Query:
Exit Sub
End Sub
Public Sub Agent_Stop()
' *** Stop
On Error GoTo ERROR_Stop
Character.Stop
Exit Sub
ERROR_Stop:
Exit Sub
End Sub
Public Sub Agent_Filter(sText As String)
' *** Start a filter
On Error GoTo ERROR_Filter
Character.Play "Process"
Exit Sub
ERROR_Filter:
Exit Sub
End Sub
Public Sub Agent_Speech(sText As String)
' *** Say something
On Error GoTo ERROR_Filter
Character.Play "Suggest"
Character.Speak sText
Exit Sub
ERROR_Filter:
Exit Sub
End Sub