Cara membuatnya gampang, pertama buka Notepad
Kemudian Copy Paste Script berikut :
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
![[Image: 1_1a.jpg]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_uIR0q0XBoV1k484sXOtOiKRWOCO2-VCwXDz73rrbXNXaJk5VujSkLMPoRjKflvt6CSztcOOxIyt5VanCc03TqoTj_cuG1mbzvttOZ8jG4_pVff5uvo7pKWk0ds-WPu9GOs_HtyO63w=s0-d)
Selesai
![[Image: 2_mypc.jpg]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_t5z39GrXo5AVSKfI2dFANUAkSLohEMMec3cgO0n5ThCH9lBEYtuB-159MTPN9-KW6e0if5K6Nzl_jLBr9cO1bOjSVT-6j_1vnIkt2h1J05jY5bH95TnXY8pj03To_X8rXgr-0rJcg8h9E=s0-d)
Coba sekarang anda dobel klik file tersebut apa katanya?
Sumber: www.ciie-dunia.blogspot.com
Kemudian Copy Paste Script berikut :
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
Selesai
Coba sekarang anda dobel klik file tersebut apa katanya?
Sumber: www.ciie-dunia.blogspot.com
{ 0 comments... read them below or add one }
Post a Comment