调用系统播报语音

; https://www.autohotkey.com/boards/viewtopic.php?f=76&t=91791

#SingleInstance Force

tts("测试语音的速度和音量")
MsgBox % ErrorLevel

F1:: ComObjCreate("SAPI.SpVoice").Speak( (On:=!On) ? "activated" : "deactivated")

F2::ComObjCreate("SAPI.SpVoice").Speak("That is a terrific script, exclamation point.")

F3::ComObjCreate("SAPI.SpVoice").Speak("说中文")


; A_LastError 是 0。它在我的电脑上工作，但是当我将它发送给其他人时，它似乎不起作用。我问过的一个人使用了 Win 7 64 位，但它根本不起作用。我有 Win 10 64 位，它可以工作。出于某种原因，很多人都有这个问题。【盗版系统可能会剔除语音】

tts(txt) {
	SAPI := ComObjCreate("SAPI.SpVoice")
	SAPI.rate := 0 ; 语速
	SAPI.volume := 100  ; 音量
	try
		SAPI.speak(txt)
	 catch {
		ErrorLevel := A_LastError
		return
	}
	ErrorLevel := 0
}