Πώς θα κάνετε τον υπολογιστή σας να … μιλάει;



Έχετε αναρωτηθεί αν θα μπορούσατε να κάνετε τον υπολογιστή σας να μιλά με αυτή τη μηχανική φωνή που ακούμε συνήθως στις ταινίες;

Λοιπόν είναι πολύ ευκολότερο απ' όσο φαντάζεστε και μάλιστα δεν χρειάζεται να έχετε γνώσεις προγραμματιστή, καθώς όλα γίνονται με το ταπεινό Notepad.

Για να κάνετε το μαγικό, ανοίξτε το Notepad και κάντε copy/paste τον παρακάτω κώδικα:

Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message

Ανοίξτε μετά το File Menu του Notepad, πηγαίνετε στο Save As, επιλέξτε All Files (ή Types) στην επιλογή Save as Type και σώστε τελικά το αρχείο ως «Speak.vbs» ή «*.vbs».

Κλείστε το Notepad, κάντε διπλό κλικ πάνω στο αρχείο που έχετε σώσει και θα σας εμφανιστεί ένα παράθυρο σαν το παρακάτω.


Γράψτε ό,τι θέλετε στη γραμμή και πατήστε OK.

Το κόλπο δουλεύει μάλιστα σε όλες τις εκδόσεις των Windows, από τα XP και τα Vista μέχρι τα Windows 7, 8, 8.1 και 10…

Απίστευτο;


Πηγή: news.gr
_