Bilgisayarınız yazdıklarınızı sesli söylesin (.vbs)



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şağıdaki kodu bir notepad e yapıştırıp ve Dosya – Farklı Kaydet… seçeneğine tıklayın

farkli_kaydet

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

farkli_kaydet2

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

Yorum Ekle

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Captcha