Γεια σας φίλες και φίλοι του dwrean.net. Σήμερα σας έχω ένα ωραίο κολπάκι για να μπορέσετε να μετατρέψετε οποιοδήποτε κείμενο σε ήχο! Δεν είναι καθόλου δύσκολο να το πετύχετε αυτό αφού ακολουθήσετε τα παρακάτω βήματα:
Βήμα 1ο:
Ανοίξτε ένα απλό έγγραφο κειμένου (σημειωματάριο ή αλλιώς wordpad). Αντιγράψτε και τοποθετήστε μέσα σε αυτό το παρακάτω κώδικα:
Dim msg, sapimsg=InputBox("Πληκτρολόγησε το κείμενο εδώ– ","By dwrean.net")Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
 |
| μέσα στο αρχείο κειμένου βάζουμε τον κώδικά μας |
Βήμα 2ο:
Στη συνέχεια σώστε το αρχείο ως αρχείο .vbs, πχ audio.vbs
Σημαντικό: Η κατάληξη να είναι οπωσδήποτε .vbs και στη θέση audio που βάλαμε στο παράδειγμά μας μπορείτε να βάλετε ότι θέλετε.
 |
| Το αποτέλεσμα το αποθηκεύουμε σε κατάληξη .vbs |
Τώρα κάντε διπλό κλικ στο αρχείο που δημιουργήσατε και στο παράθυρο που θα βγει μπορείτε να πληκτρολογήσετε το κείμενό σας και αυτό θα εκφωνηθεί!
Η γλώσσα που μιλάει είναι τα αγγλικά, οπότε καλύτερα να γράφουμε αγγλικά κείμενα, διότι τα ελληνικά θα ακούγονται κάπως περίεργα!
Καλή επιτυχία!
 |
| Πληκτρολογούμε το κείμενο που θέλουμε να εκφωνηθεί |
Συντάκτης του άρθρου: Κυριάκος Οικονομίδης
Αν θέλεις να υποστηρίξεις την προσπάθεια μας και να βλέπεις καθημερινά νέα άρθρα με δωρεάν υλικό, μπορείς να το κάνεις ακολουθώντας μας στο Facebook, Twitter και Instagram
