调用系统播报语音

#SingleInstance Force
; On := 0

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("说中文")

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

; 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
}