Masaüstüne yeni bir metin belgesi oluşturuyoruz:
(isim farketmiyor)
Sonra aşağıdaki kodları içine yapıştırın
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Ardından dosyayı farklı kaydedin ve farklı kaydederkende text2speech.vbs olarak kaydedin.
Ardından masaüstünde oluşan text2speech adlı dosyayı açın ve sözcüğünüzü yazın
Konuşan kişi dili ve şivesi Türkçe'ye yatkın değil sanırım biraz garip oluyor :) idare edin artık
Saygılarımla
