Tutorial Supaya Laptop/Komputer Kamu Bisa Ngomong
- Buka Notepad di Laptop/Komputer Kamu
- Copy Paste Script di bawah 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
3. Save as, kemudian pilih all files lalu kasih nama mypc.vbs
Selesai Deh Tinggal Dicuba-cuba Dulu
Coba sekarang anda klik 2x.. Gimana?? keren kan?? hehe
ScreenShoot
Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik 2x langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :
Dim msg, sapi
msg = "Ganti dengan Kata Yang Anda Kehendaki"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Cara ini sudah SAYA coba dan hasilnya : 100% Tested n Worked..!!
Selamat Mencoba
GOOD LUCK
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
3. Save as, kemudian pilih all files lalu kasih nama mypc.vbs
Selesai Deh Tinggal Dicuba-cuba Dulu
Coba sekarang anda klik 2x.. Gimana?? keren kan?? hehe
 |
| ScreenShoot |
Dim msg, sapi
msg = "Ganti dengan Kata Yang Anda Kehendaki"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Cara ini sudah SAYA coba dan hasilnya : 100% Tested n Worked..!!
Selamat Mencoba
GOOD LUCK
Geen opmerkings nie:
Plaas 'n opmerking