Shulou(Shulou.com)06/03 Report--

This article mainly introduces how to achieve Microsoft wizard through MsAgent components in vbs, which has a certain reference value, and interested friends can refer to it. I hope you will gain a lot after reading this article.

The code is as follows:

'On Error Resume Next

StrAgentName = "Merlin"

StrAgentPath = "c:\ windows\ msagent\ chars\" & strAgentName & ".acs"

ScriptComplete=0

Set objAgent = WScript.CreateObject ("Agent.Control.2", "agent_")

ObjAgent.Connected = True

ObjAgent.Characters.Load strAgentName, strAgentPath

Set objCharacter = objAgent.Characters (strAgentName)

ObjCharacter.LanguageID = & H409

The 'objCharacter.LanguageID = & H804' menu is in Chinese, but Microsoft has not developed Chinese voice.

ObjCharacter.MoveTo 0, 700

ObjCharacter.Show

ObjCharacter.GestureAt 900, 700

Wsh.sleep 2000

ObjCharacter.MoveTo 900, 700

Wsh.sleep 3000

ObjCharacter.GestureAt 900, 100

Wsh.sleep 2000

ObjCharacter.MoveTo 900, 100

Wsh.sleep 3000

ObjCharacter.Speak ("Good" & GetTimeOfDay ())

ObjCharacter.Speak ("I love you")

ObjCharacter.speak ("Hello, how are you?")

ObjCharacter.speak ("I will show for you!")

Wsh.sleep 10000

Explain while performing

Show "Acknowledge", "nod"

Show "Alert", "straighten and raise eyebrows"

Show "Announce", "raise the trumpet and play"

Show "Blink", "blink"

Show "Confused", "scratch the head"

Show "Congratulate", "Show prizes"

Show "Congratulate_2", "applause"

Show "Decline", "raise your hand and shake your head"

Show "DoMagic1", "raise the magic wand"

Show "DoMagic2", "put down the magic wand and the clouds appear."

Show "DontRecognize", "cover your ears"

Show "Explain", "spread your arms to the sides"

Show "GestureDown", "downward gesture"

Show "GestureLeft", "gesture to the left"

Show "GestureRight", "gesture to the right"

Show "GestureUp", "upward gesture"

Show "GetAttention", "lean forward and knock"

Show "GetAttentionContinued", "lean forward and tap again"

Show "GetAttentionReturn", "return to normal posture"

ShowLoop "Hearing_1", "ear stretch (Loop Animation)"

ShowLoop "Hearing_2", "head tilted to the left (circular animation)"

ShowLoop "Hearing_3", "head turn left (circular animation)"

ShowLoop "Hearing_4", "head turn right (circular animation)"

Show "Hide", "disappear under the hat"

Show "Idle1_1", "catch your breath"

Show "Idle1_2", "look to the left and blink"

Show "Idle1_3", "look to the right"

Show "Idle1_4", "look from top to right and blink"

Show "Idle2_1", "look at the magic wand and wink."

Show "Idle2_2", "shake hands and blink"

Show "Idle3_1", "yawn"

ShowLoop "Idle3_2", "fall asleep (cyclic animation)"

Show "LookDown", "look down"

Show "LookDownBlink", "blink down"

Show "LookDownReturn", "return to normal posture"

Show "LookLeft", "look left"

Show "LookLeftBlink", "blink to the left"

Show "LookLeftReturn", "return to normal posture"

Show "LookRight", "look to the right"

Show "LookRightBlink", "blink to the right"

Show "LookRightReturn", "return to normal posture"

Show "LookUp", "look up"

Show "LookUpBlink", "blink up"

Show "LookUpReturn", "return to normal posture"

Show "MoveDown", "fly down"

Show "MoveLeft", "fly to the left"

Show "MoveRight", "fly to the right"

Show "MoveUp", "fly up"

Show "Pleased", "smile and put your hands together"

Show "Process", "mixing cauldron"

ShowLoop "Processing", "stirring cauldron (cyclic animation)"

Show "Read", "Open the book, read and search"

Show "ReadContinued", "read and search"

Show "ReadReturn", "return to normal posture"

ShowLoop "Reading", "read (Loop Animation)"

Show "RestPose", "normal posture"

Show "Sad", "sad expression"

Show "Search", "observe the Crystal Ball"

ShowLoop "Searching", "observe the crystal ball (circular animation)"

Show "Show", "emerge from the hat"

Show "StartListening", "hands to ears"

Show "StopListening", "hands over ears"

Show "Suggest", "display light bulb"

Show "Surprised", "surprised."

Show "Think", "put your hands on your chin and look up"

ShowLoop "Thinking", "hold your chin with your hands and look up (circular animation)"

Show "Uncertain", "lean forward and raise eyebrows"

Show "Wave", "waving"

Show "Write", "Open the book, write and search"

Show "WriteContinued", "write and search"

Show "WriteReturn", "return to normal posture"

ShowLoop "Writing", "Writing (cyclic Animation)"

Actions=Array ("Acknowledge", "Alert", "Announce", "Blink", "Confused", "Congratulate", "Congratulate_2", "Decline", "DoMagic1", "DoMagic2", "DontRecognize", "Explain", "GestureDown", "GestureLeft", "GestureRight", "GestureUp", "GetAttention", "GetAttentionContinued", "GetAttentionReturn", "Hide", "Idle1_1", "Idle1_2", "Idle1_3", "Idle1_4", "Idle2_1", "Idle2_2", "Idle3_1", "LookDown" "LookDownBlink", "LookDownReturn", "LookLeft", "LookLeftBlink", "LookLeftReturn", "LookRight", "LookRightBlink", "LookRightReturn", "LookUp", "LookUpBlink", "LookUpReturn", "MoveDown", "MoveLeft", "MoveRight", "MoveUp", "Pleased", "Process", "Read", "ReadContinued", "ReadReturn", "RestPose", "Sad", "Search", "Show", "StartListening", "StopListening", "Suggest", "Surprised", "Think", "Uncertain", "Wave", "Write", "WriteContinued" "WriteReturn")

'Sequential performance

For each action in actions

Set objRequest = objCharacter.Play (action)

Do While objRequest.Status > 0

WScript.Sleep 100

Loop

Next

'Random performance

Do

Randomize

I=Int ((UBound (actions) + 1) * Rnd)

Action = actions (I)

Set objRequest = objCharacter.Play (action)

Do While objRequest.Status > 0

WScript.Sleep 100

Loop

Loop

Do

WScript.Sleep 1000

Loop Until ScriptComplete

Function GetTimeOfDay ()

H = Hour (Now)

If h

< 12 Then TimeOfDay = "Morning" ElseIf h < 18 Then TimeOfDay = "Afternoon" Else TimeOfDay = "Evening" End If GetTimeOfDay = TimeOfDay End Function Sub Show(action,prompt) objCharacter.Speak(action) wsh.sleep 300 objCharacter.Think(prompt) wsh.sleep 200 Set objRequest = objCharacter.Play(action) Do While objRequest.Status >

0

WScript.Sleep 100

Loop

End sub

Sub ShowLoop (action,prompt)

ObjCharacter.Speak (action)

ObjCharacter.Think (prompt)

ObjCharacter.Play (action)

Wsh.sleep 5000

ObjCharacter.stop

End sub

Sub agent_dblclick (ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)

If MsgBox ("sure you want to quit?" , 33, "confirm exit")-2 then

ObjCharacter.StopAll

WScript.Quit

End if

End Sub

Sub agent_DragStart (ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)

ObjCharacter.Speak ("Shit! Don't drag me!")

Wsh.sleep 5000

End Sub

We actually call the MsAgent component in the system. Microsoft Agent is an agent software development technology released by Microsoft. We know that there is a kind of agent software called Office Assistant in the Office help system, but it only allows Office components to call. Agent animated characters can be called by any Windows program; Agent supports text balloons and input prompt bars to output text to a cartoon text balloon while outputting voice. If the Agent speech recognition engine is installed in the computer system, users can talk to MsAgent through the sound card and microphone.

Thank you for reading this article carefully. I hope the article "how to implement Microsoft Wizard through MsAgent components in vbs" shared by the editor will be helpful to everyone. At the same time, I also hope that you will support us and pay attention to the industry information channel. More related knowledge is waiting for you to learn!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.