:

MSAgent.cls -  ,     
Timer.frm -    ,  ,    
KeyHook.bas -  API-,     
                 .     
			   ,    ,   
			     SetWindowsHookEx  UnhookWindowsHookEx
			    MSAgent.cls (  Initialize  Terminate).
MSAgentChecking.bas -   ,    -
              .    AgentIsInstalled,  
                   .
			  
----------------------------------------------------------------------------
 :

         
  (     MSAgent.cls),     
         (  ).

       ,    Commands,
    AudioOutput, SpeechInput    ,
    ,   ,  .  Commands  
        .

   Get  Character     , ..   
    -...  Get   -
   Play, Speak  Move.      Play 
       () AnimationNames 
    Load.

     ,   Get      
   IdleStart, IdleComplete  MyAgent.   
   .

     Listen(True) -       -
       (..   SR  ).
       ListenComplete, 
    . ,      
    Speak,   ListenComplete   
           Command (
   ).        ,
      modKeyHook

     ,  Microsoft Agent     (
  ),     ,     
     WaitRequestComplete,    
        nMaxWaitingTime (-
     Class_Initialize     MaxWaitingTime.
  .   WaitRequestComplete   MaxWaitingTime).
   ,     Wait,    -
      ,      .

   :

'    As Object,    
'   MSAgentChecking.bas   Set.
  
Public Merlin As New clsAgent                    '  (Public,
                                                 '  KeyHook.bas,
												 '   ).
Sub main()
   With Merlin
      .Load "Merlin.acs"                         '   ,  
	                                             ' .  
      .LanguageID = langRussian                  ' 
      With .Commands                             ' 
         .Add "WhatTime", " ?", "vremya" ' .. 
         .Add "ShowPropertySheet", " "
         .Add "ShowCommandsWindow", " "
      End With
      .Show                                      ' .
      .MoveTo 500, 300                           ' .
      .Think "   : F2"    '   -
	                                             '   .
												 '.   modKeyHook
   End With
      
   '    .  , 
   '  MS Agent   ( ),
   '   -   .
   
   Merlin.Hide
   
EndOfSubMain:
   Set Merlin = Nothing
End Sub