Υπάρχει μια καταπληκτική δυνατότητα στα Windows που σας επιτρέπει να κάνετε τον υπολογιστή σας να μιλάει ή να μιλάει ό,τι του πείτε! Αυτή η μέθοδος εκμεταλλεύεται ένα ενσωματωμένο API που^(API) είναι εγκατεστημένο στα Windows XP , Vista , 7, 8 και 10 που ονομάζεται SAPI ( Διεπαφή Προγραμματισμού Ομιλίας^{(Speech Application Programming Interface)} ).

Το Microsoft Speech API είναι αυτό που χρησιμοποιείται για τη δυνατότητα προσβασιμότητας κειμένου σε ομιλία που είναι ενσωματωμένη στα Windows . Μπορείτε επίσης να γράψετε προγράμματα που καλούν το API , το οποίο θα σας επιτρέψει να αφήσετε τις εφαρμογές σας να μιλήσουν, αλλά αυτό είναι για προγραμματιστές.

Το να κάνετε τον υπολογιστή σας να λέει αυτό που θέλετε είναι πολύ εύκολο στην πραγματικότητα! Σε αυτό το άρθρο, θα σας δείξω πώς να δημιουργήσετε μια δέσμη ενεργειών VBS που θα λαμβάνει μια εισαγωγή κειμένου από έναν χρήστη και στη συνέχεια θα την εκφωνεί. Θα αναφέρω επίσης πώς να κωδικοποιήσετε το κείμενο που θέλετε να εκφωνηθεί και στη συνέχεια να προγραμματίσω την εκτέλεση αυτού του σεναρίου σε συγκεκριμένα συμβάντα, όπως η εκκίνηση των Windows^(Windows) ή η αποσύνδεση.

Εισαγωγή κειμένου, Εκφώνηση μηνύματος

Ας ξεκινήσουμε με ένα απλό σενάριο που θα εμφανίσει ένα παράθυρο διαλόγου όπου μπορείτε να πληκτρολογήσετε αυτό που θέλετε να εκφωνούν τα Windows. Πρώτα^(First) , προχωρήστε και ανοίξτε το Σημειωματάριο^(Notepad) .

Βήμα 1:^{(Step 1:)}  Επικολλήστε το ακόλουθο κείμενο σε ένα νέο έγγραφο:

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message

Λάβετε υπόψη ότι όταν αντιγράφετε κείμενο από το πρόγραμμα περιήγησής σας και το επικολλάτε στο Σημειωματάριο^(Notepad) , τα εισαγωγικά θα προκαλέσουν προβλήματα. Πριν αποθηκεύσετε το αρχείο, πρέπει να διαβάσετε και να διαγράψετε κάθε απόσπασμα (“) και να πληκτρολογήσετε ξανά το απόσπασμα. Στο παρακάτω παράδειγμα, υπάρχουν έξι εισαγωγικά. Θα πρέπει να μοιάζει με την παρακάτω εικόνα.

Τώρα όταν πηγαίνετε να αποθηκεύσετε το αρχείο, δώστε του οποιοδήποτε όνομα, αλλά φροντίστε να πληκτρολογήσετε και .VBS μετά το όνομα. Στη συνέχεια, για το πλαίσιο Αποθήκευση ως τύπου^{( Save as type)} , επιλέξτε Όλα τα αρχεία^{( All files)} αντί για τα προεπιλεγμένα Έγγραφα κειμένου^{(Text Documents)} .

Τώρα κάντε διπλό κλικ στο αρχείο VBS και θα δείτε ένα πλαίσιο εισαγωγής όπου μπορείτε να πληκτρολογήσετε το κείμενο που θέλετε να εκφωνηθεί! Πληκτρολογήστε κάτι και κάντε κλικ στο OK.

Εάν τα κάνατε όλα σωστά, θα πρέπει να ακούσετε είτε μια ανδρική είτε μια γυναικεία φωνή να εκφράζει τη φράση σας. Εάν λάβετε οποιοδήποτε είδος μηνύματος σφάλματος, φροντίστε να αντιγράψετε και να επικολλήσετε ξανά το κείμενο και να αντικαταστήσετε αυτά τα εισαγωγικά.

Διαμόρφωση ρυθμίσεων φωνής SAPI

Αυτό είναι διασκεδαστικό, αλλά μπορούμε επίσης να διαμορφώσουμε τον μικρό μας υπολογιστή που μιλάει με διαφορετικές ρυθμίσεις. Μπορούμε να αλλάξουμε την ένταση, πόσο γρήγορα ή αργά μιλάει η φωνή και να αλλάξουμε το φύλο μεταξύ αρσενικού και θηλυκού. Εδώ είναι ένα παράδειγμα κώδικα όπου πρόσθεσα μερικές επιπλέον γραμμές.

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
Set sapi.Voice = sapi.GetVoices.Item(1)
sapi.Rate = 0
sapi.volume = 100
sapi.Speak message

Ο προεπιλεγμένος ρυθμός είναι 0 και το εύρος είναι -10 έως 10. -10 θα έχει τη φωνή να μιλάει εξαιρετικά αργά και το 10 θα μιλάει εξαιρετικά γρήγορα. Η ένταση ήχου είναι προεπιλεγμένη στο 100 και το εύρος είναι από 0 έως 100. Η γραμμή που ξεκινά με το Set sapi.Voice^{(Set sapi.Voice)} θα σας επιτρέψει να αλλάξετε σε άλλη φωνή, εάν είναι εγκατεστημένη στο σύστημά σας.

Σημειώστε ότι ο αριθμός των φωνών από τις οποίες μπορείτε να επιλέξετε εξαρτάται από το λειτουργικό σύστημα. Στα Windows 7 , υπάρχει μόνο μία φωνή, η Microsoft Anna .

Στα Windows 10 , υπάρχουν δύο φωνές: Microsoft David και Microsoft Zira όπως φαίνεται παρακάτω.

Εάν υπάρχει μόνο μία φωνή εγκατεστημένη στο σύστημά σας, πρέπει να αλλάξετε που λέει sapi.GetVoices.Item(1) σε sapi.GetVoices.Item(0) , διαφορετικά θα λάβετε ένα μήνυμα σφάλματος όταν προσπαθείτε να εκτελέσετε το σενάριο. Μπορείτε επίσης να δημιουργήσετε ένα άλλο έγγραφο Σημειωματάριο^(Notepad) και να επικολλήσετε τον παρακάτω κώδικα, ο οποίος θα σας πει ποιες φωνές είναι εγκατεστημένες. Αποθηκεύστε το ως αρχείο .VBS όπως φαίνεται παραπάνω και εκτελέστε το.

Set VObj = CreateObject(“SAPI.SpVoice”)
For Each Voice In VObj.getvoices
I = I + 1
msgbox “” & (I – 1) & ” – ” & Voice.GetDescription
Next

Μέχρι τώρα, χρησιμοποιούσαμε αυτό το αναδυόμενο παράθυρο διαλόγου για την εισαγωγή κειμένου, αλλά θα μπορούσατε επίσης απλώς να πληκτρολογήσετε το μήνυμά σας στο αρχείο του σεναρίου. Αυτό θα ήταν χρήσιμο εάν θέλετε να προγραμματίσετε στη συνέχεια την αυτόματη εκτέλεση του σεναρίου. Προφανώς, αυτό μπορεί να χρησιμοποιηθεί για να κοροϊδέψετε τους φίλους και την οικογένειά σας και λειτουργεί πολύ καλά.

Φανταστείτε κάποιον να ανοίγει τον υπολογιστή του και να ακούει τον υπολογιστή να του λέει « Γεια σου Γιάννη^{(Hello John)} , νυστάζω πολύ, μην με ενοχλείς σήμερα!» όταν ξεκινάει! Μπορώ να σου υποσχεθώ εκ πείρας, είναι υστερικό και πρέπει οπωσδήποτε να το δοκιμάσεις.

Για να κωδικοποιήσετε το μήνυμα, απλώς αλλάξτε την τελευταία γραμμή σε κάτι σαν αυτό:

sapi.Speak “Hello John, I am very tired today!”

Χρονοδιάγραμμα αρχείου σεναρίου

Τώρα που έχετε κωδικοποιήσει το μήνυμά σας για τον στόχο που θέλετε, απλά πρέπει να το εκτελέσετε όποτε θέλετε. Εάν είστε γνώστες της τεχνολογίας, θα μπορούσατε να χρησιμοποιήσετε ένα πρόγραμμα όπως το AutoIt , το οποίο θα σας επιτρέψει να κάνετε ακραία πράγματα όπως να εκτελέσετε το αρχείο σεναρίου σας όταν ανοίγει ένα συγκεκριμένο πρόγραμμα ή όταν μεγιστοποιείται ή ελαχιστοποιείται ένα παράθυρο.

Δεν έχω χρόνο να ασχοληθώ με όλα αυτά σε αυτήν την ανάρτηση, αλλά ευτυχώς η Microsoft έχει μια ενσωματωμένη δυνατότητα που ονομάζεται Task Scheduler που σας επιτρέπει να κάνετε μερικά πολύ περίπλοκα πράγματα με σενάρια εύκολα.

Η προηγούμενη ανάρτησή μου περιγράφει σε βάθος τον τρόπο προγραμματισμού ενός αρχείου σεναρίου για εκτέλεση^{(how to schedule a script file to run)} όταν συμβαίνουν ορισμένα συμβάντα στα Windows . Αν δυσκολεύεστε να δουλέψετε το σενάριό σας, μην διστάσετε να δημοσιεύσετε ένα σχόλιο και θα προσπαθήσω να σας βοηθήσω. Απολαμβάνω!

How to Make Your Computer Talk/Speak What You Type

There is cool feature in Windowѕ that allows you to make your cоmputer talk or spеak whatever you tell it! This methоd takes advantage оf a built-in API installed on Windows XP, Vіsta, 7, 8 and 10 called SAPI (Speech Application Programming Interface).

The Microsoft Speech API is what is used for the text-to-speech accessibility feature built into Windows. You can also write programs that call the API, which would allow you to let your applications speak, but that’s for developers.

Just making your computer say what you want is pretty easy actually! In this article, I’ll show you how to create a VBS script that will take a text input from a user and then speak it. I’ll also mention how to hard code the text you want spoken and then schedule that script to run on specific events like starting Windows or logging off.

Input Text, Speak Message

Let’s start off with a simple script that will popup a dialog box where you can type in what you want Windows to speak. First, go ahead and open Notepad.

Step 1: Paste the following text into a new document:

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message

Note that when you copy text from your web browser and paste it into Notepad, the quotes will cause problems. Before you save the file, you need to go through and delete each quote (“) and retype the quote. In the example below, there are six quotes. It should look something like the image below.

Now when you go to save the file, give it any name, but make sure you also type .VBS after the name. Next, for the Save as type box, choose All files instead of the default Text Documents.

Now double-click on the VBS file and you should see an input box where you can type in the text you want spoken! Type something and click OK.

If you did everything right, you should hear either a male or female voice speak out your sentence. If you get any kind of error message, make sure to copy and paste the text again and replace those quotes.

Configure SAPI Voice Settings

This is fun, but we can also configure our little talking computer with different settings. We can change the volume, how fast or slow the voice talks and change the gender between male and female. Here is some example code where I added a couple of extra lines.

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
Set sapi.Voice = sapi.GetVoices.Item(1)
sapi.Rate = 0
sapi.volume = 100
sapi.Speak message

The default rate is 0 and the range is -10 to 10. -10 will have the voice speak super slowly and 10 will speak super fast. The volume is defaulted at 100 and the range is 0 to 100. The line that starts with Set sapi.Voice will allow you to change to another voice, if installed on your system.

Note that the number of voices you can choose from depends on the operating system. In Windows 7, there is only one voice, Microsoft Anna.

In Windows 10, there are two voices: Microsoft David and Microsoft Zira as shown below.

If there is only one voice installed on your system, you have to change that says sapi.GetVoices.Item(1) to sapi.GetVoices.Item(0), otherwise you will get an error message when you try to run the script. You can also create another Notepad document and paste the code below in, which will tell you what voices are installed. Save it as a .VBS file like shown above and run it.

Set VObj = CreateObject(“SAPI.SpVoice”)
For Each Voice In VObj.getvoices
I = I + 1
msgbox “” & (I – 1) & ” – ” & Voice.GetDescription
Next

Up until now, we have been using this popup dialog to enter text, but you could also simply type your message into the script file. This would be useful if you wanted to then schedule the script to run automatically. Obviously, this can be used to prank your friends and family and it works really well.

Just imagine someone turning on their computer and hearing the computer tell them “Hello John, I’m very sleepy, please don’t bother me today!” when it boots up! I can promise you from experience, it’s hysterical and you should definitely try it.

In order to hardcode the message, simply change the last line to something like this:

sapi.Speak “Hello John, I am very tired today!”

Schedule Script File

Now that you have hardcoded your message for your intended target, you simply have to run it when you want. If you are tech-savvy, you could use a program like AutoIt, which will allow you to do extreme stuff like run your script file when a certain program is opened or when a windows is maximized or minimized.

I don’t have time to get into all that in this post, but luckily Microsoft has a built-in feature called the Task Scheduler that lets you do some pretty complicated stuff with scripts easily.

My previous post goes in depth on how to schedule a script file to run when certain events occur in Windows. If you have any trouble getting your script to work, feel free to post a comment and I’ll try to help. Enjoy!

Related posts

• Πώς να μετατρέψετε τον παλιό σας υπολογιστή σε μηχανή Arcade

• Τι σημαίνει Yeet και πώς να το χρησιμοποιήσετε σωστά

• Πώς να μεταβείτε ζωντανά στο TikTok

• Πώς να κάνετε φίλους στο Διαδίκτυο

• Τι είναι ο στόλος Twitter και γιατί να τον χρησιμοποιείτε;

• Οι 10 καλύτερες κλασικές ταινίες δημόσιου τομέα που μπορείτε να παρακολουθήσετε δωρεάν

• Πώς να παρακολουθήσετε το Netflix με φίλους

• 4 ιστότοποι για να παίξετε χαρτιά ενάντια στην ανθρωπότητα στο διαδίκτυο

• Πώς να προκαλέσετε διαυγή όνειρα χρησιμοποιώντας εφαρμογές για κινητά

• Οι 8 καλύτερες ξεχασμένες τηλεοπτικές εκπομπές στο YouTube

• Πώς να γίνετε Influencer στο Instagram

• Τι είναι τα ηλεκτρονικά κορίτσια και τα ηλεκτρονικά αγόρια; Κατανόηση της υποκουλτούρας του Διαδικτύου

• Πώς να φτιάξετε το δικό σας πακέτο αυτοκόλλητων στο Telegram

• Τι είναι το Kickstarter Funding και πώς να χρηματοδοτήσετε το έργο σας;

• Εδώ είναι τα 50 καλύτερα Subreddits στο Reddit Αναλυμένα κατά ενδιαφέρον

• Ανασκόπηση εφαρμογής γνωριμιών Hinge: Γιατί είναι καλύτερο

• Λίστα με 10 ταινίες τρόμου Hulu που πρέπει να παρακολουθήσετε αυτή τη στιγμή

• Τι είναι το Reddit Flair (και πώς να το χρησιμοποιήσετε)

• Τι σημαίνει SMH (και πώς να το χρησιμοποιήσετε)

• Τι είναι το Anime Filler σε ιστότοπους ροής και πώς να το αποφύγετε