java 语音库_语音控制pc

[java]代码库//实现方式: 按键精灵+讯飞语音识别java SDK

//实现原理: 讯飞语音识别输入法将识别的文字复制到了你的windows剪贴板中,然后按键精灵监听剪贴板,并识别其中的文字,根据文字执行相应的代码

//作用: 理论上脚本能够执行的任务,都可以通过语音来控制,你可以用来进行语音编程,语音操作软件,语音开关机等等

//配置方式: 1.安装讯飞语音输入法,并打开 2.在按键精灵中配置好你要执行的命令 3.说出你要执行的任务

//代码如下:

按键精灵的操作讯飞输入法:

Function 获取x绝对坐标(程序标题)

//获取句柄

Hwnd = Plugin.Window.Find(0, 程序标题)

//获取程序左上角坐标

sRect= Plugin.Window.GetClientRect(Hwnd)

Dim MyArray

MyArray = Split(sRect, "|")

获取x绝对坐标=CLng(MyArray(0))//Clng 字符串类型转换成长整形

End Function

Function 获取y绝对坐标(程序标题)

//获取句柄

Hwnd = Plugin.Window.Find(0, 程序标题)

//获取程序左上角坐标

sRect= Plugin.Window.GetClientRect(Hwnd)

Dim MyArray

MyArray = Split(sRect, "|")

获取y绝对坐标=CLng(MyArray(1))//Clng 字符串类型转换成长整形

End Function

Sub 英语输入

Ux = Lib.我的测试.获取x绝对坐标("讯飞语音悬浮窗")

Uy = Lib.我的测试.获取y绝对坐标("讯飞语音悬浮窗")

//获取程序的绝对坐标

x = Ux + 57

y = Uy + 57

MoveTo x, y

RightClick 1

MoveTo x-127, y-242

Delay 50

MoveTo x-137, y-242

Delay 50

MoveTo x-274, y-242

MoveTo x-274, y-208

LeftClick 1

End Sub

Sub 中文输入

Ux = Lib.讯飞.获取x绝对坐标("讯飞语音悬浮窗")

Uy = Lib.讯飞.获取y绝对坐标("讯飞语音悬浮窗")

//获取程序的绝对坐标

x = Ux + 57

y = Uy + 57

MoveTo x, y

RightClick 1

MoveTo x-127, y-242

Delay 50

MoveTo x-137, y-242

Delay 50

MoveTo x-274,