Scrip Agar PC Bisa Ngomong

Mumpung siang siang gini di bulan penuh berkah ini ane mau share..

ane punya scrip nie agar PC kalian bisa ngomong.
langsung jah deh gak pakek lama..tarikk

Dim pesan, sapi
pesan = InputBox ( " Para pemirsa website katakannashir.blogspot.com silakan Berbicara?", "Created by : Nashir ridlo")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak pesan

Bisa nggak cara make'nya.??

Gini Caranya
1. copy code di atas ke dalam notepad 
   (klik start > run > ketikkan ‘notepad’ > copas deh.)

2. save nya pakek type : all file

3. save pakek nama apa terserah trus pakek format .vbs(contoh : test.vbs)
4. Cek hasil save , dan open, nanti ada kolom tinggak ketikkan sesuatu yang mau di ucapkan oleh PC kalian

mungkin ini jah yang ane tahu,

moga bermafaat ya..

Jangan Lupa berkomentar..