Membuat Windows bisa Bicara

Tips ini hanya sekedar untuk mengisi waktu luang / iseng
anda saja. Kala anda sedang sendirian, tak ada teman
yang bisa diajak bicara, anda bisa coba mengajak
komputer anda untuk berbicara pada anda, berbicara
apa saja yang anda inginkan. Caranya adalah :

1. Buat New Text Document
2. Copy - paste script di bawah ini :



Dim msg, eCreative

msg = inputbox ( "apa yang anda ingin katakan?", "Tulis Kalimat Anda" )

Set sapi = createobject ( "sapi.spvoice")

sapi.speak msg


3. Kalau sudah, anda klik File (Paling atas sebelah kiri),
terus pilih Save As...
Beri nama apa saja terserah anda yang penting di
akhirnya harus ber-ekstensikan vbs ( .vbs )
Ubah juga Teks Documents (*.txt)-nya jadi All Files.
Seterusnya anda klik 'Save'
Lihat gambar di bawah ini :


4. Speaker komputer anda hidupkan.
5. Buka Text Document hasil save as tadi.
atau (double klik) saja.
maka akan mucul gambar seperti ini :


6. Tulis kalimat apa saja yang anda inginkan.
Bila kalimat yang anda tulis agak panjang,
maka di akhir kalimatnya anda sisipkan tanda , (koma)
Setelah itu, klik OK. Dan dengarkan ............


Selamat mencoba.
Good Luck ......

Sumber: http://syamsudinnamaku.blogspot.com/2011/02/membuat-windows-bisa-bicara.html