1. Buka Notepad. Yang belum punya bisa nyari sendiri.
2. Silahkan copy code berikut kedalam Notepadnya

   Dim ProSpeak
   Set ProSpeak = WScript.CreateObject( “SAPI.SpVoice” )
   ProSpeak.Speak “hello”

3. Kata “hello”, bisa diganti dengan kalimat lain.
4. Save dalam format vbs. Misalnya “hello.vbs”
5. Setelah di save, buka filenya.

Dikarenakan untuk melakukan penggantian kata yang ribet, (*harus membuka filenya, lalu di edit), maka saya punya cara yang lain, biar lebih simple dalam pergantian kalimatnya. Ikuti step berikut :

1. Buka Notepad.
2. Copy code berikut kedalam Notepadnya

   Dim msg, aloy
   msg=InputBox(”Masukkan Kalimat”,”Komputernya mau ngomong nih..”)
   Set aloy=CreateObject(”sapi.spvoice”)
   aloy.Speak msg

3. Save dalam format vbs. Misalnya “Komputer Nogmong.vbs”
4. Setelah di save, buka filenya, lalu masukkan kalimatnya.

Silahkan Coba......!!