YAZDIKLARINIZI SESLENDİREN BİR BİLGİSAYAR İSTER MİSİNİZ?

Cevabınız "evet" se  hemen Notepad uygulamasını açın. Aşağıdaki kodu yazın:
          
          Dim Message, Speak
          Message=InputBox("Enter text","Speak")
          Set Speak=CreateObject("sapi.spvoice")
          Speak.Speak Message

Farklı kaydet ile Dosya tipini "All Files" seçerek, 
Speak.vbs   
olarak dosyayı kaydedin.
Dosyayı açtığınızda bir text penceresi açılacaktır. Buraya girdiğiniz metinlerin enter tuşuna bastığınızda  seslendirildiğini göreceksiniz.