Στο news-on.net παρεχουμε Ειδήσεις και σεβόμαστε την ιδιωτικότητά σας

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

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

Αυτός ο ιστότοπος χρησιμοποιεί cookies για να βελτιώσει την εμπειρία σας.Δες περισσότερα εδώ.
Επιστήμες

Εσύ ήξερες ότι μπορείς να κάνεις τον υπολογιστή σου να... μιλάει - Δες τον τρόπο!

Τα 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 τελευταίες γραμμές, αλλιώς δεν δουλεύει. Καλύτερα να τον πάρετε κατευθείαν
 

Tags
Back to top button