[Trik notepad] Komputer Bisa Bicara

apakah komputer bisa bicara ??
jawabanya:ya

bagaimana caranya??
jawabanya: ada deh... hehe

caranya gampang seperti bikin teh..

1.buka notepad dulu jangan buka windows media player..hehehe

2.salin kode dibawah ini




Dim msg, sapi
msg = InputBox ( "apa yang ingin anda katakan", "Masukan Tulisanya")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg


3.simpan dengan format .vbs

note: tulisan yang berwarna merah bisa diganti sesukamu