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

cj4025

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

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

www378660084

$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

真牛。。。。。。。。。

cj4025

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

xms77

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

xms77

$sp = ObjCreate("SAPI.SPVoice")
$sp.volume = 100
While True
        Sleep(100)
        $str = ClipGet()
        If S ...
www378660084 发表于 2011-9-10 16:25

好像不能说中文

3mile

#include <array.au3>

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

For $VoiceNames In $getvoice        
        ReDim $who[UBound($who) + 1]
        $who[UBound($who) - 1] = $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

紫色风林

谢谢，顶一下

sdwd_lhq

不错呀，学习了