Bilgisayarcı veya yazılımcı olmanıza gerek yok, not defterine bir kaç kod yazarak bilgisayarınızı konuşturabilirsiniz.

Yapmanız gereken şey masaüstünde boş bir yere sağ tıklayıp Yeni>Metin Belgesi ni tıklamanız sonra dosyayı çift tıklayarak açın, içine aşağıdaki satırları kopyala yapıştır ile ekleyin.

İşin en önemli kısmı dosyayı kaydetme şeklidir. Onun için dosyayı Farklı Kaydet Diyoruz, Dosya Adı olarak speak.vbs diyoruz hemen altında bulunan Dosya Türünü ise Tüm Dosyalar olarak seciyoruz, ve dosyayı masaüstüne kaydedin.

Şimdi herşeyi kapatın ve masaüstünde bulunana speak.vbs dosyasını çift tıklayın aşağıdaki şekilde karşına bir pencere açılacak metin kutusuna okumasını istediğiniz yazıyı yazın ve tamam tuşuna bazın bilgisayr yazıdığınızı sesli olarak okuyacaktır.

Not: Yazıları küçük harfle yazın daha net okuyor.

Dim Mesaj, Speak
Mesaj=InputBox("Okumasını İstediğiniz Metni Giriniz","http://www.korkmazadem.com")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Mesaj