Bu eylenceli .vbs kodu ile açılan boşluğa yazacağınız yazıyı bilgisayarınız size okuyacaktır , elbetteki bu kod değişik amaçlar için düzenlenip kullanılabilir , Lütfen Bilgisayarınıza küfür ettirmeyiniz
Açılan pencerede herhangi bir isim verin (dosya ismini istediğiniz şekilde düzenleyin ) ve uzantısı .bat/.vbs... olarak kaydedip çalıştırın
Dim message, sapi message=InputBox("What do you want me to say?","Speak to Me") Set sapi=CreateObject("sapi.spvoice") sapi.Speak message