这段代码哪出错了吗？？？

zjg2003

程序运行后敲回车，出现这个错误：



#include   <GUIConstants.au3>
HotkeySet("{Enter}", "_TalkOBJ")
$Form1 = GUICreate("语音测试系统", 622, 441, 192, 125)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 601, 309, -1)
GUICtrlSetData($Edit1, "AEdit1")
GUISetState(@SW_SHOW)
While 1
      $msg = GuiGetMsg()
      Select
      Case $msg = $GUI_EVENT_CLOSE
           ExitLoop
      Case $msg = $Edit1
      EndSelect
WEnd
Exit

Func _TalkOBJ()
     Local $o_speech
     $o_speech = ObjCreate("SAPI.SpVoice")
     $o_speech.Speak (GUICtrlRead($Edit1))
     $o_speech = ""

EndFunc

解决方法：换个系统，呵呵（可能是优化系统禁用了某些功能造成的）

[ 本帖最后由 zjg2003 于 2009-4-5 10:14 编辑 ]

zjg2003

用VBS也出错：




VBS代码：
Dim msg,sapi
Msg=inputBOX("请输入你丫想听到的文字，让温多死说出纯正的美式英语或者标准的普通话！","让温多

死开口说话")
Set sapi=CreateObject("sapi.spvoice")
Sapi.Speak Msg

zjg2003

感觉是系统的原因，哪位高手给个解决方法

sxd

无法创建SAPI.SpVoice对象
没注册吧

ceoguang

IsObj判断一下

ceoguang

原帖由 zjg2003 于 2009-4-4 18:47 发表
用VBS也出错：
3168



VBS代码：
Dim msg,sapi
Msg=inputBOX("请输入你丫想听到的文字，让温多死说出纯正的美式英语或者标准的普通话！","让温多

死开口说话")
Set sapi=CreateObject("sapi.spvoice")
...

弱弱的问一下,能支持中文发音吗?

gto250

没有装语音包的话，是不支持中文发音的！