愚笨作品
Func _TalkOBJ($s_text)Local $o_speech = ObjCreate("SAPI.SpVoice")
$o_speech.Speak($s_text)
$o_speech = ""
EndFunc
$file = FileOpen("aiqing.txt", 0)
; 检查打开的文件是否可读
If $file = -1 Then
MsgBox(0, "错误", "不能打开文件.")
Exit
EndIf
; 每次读取一行文本,直到文件结束.
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
_TalkOBJ($line)
Wend
FileClose($file)
Exit感谢前辈们的努力~！！！！
声明：代码来源于本论坛前辈贡献！~ 请在执行文件同目录下将txt文件改名为“aiqing.txt” ，由于每个人的系统不同。效果也可以能会有不同。大家多多见谅！ {:face (411):}楼主应该截图让大家看看能实现什么效果啊....
页:
[1]