Tech News:Πως μπορείτε να μετατρέψετε οποιοδήποτε κείμενο σε ήχο χωρίς καμία εφαρμογή!

από **aimilios** Πεμ 12 Ιουν 2014 - 20:33

:info:
Ενα ωραίο κολπάκι για να μπορέσετε να μετατρέψετε οποιοδήποτε κείμενο σε ήχο! Δεν είναι καθόλου δύσκολο να το πετύχετε αυτό αφού ακολουθήσετε τα παρακάτω βήματα:

Βήμα 1ο:
Ανοίξτε ένα απλό έγγραφο κειμένου (σημειωματάριο ή αλλιώς wordpad). Αντιγράψτε και τοποθετήστε μέσα σε αυτό το παρακάτω κώδικα:

Dim msg, sapi
msg=InputBox("Πληκτρολόγησε το κείμενο εδώ– ","By dwrean.net")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

Βήμα 2ο:
Στη συνέχεια σώστε το αρχείο ως αρχείο .vbs, πχ audio.vbs
Σημαντικό: Η κατάληξη να είναι οπωσδήποτε .vbs και στη θέση audio που βάλαμε στο παράδειγμά μας μπορείτε να βάλετε ότι θέλετε.

Βήμα 3ο:
Τώρα κάντε διπλό κλικ στο αρχείο που δημιουργήσατε και στο παράθυρο που θα βγει μπορείτε να πληκτρολογήσετε το κείμενό σας και αυτό θα εκφωνηθεί!
Η γλώσσα που μιλάει είναι τα αγγλικά, οπότε καλύτερα να γράφουμε αγγλικά κείμενα, διότι τα ελληνικά θα ακούγονται κάπως περίεργα!

Καλή επιτυχία!

*dwrean.net.

Tech News:Πως μπορείτε να μετατρέψετε οποιοδήποτε κείμενο σε ήχο χωρίς καμία εφαρμογή!

Tech News:Πως μπορείτε να μετατρέψετε οποιοδήποτε κείμενο σε ήχο χωρίς καμία εφαρμογή!

Πρόσφατα Θέματα