论坛 › 『 提问交流 』 › 如何获取剪贴板内容，用语音包读出声音？

cj4025 发表于 2011-9-10 10:35:18

如何获取剪贴板内容，用语音包读出声音？

如何获取剪贴板内容，用语音包读出声音？

ClipPut那这么吊用语音包 读出声音。

www378660084 发表于 2011-9-10 16:25:27

$sp = ObjCreate("SAPI.SPVoice")
$sp.volume = 100
While True
        Sleep(100)
        $str = ClipGet()
        If StringLen($str) > 0 Then
                $sp.speak($str)
                ClipPut("")
        EndIf
WEnd

wei999 发表于 2011-9-10 19:46:12

真牛。。。。。。。。。

cj4025 发表于 2011-9-10 20:38:04

就是的，真是牛。还有问题请教。如何选择语音人物？ 请给个参考。

xms77 发表于 2011-9-10 21:01:43

回复 2# www378660084
这是太牛了，简简单单几行代码，做出这种功能，强大啊!

xms77 发表于 2011-9-10 21:10:40

$sp = ObjCreate("SAPI.SPVoice")
$sp.volume = 100
While True
        Sleep(100)
        $str = ClipGet()
        If S ...
www378660084 发表于 2011-9-10 16:25 http://www.autoitx.com/images/common/back.gif
好像不能说中文

3mile 发表于 2011-9-10 22:14:01

本帖最后由 3mile 于 2011-9-11 10:42 编辑

#include <array.au3>

$sp = ObjCreate("SAPI.SPVoice")
Global $getvoice = $sp.GetVoices()
Global $who

For $VoiceNames In $getvoice       
        ReDim $who
        $who = $VoiceNames.getdescription()
Next
_ArrayDelete($who,0)

$sp.volume = 100
$sp.Rate = 3
While True
        Sleep(100)
        $str = ClipGet()
        If StringLen($str) > 0 Then
                For $i = 0 To UBound($who) - 1
                        MsgBox(0, $who[$i], '"NAME=' & $who[$i] & '"')
                        $sp.Voice = $sp.GetVoices().Item($i)
                        $sp.speak($str)
                Next
                ClipPut("")
        EndIf
WEnd

紫色风林 发表于 2011-9-12 20:03:07

谢谢，顶一下

sdwd_lhq 发表于 2011-9-13 13:01:46

不错呀，学习了

查看完整版本: 如何获取剪贴板内容，用语音包读出声音？