Office2003精灵助手(孙悟空)的脚本调用程序

上一篇 / 下一篇  2010-08-21 21:09:47 / 个人分类:Office技巧

Office2003精灵助手(孙悟空)的脚本调用程序

Office2003精灵助手,在进入WORD2003或其它办公自动化套装组件时调用方法是极其简单的:窗口“帮助”菜单下选择“显示助手”及助手选项设置即可,但它控制不了助手动作,只能随“动画效果”随机播放。采用以下VBEVBS脚本程序调用精灵助手可以指定动画动作类型,诚然这样做之前你还必须使用精灵助手动作读取器,查看其助手之动作类型定义。

下面程序可用于调用孙悟空Office助手(指直接在Windows调用孙悟空助手程序):

MNKYKINGID = "MNKYKING"

MNKYKINGACS = "MNKYKING.acs"

ScriptComplete = 0

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

AgentControl.Connected = True'连接控件

AgentControl.Characters.Load MNKYKINGID,MNKYKINGACS

Set MNKYKING = AgentControl.Characters(MNKYKINGID)

MNKYKING.LanguageID = &H409

MNKYKING.MoveTo 900, 600

MNKYKING.Show

MNKYKING.MoveTo 900, 0

timespeak = "good " & GetTimeOfDay()

MNKYKING.Speak(timespeak)

MNKYKING.Play("Alert")    '金箍棒闪一下

MNKYKING.Speak("眨眼")

MNKYKING.Play("Explain")    '向右赞眼

MNKYKING.Speak("I love you")

MNKYKING.Play("Congratulate")    '挥大旗

MNKYKING.Speak("回复动作")

MNKYKING.Play("RestPose")    '回復动作

MNKYKING.Speak("向上")

MNKYKING.Play("GetAttention")    '敲锣 / / 竖琴

MNKYKING.Play("GestureUp")    '向上

MNKYKING.Speak("向下")

MNKYKING.Play("GestureDown")    '向下

MNKYKING.Speak("伸出左手")

MNKYKING.Play("GestureLeft")    '伸出左手

MNKYKING.Speak("伸出右手")

MNKYKING.Play("GestureRight")    '伸出右手

MNKYKING.Play("Wave")  '挥手 打关斗

MNKYKING.Play("Processing")    '跑步

MNKYKING.Play("Thinking") ' 思考

MNKYKING.Play("Writing")    ' 反复写

MNKYKING.Play("Searching")    ' 搜索

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)

MNKYKING.StopAll

MsgBox "bye bye!!,再见了!"

WScript.Quit

End Sub

复制以上代码,粘贴入记事本窗口中,执行“文件”菜单下的“另存为”,任取文件名但文件扩展名部分一定是.VBE或者.VBS。存好文件后关闭记事本程序,回到文件存盘位置,双击脚本程序文件就可以启动执行程序看到执行效果了。不信你试试!!


TAG: 程序 精灵 孙悟空 助手 脚本

 

评分:0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

Open Toolbar