pellesoft.se

Styr och ställ med MS-Agent

Postad 2001-11-12 av Michael Karlsson i sektionen ASP.NET, C#, Okategoriserat med 1 Kommentarer | Läst av: 3424, Betyg: 60%

Förord

Visst har vi alla stört oss någon gång på det dumma gemet i Word som aldrig vill försvinna och tror sig alltid ha en lösning på dina problem? Dessa sk. Agenter finns det några stycken av. Jag ska via denna kurs visa upp hur vi kan använda dessa agenter i våra egna program, och hur vi kan utnyttja dem på så många sätt som möjligt.

Detta är inte precis en kurs för avancerade VB-programmerare, men jag tror att nybörjare kan tycka att den är rolig och att de kanske lär sig något nytt när de prövar på. Det finns en del av dessa agenter, och de ligger alla i 'c:\Windows\MSAgent\Chars, eller om du kör NT/2000, 'c:\WINNT\MsAgent\Chars'. Den jag kommer till att använda i denna artikeln (han är även min egna favorit) är Merlin, trollkarlen som flyger runder när han förflyttar sig.

Innehåll

» Var denna artikeln användbar?

Låt oss nu börja med att starta upp Visual Basic och skapar ett nytt projekt. Tryck CTRL + T, eller gå via menyn Project|Components. Dra dig ner till "Microsoft Agent Control 2.0" och tryck OK. Nu ska du ha en ny ikon bland de övriga, denna ser ut som en skum agent med solglasögon. Lägg ut den på formen och döp om den till Agenten. Nu har det blivit dags att deklarera att vi ska använda agenten, vi deklarerar även 'agent', som ska göra att vi enklare kan byta Agent när vi så önskar. Detta gör vi genom att dubbelklicka på formen och välja General Declarations, lägg sedan till koden.


Dim Char As IAgentCtlCharacterEx
Dim agent As String

För att sedan få fram Agenten lägger vi in följande i Form_Load()


Private Sub Form_Load()
  agent = "Merlin"
  Agenten.Characters.Load agent, agent & ".acs"
  Set Wizard = Agenten.Characters(agent)
  Wizard.Show
End Sub

Tryck nu på F5 och varsågod, där har du Merlin. Han gör inte särskilt mycket, utan står där mest och ser dum ut, men med följande kod ska vi få honom att flyga sin väg, prata, gömma sig och göra lite andra mystiska saker som trollkarlar gör.


Private Sub Form_Load()
  agent = "Merlin"
  Agenten.Characters.Load agent, agent & ".acs"
  Set Wizard = Agenten.Characters(agent)
  Wizard.Show
  Wizard.Speak "Oh, NO!"
  Wizard.MoveTo 10000, 300
  Wizard.Speak "You Cant see me!"
  Wizard.MoveTo 300, 300
  Wizard.Play "Write"
  Wizard.Play "Search"
  Wizard.GestureAt 400, 400
  Wizard.Play "DoMagic1"
End Sub

Byt ut föregående kod mot den ovan. Som du ser använder vi lite fler kommandon nu, vi får bland annat agenten att prata, flytta sig mellan olika punkter, och även skriva, söka och trolla för oss. Genom att använda play så kan du göra en hel del med din agent, nedan följer en lite lista över vad du kan göra


agent.Play "Write"          Som det låter, agenten skriver i sin bok
agent.Play "Writing"        Samma som Write, bara det att han skriver tills man använder kommandot agent.stop
agent.Play "process"        I detta fallet med Merlin, så står han och kokar ihop något
agent.Play "Processing"     Samma som ovan, bara det att man måste använda agent.Stop för att han ska sluta
agent.Play "read"           Agenten läser
agent.Play "reading"        Agenten läser till man använder agent.Stop
agent.Play "search"         Agenten söker
agent.Play "searchning"     Agenten söker till agent.Stop används

agent.Play "LookDown"        Agenten tittar ner
agent.Play "LookDownReturn " Agenten tittar ner och tittar sedan upp igen
agent.Play "LookDownBlink"   Tittar ner och blinkar
agent.Play "LookUp"          Agenten tittar uppåt
agent.Play "LookUpReturn"    Tittar upp och tittar sedan ner igen
agent.Play "LookDownBlink"   Tittar ner och blinkar
agent.Play "LookLeft"        Tittar åt vänster
agent.Play "LookLeftBlink"   Tittar åt vänster och blinkar
agent.Play "lookLeftReturn"  Tittar åt vänster och åtevänder sedan med blicken
agent.Play "LookRight"       Agenten tittar åt höger
agent.Play "LookRightBlink"  Agenten tittar åt höger och blinkar
agent.Play "LookRightReturn" Agenten tittar åt höger och återvänder sedan med blicken

agent.play "Uncertain"       Gör agenten osäker
agent.Play "Sad"             Gör agenten ledsen
agent.Play "Surprised"       Gör att agenten ser överraskad ut
agent.Play "Decline"         Gör att agenten förnekar något
agent.Play "Confused"        Gör att agenten ser förvirrad ut
agent.Play "blink"           Agenten blinkar
agent.Play "acknowledge"     Gör agenten uppmärksam över något
agent.Play "Hearing_1"       Gör att agenten ser ut att lysssna, finns fyra sådana här, byt ut 1:an mot den du vill ha

agent.play "GestureUp"       Gör en gest uppåt, fungerar upp och ner. vänster, höger, skriv bara Gesture och vilket hål
agent.Play "Explain"         Agenten förklarar
agent.Play "GetAttention"    Agenten drar till sig uppmärksamheten
agent.Play "StartListening"  Börjar lyssna
agent.Play "Stoplistening"   Slutar lyssna  
agent.Play "Congratulate_1"  Gratulerar användaren. Finns två av denna, byt ut 1:an mot en tvåa bara

En kul grej man kan använda när inte agenten behöver användas är idle skriv bara
agent.Play "Idle1_1"        Det finns 1_6, 2_3, och 3_3, och en del av dem är riktigt skojiga

Som ni ser så finns det en del man kan använda agenten till, och tänker man efter lite så kommer man säkert på någon idé om hur man kan använda agenten i sitt egna program.

Var denna artikeln användbar?

Om du gör någon intressant (eller kanske något konstigt fel) på grund av detta material så skicka gärna det med ett mail eller bifoga en länk till mig så presenterar jag detta som ytterligare exempelfiler för kursen. Om detta innehållet är felaktigt eller du lärt dig fler finesser så skriv gärna en rad eller varför inte en egen kurs baserat på dina erfarenheter. Sänd gärna in dina tips till denna kurs.

/Michael Karlsson

Upp