- Pertama, buka notepad.
- Copy-Paste script berikut :
- Save as, kemudian pilih all files lalu kasih nama mypc.vbs
- Selesai
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
klo keren like disini
No comments:
Post a Comment