Text-to-speech

Talk:
   FileDelete, %A_ScriptDir%\SpeechMe.vbs
   FileAppend, Dim voic `n, %A_ScriptDir%\SpeechMe.vbs
   FileAppend, Set voic = WScript.CreateObject("SAPI.SpVoice")`n, %A_ScriptDir%\SpeechMe.vbs
   FileAppend, Set voic.voice = voic.GetVoices("", "Language=809").Item(0)`n, %A_ScriptDir%\SpeechMe.vbs
   FileAppend, voic.Speak("%Say%")`n, %A_ScriptDir%\SpeechMe.vbs
   FileAppend, Set voic = nothing`n, %A_ScriptDir%\SpeechMe.vbs
   Run, WSCRIPT.EXE "%A_ScriptDir%\SpeechMe.vbs",,, WSCRIPT_PID
return