Pertama sekali, buka aplikasi notepad
Salin dan tampal kod berikut
- Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
Simpan fail tersebut dengan format .vbs
Buka fail tersebut dan taip sahaja apa - apa perkataan inggeris untuk ditukar kepada sebutan audio, selesai.
Selamat mencuba.
Itulah sahaja sedikit perkongsian daripada kami kali ini, semoga bermanfaat.