Trik Membuat Komputer Anda Bisa Berbicara

Eittt...tunggu dulu...

Anda jangan mengira hanya dengan melakukan truk ini anda bisa bercakap-cakap dengan komputer anda layaknya dengan manusia. Maksud saya disini adalah komputer anda akan mengucapkan semua kata yang anda ketikkan saja... Trik ini mungkin saja bisa membuat takjub teman-teman anda yang belum tahu...

Ok, mari kita coba...

Pertama :
Silahkan buka NotePad anda dan copy pastekan skrip di bawah ini :

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

Kedua :
Sekarang simpan dengan nama terserah anda, tapi ingat, ekstensinya harus vbs. Disini saya memakai nama speak.vbs

Ketiga :
Nah, silahkan klik dua kali speak.vbs tadi. Silahkan ketik satu atau beberapa kata yang anda inginkan dan klik OK...

Selamat, sekarang komputer anda sudah bisa berbicara... Gimana? Seru kan????

Posted in Trik Komputer