SetEnvironmentVar "SpkStr"," "

SpkStr= "Script has been activated "

BeginThread "发出语音"

Rem 主程序

key=-1

txX = 0

txY = 0

GetLastKey key

If key=112

    SpkStr= "Collection"

    key=-1

    Gosub 自动采集

EndIf 

Gosub 打开网站

Goto 主程序

///////////////////子程序///////////////

Sub 坐标转换

    Dim HUA

    //申明变量是个好习惯

    HUA=""

    //定义变量

    Plugin hwnd=Window.Foreground()

    //调用插件得到当前窗口句柄，结果返回给变量hwnd

    Plugin wtext=Window.GetText(hwnd)

    //调用插件根据窗口句柄得到当前窗口标题，结果返回给变量wtext

    Plugin wclass=Window.GetClass(hwnd)

    //调用插件根据窗口句柄得到当前窗口类，结果返回给变量wclass

    Plugin path=Window.GetExePath(hwnd)

    //调用插件根据窗口句柄得到当前窗口的路径，结果返回给变量path

    Plugin rect=Window.GetClientRect(hwnd)

    //调用插件根据窗口句柄得到当前客户区坐标数据，结果返回给变量rect

    Plugin wrect=Window.GetWindowRect(hwnd)

    //调用插件根据窗口句柄得到当前窗口坐标数据，结果返回给变量wrect

    MyArray = Split(rect, "|", -1, 1)

    //以"|"这个条件来分割字符串rect，结果返回数组MyArray()

    //在这里这个字符串rect分割后有4个数组元素，它们分别是：

    //MyArray(0)=客户区左上角X坐标

    //MyArray(1)=客户区左上角Y坐标

    //MyArray(2)=客户区宽度

    //MyArray(3)=客户区高度

    txX=MyArray(0)+txX

    txY=MyArray(1)+txY

Return 

Sub 发出语音

    //这里输入想要提示的E文语句（安装office组件还可以支持中文）和重复次数

    SpkStr= "Script has been activated "

    rpNum= 1

    VBSBegin 

        cmdLine="For i=1 to rpNum :str=SpkStr:Next"

        Execute(cmdLine)