Cara Buat PC Anda Bicara

Kali Ini Indo-Anonymous Kasih Tau Cara Buat PC anda Bicara Melalui
Notepad.. langsung aja ke tutorialnya hehehe :

Tutorial 1
Buka notepad-mu !
kopikan script dibawah ini ke notepad
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

Save as, kemudian pilih "All Files", lalu beri nama "mypc.vbs" (tanpa tanda kutip)
open file tersebut lalu ketikkan kata yang akan di baca
selesai

Tutorial 2
Atau mau komputer langsung bicara saat file di buka silahkan ganti script di atas dengan script berikut
Dim msg, sapi
msg = "Hi, how are you doing?"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

Save As,Kemudian Pilih All Files,lalu beri Nama"mypc.vbs


NB: Ganti Tulisan Yang Di Cetak Merah Dengan Apa Yang Anda Ingin Komputer anda Bicarakan