Trik Untuk Membuat Komputer Bercakap Apa pun yang anda tulis
1.Open Notepad dan copy dan paste kod berikut ke dalamnya
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
2.sekarang simpan file notepad dengan nama speak.vbs di desktop anda.
3. Kemudian anda klik di speak.vbs di desktop anda
Selamat Mencuba..
Subscribe to:
Post Comments (Atom)
Post a Comment