![]() Private WithEvents MYAgent As AgentObjects.Agent ' set your screen region, then start up this program. ' NOTE: To record your animation, Start, Run, wmenc.exe Is there a way to capture Microsoft Agent animations with the encoder, or should a different approach be used ? ![]() ![]() #MS AGENT BOB WINDOWS#The problem persists regardless of whether the Microsoft Agent Character display is generated using VB Express 2005, or VBScript on a web page, Of course the Print Screen keyboard function does capture the entire screen to the clipboard, including any Microsoft Agent regions, but Windows Media Encoder appears to be excluding MS Agent regions. This seems to be the case whether you choose specific window, region, or entire screen. height - 100 Īgent.Windows Media Encoder (9.0) apparently does not capture any display area on the screen which contains an active Microsoft Agent Character. get( "state ", AgentStates) įor( var x in e) alert(x " - " e) Agent.think("Oh so bad, I just wanna take a nap.") ![]() speak( "Hi, I am " NewAgent ", can I help you, sir? ") get( "animation ", "GetAttention, RestPose ") Īgent. get( "state ", "Showing, Thinking ") ĪgentAnimationRequest = Agent. Add( "STOP ", "Stop All Actions ", "Stop All Actions ") ĪgentStateRequest = Agent. Add( "FLY ", "Can You Fly ", "Can You Fly ") Īgent. Add( "SAYTIME ", "What Time Is It Now ", "What Time Is It Now ") Īgent. Add( "AUTHOR ", "Who Write The Program ", "Who Write The Program ") Īgent. Add( "INTRO ", "Introduce Yourself ", "Introduce yourself ") Īgent. Add( "READ ", "Read Text In Textarea ", "Read Text In Textarea ") Īgent. Add( "ACO ", "Advanced Character Options ", "Advanced Character Options ") Īgent. Caption = "MSAgent's Menu - by windy_sk " Īgent. Load(AgentID, AgentACS) ĪgentACS = " " NewAgent "/ " NewAgent ".acf " ĪgentLoadRequest = MSAgent. Var AgentStates = "GesturingDown, GesturingLeft, GesturingRight, GesturingUp, Hearing, Hiding, IdlingLevel1, IdlingLevel2, IdlingLevel3, Listening, MovingDown, MovingLeft, MovingRight, MovingUp, Showing, Speaking " Var AgentLoadRequest, AgentStateRequest, AgentAnimationRequest Str = "Err: " msg " on line: " line Var str = "You have found an error as below: \n\n " Confidence wrote the program, I think he's great! (^o^) ") Īgent. push( "I am so lonely, together with me, come on! ") Īgent_Show( "random ", rnd_words) Īgent_Show( "Confused ", "Don't move me OK? ", "RestPose ") push( "If you think it, you will make it! ") push( "Hi, don't you think I like neo in Matrix? ") push( "Pretty girl everywhere, single me over there. push( "Oh, it's fruit time, do you want an apple? ") push( "Ah, your boss is on your back! ") status = "Cannot Load MSAgent Animation For " AgentID " From " AgentACS " ! " Īgent_Show( "Acknowledge ", "Yes sir! " CharacterID " is right here! ") Īgent_Show( "Pleased ", "What can I do for you? ") Īgent. status = "MSAgent Animation For " AgentID " Has Been Loaded Successfully ! " status = "Cannot Load MSAgent State For " AgentID " From " AgentACS " ! " status = "MSAgent State For " AgentID " Has Been Loaded Successfully ! " status = "Cannot Load MSAgent File For " AgentID " From " AgentACS " ! " Īlert( "Cannot find MSAgent file from local disk or internet! ") #MS AGENT BOB DOWNLOAD#If( confirm( "Cannot find the MSAgent charactor file on your hard disk! \nWould you like to download the MSAgent charactor file for the next show? ")) status = "MSAgent File For " AgentID " Has Been Loaded Successfully ! " status = "Loading MSAgent Animation From Internet For " AgentID ". ![]() status = "Loading MSAgent State From Internet For " AgentID ". status = "Loading MSAgent File From Internet For " AgentID ". ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |