这段代码哪出错了吗？？？-已解决问题区-AUTOIT CN

zjg2003 发表于 2009-4-4 18:37:05

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

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

#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 发表于 2009-4-4 18:47:46

用VBS也出错：

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

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

zjg2003 发表于 2009-4-4 18:53:02

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

sxd 发表于 2009-4-4 19:45:37

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

ceoguang 发表于 2009-4-4 20:39:57

IsObj判断一下

ceoguang 发表于 2009-4-4 20:43:09

原帖由 zjg2003 于 2009-4-4 18:47 发表 http://www.autoitx.com/images/common/back.gif
用VBS也出错：
3168

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

死开口说话")
Set sapi=CreateObject("sapi.spvoice")
...
弱弱的问一下,能支持中文发音吗?

gto250 发表于 2009-4-4 22:00:27

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

http://lwc.nhome.cn/code/showip.asp

页: [1]

AUTOIT CN's Archiver

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