fișiere:
MSAgent.cls - clasa principală, care este un singur caracter
Timer.frm - o formă ascunsă care conține un cronometru necesar agentului pentru a funcționa
KeyHook.bas - actualizează funcțiile API necesare pentru a prinde taste rapide la introducerea comenzilor vocale. Dacă nu intenționați să utilizați comenzi vocale, nu vă puteți conecta, dar apoi trebuie să eliminați funcția de apeluri SetWindowsHookEx și UnhookWindowsHookEx de MSAgent.cls module (Inițializare și Terminate evenimente ale unei clase).
MSAgentChecking.bas este un modul absolut independent pe care nu îl puteți conecta. Acesta conține funcția AgentIsInstalled, care verifică prezența bibliotecilor necesare pe computerul utilizatorului.
Toate proprietățile și metodele modelului de obiect, cu excepția colecției Comenzi,
și obiectele AudioOutput, SpeechInput sunt implementate direct în clasă,
în opinia mea, nu sunt multe dintre ele. Colectarea de comenzi și enumerate
Obiectele de mai sus sunt disponibile prin proprietățile clasei cu același nume.
Metoda Obțineți obiectul Caracter din această clasă nu este implementată, deoarece el la mine
nu a funcționat din vreun motiv. În loc de Get it se sugerează să mă folosești -
Redați, Vorbiți și Mutați. O serie de nume de animație pentru metoda Play a curentului
Un caracter poate fi preluat dintr-un matrice (proprietăți) de după AnimationNames
apelați metoda Încărcare.
Datorită faptului că metoda Get nu este implementată, am înlăturat și manipulatorii
evenimente IdleStart, Obiect IdleComplete MyAgent. Ele pot fi adăugate
în mod standard.
Datorită faptului că agentul Microsoft execută toate animațiile în mod asincron (nu
modal), și uneori aceste animații atârnă, sunt în orice metodă de animație
A adăugat un apel la procedura WaitRequestComplete, care nu permite animație
executați mai mult decât este specificat în variabila nMaxWaitingTime (setată la
Aceasta se face în procedura Class_Initialize sau mai târziu prin proprietatea MaxWaitingTime.
Consultați și procedura WaitRequestComplete și proprietatea MaxWaitingTime).
În plus, acordați atenție metodei "Așteptați", care permite două persoane,
gem pentru a vorbi unul cu celălalt, în timp ce așteptați sfârșitul discursului adversarului.
'Mai jos vine codul pentru programul tău. Nu uita asta
Toate animația MS Agent execută asincron (nu modal),
"deci trebuie să păstrați o formă modală deschisă.
EndOfSubMain:
Setați Merlin = Nimic
End Sub