Dah lama rasanya aku tak kongsi trick yang best-best kat blog ini tentang komputer. Kali ini aku nak share satu trick yang best bagi aku.. Aku rasa kawan-kawan mesti nak try punya.. Seperti biasa membuat script melalui notepad..
caranya begini:-
1. copy script di bawah.
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
2. Paste dalam notepad & save file sebagai cakap.vbs (boleh ubah ikut suka hati korang)
3. Then, korang boleh tukar icon yang menyedapkan mata korang.
Dinasihatkan dalam sebutan english lebih sedap berbanding sebutan bahasa melayu. well english is international language.
15 comments: