愚笨作品

信狐

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” ，由于每个人的系统不同。效果也可以能会有不同。大家多多见谅！

yuwentao4761

楼主应该截图让大家看看能实现什么效果啊....