GenieID = "Genie"
GenieACS = "genie.acs"
ScriptComplete = 0
Set AgentControl = WScript.CreateObject("Agent.Control.2","agent_")
AgentControl.Connected = True'连接控件
AgentControl.Characters.Load GenieID,GenieACS
Set Genie = AgentControl.Characters(GenieID)
Genie.LanguageID = &H409
Genie.MoveTo 900, 600
Genie.Show
Genie.MoveTo 900, 0
timespeak = "good " & GetTimeOfDay()
Genie.Speak(timespeak)
Genie.Play "Acknowledge" '承认
Genie.Speak("眨眼")
Genie.Play "Blink" '眨眼
Genie.Speak("i love you")
Genie.Speak("回复动作")
genie.Play("RestPose") '回復动作
Genie.Speak("向上")
genie.Play("GestureUp") '向上
Genie.Speak("向下")
genie.Play("GestureDown") '向下
Genie.Speak("伸出左手")
genie.Play("GestureLeft") ' 伸出左手
Genie.Speak("伸出右手")
genie.Play("GestureRight") ' 伸出右手
Genie.Speak("叹气")
genie.Play("Sad") '嘆气
Genie.Speak("惊奇")
genie.Play("Surprised") '惊奇
Genie.Speak("握掌")
genie.Play("Pleased") '握掌
Genie.Speak("喇叭")
genie.Play("Announce") '喇叭
Genie.Speak("眯眼")
genie.Play("Blink") '瞇眼
Genie.Speak("无奈")
genie.Play("Decline") '无奈
Genie.Speak("抓头")
genie.Play("Confused") '抓头
Genie.Speak("鼓掌")
genie.Play("Congratulate") '奖盃
Genie.Speak("回手")
genie.Play("Wave") '挥手
Genie.Speak("惊讶")
genie.Play("Alert") '惊讶
Genie.Speak("魔术棒1")
genie.Play("DoMagic1") '魔术棒-1
Genie.Speak("魔术棒2")
genie.Play("DoMagic2") '魔术棒-2
Genie.Speak("摊手")
genie.Play("Explain") '摊手
Genie.Speak("敲门")
genie.Play("GetAttention") '敲门
genie.Play("GetAttentionContinued") '敲门-敲
genie.Play("GetAttentionReturn") '敲门-放下
genie.Play("Greet") '弯腰
genie.Play("Idle2_1") '观察魔术棒
genie.Play("Idle2_2") '两手在腹前交叉
genie.Play("Idle3_1") '打呵欠
Genie.Speak("向上看")
genie.Play("LookUp") '上看
genie.Play("LookDown") '下看
genie.Play("LookLeft") '左看
genie.Play("LookRight") '右看
genie.Play("MoveUp") '上移
genie.Play("MoveDown") '下移
genie.Play("MoveLeft") '左移
genie.Play("MoveRight") '右移
genie.Play("Process") '魔法调配
genie.Play("Read") '阅读
Do '此处存疑,高手请看最后
WScript.Sleep 1000
Loop Until ScriptComplete
Function GetTimeOfDay()
Dim TimeOfDay
Dim h
h = Hour(Now())
If h < 12 Then
TimeOfDay = "Morning"
ElseIf h < 17 Then
TimeOfDay = "Afternoon"
Else
TimeOfDay = "Evening"
End If
GetTimeOfDay = TimeOfDay
End Function
Sub agent_dblclick(ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)
Genie.StopAll
MsgBox "白白,再见了!"
WScript.Quit
End Sub |
|