Func _SpeakOBJ($strText)
$o_speech = ObjCreate("SAPI.SpVoice")
If Not @error Then
$o_speech.Speak($strText)
$o_speech = ""
EndIf
EndFunc
然後直接使用這個函數就可以說妳想說的了:
_SpeakOBJ("You are really a clever boy!")
說中文應該也可以,但我聽著總覺得念中文時腔調有點不大對勁,不舒服。
———————————————————————————————————
補充:
“能不能用Autoit3編寫壹個EXE可以自動調節音量,例如壹執行此文件,音量就最大了”
可以,參見下面的參考資料鏈接。下載SoundGetSetQuery.au3,放到autoit安裝目錄下的Include目錄中。
autoit腳本中包含SoundGetSetQuery.au3,調用_SoundSetMasterVolume()這個UDF,參數為百分比,範圍0-100。
將主音量設為最大,就這樣:_SoundSetMasterVolume(100)
壹句話就OK。測試通過!
要EXE文件的話,百度hi我,給個郵箱或者QQ也行。