Ένα κόλπο που κάνει τον υπολογιστή να μιλάει!

Τα Windows έχουν ένα εγκαταστημένο πρόγραμμα σχεδόν από το ξεκίνημά τους. Το Notepad. Κι ενώ οι περισσότεροι δεν του δίνουν σημασία και δεν το χρησιμοποιούν, το Notepad μπορεί να κάνει πάρα πολλά πράγματα.

Μπορείς να κάνει διάφορα τρικ, να δημιουργήσεις αστείους «ιούς» για να κάνεις πλάκα σε φίλους και γνωστούς αλά και να κάνεις τον υπολογιστή σου να μιλάει.

Κι όμως, υπάρχει ένα κόλπο που μπορεί να κάνει τον υπολογιστή σου να λέει όλα όσα πληκτρολογείς. Άνοιξε το Notepad και κάνε copy-paste τον παρακάτω κώδικα:

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

Ύστερα πρέπει να κάνεις save το αρχείο. Άνοιξε το «Save As» ή «Αποθήκευση ως», επέλεξε το «All Types» (Όλα τα Αρχεία) και σώσε το αρχείο με όποιο όνομα θέλεις αρκεί να έχει κατάληξη «.vbs».

Αν κάνεις διπλό κλικ στο αρχείο θα ανοίξει ένα μικρό παράθυρο. Εκεί πληκτρολόγησε ότι κείμενο θέλεις, μόνο στα αγγλικά βέβαια και πάτα «ΟΚ». Ο υπολογιστής θα πει ακριβώς αυτό που γράψαμε. Το τρικ αυτό δουλεύει σε όλες τις εκδόσεις Windows από το Windows XP και μετά.

Προσοχή στον κώδικα, να περαστεί με τα κενά που έχει μπροστά από τις 3 τελευταίες γραμμές, αλλιώς δεν δουλεύει. Καλύτερα να τον πάρετε κατευθείαν από το αυτό το link.