腳本 MsAgent組件微軟精靈揪出系統自帶的寵物

2019-10-26 18:02:39

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:

'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
'objCharacter.LanguageID = &H804 '菜單為中文，但微軟沒有開發中文語音

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

'邊表演邊說明
show "Acknowledge", "點頭"
show "Alert", "伸直并抬起眉毛"
show "Announce", "舉起喇叭并吹奏"
show "Blink", "眨眼睛"
show "Confused", "撓頭"
show "Congratulate", "展示獎品"
show "Congratulate_2", "鼓掌"
show "Decline", "抬起手并搖頭"
show "DoMagic1", "舉起魔法棍"
show "DoMagic2", "放下魔法棍，出現云彩"
show "DontRecognize", "捂住耳朵"
show "Explain", "將兩臂向兩側展開"
show "GestureDown", "向下的手勢"
show "GestureLeft", "向左的手勢"
show "GestureRight", "向右的手勢"
show "GestureUp", "向上的手勢"
show "GetAttention", "向前傾并敲擊"
show "GetAttentionContinued", "向前傾并再次敲擊"
show "GetAttentionReturn", "返回正常姿勢"
ShowLoop "Hearing_1", "耳朵伸長（循環的動畫）"
ShowLoop "Hearing_2", "頭向左傾（循環的動畫）"
ShowLoop "Hearing_3", "頭向左轉（循環的動畫）"
ShowLoop "Hearing_4", "頭向右轉（循環的動畫）"
show "Hide", "消失在帽子下面"
show "Idle1_1", "喘口氣"
show "Idle1_2", "向左看并眨眼"
show "Idle1_3", "向右看"
show "Idle1_4", "從上往右看并眨眼"
show "Idle2_1", "看看魔法棍并眨眼"
show "Idle2_2", "手握手并眨眼"
show "Idle3_1", "打呵欠"
ShowLoop "Idle3_2", "入睡（循環的動畫）"
show "LookDown", "向下看"
show "LookDownBlink", "眨眼向下看"
show "LookDownReturn", "返回正常姿勢"
show "LookLeft", "向左看"
show "LookLeftBlink", "眨眼向左看"
show "LookLeftReturn", "返回正常姿勢"
show "LookRight", "向右看"
show "LookRightBlink", "眨眼向右看"
show "LookRightReturn", "返回正常姿勢"
show "LookUp", "向上看"
show "LookUpBlink", "眨眼向上看"
show "LookUpReturn", "返回正常姿勢"
show "MoveDown", "向下飛行"
show "MoveLeft", "向左飛行"
show "MoveRight", "向右飛行"
show "MoveUp", "向上飛行"
show "Pleased", "微笑并把手合在一起"
show "Process", "攪拌大鍋"
ShowLoop "Processing", "攪拌大鍋（循環的動畫）"
show "Read", "打開書，閱讀并查尋"
show "ReadContinued", "閱讀并查尋"
show "ReadReturn", "返回正常姿勢"
ShowLoop "Reading", "閱讀（循環的動畫）"
show "RestPose", "正常姿勢"
show "Sad", "悲傷的表情"
show "Search", "觀察水晶球"
ShowLoop "Searching", "觀察水晶球（循環的動畫）"
show "Show", "從帽子中出現"
show "StartListening", "手靠向耳朵"
show "StopListening", "手捂在耳朵上"
show "Suggest", "顯示電燈泡"
show "Surprised", "顯得很吃驚"
show "Think", "用手托住下巴向上看"
ShowLoop "Thinking", "用手托住下巴向上看（循環的動畫）"
show "Uncertain", "向前傾并抬起眉毛"
show "Wave", "擺手"
show "Write", "打開書，書寫并查尋"
show "WriteContinued", "書寫并查尋"
show "WriteReturn", "返回正常姿勢"
ShowLoop "Writing", "書寫（循環的動畫）"

上一篇：Rcmd.vbs 1.01修正版增加了下載功能

下一篇：vbs 函數獲取數組字符串的最后一個LastOne 挺方便的

發表評論

共有條評論