Έτσι θα κάνετε το PC σας να μιλά!


Έχετε αναρωτηθεί ποτέ αν μπορείτε να κάνετε τον ηλεκτρονικό σας υπολογιστή να μιλά με αυτή τη μηχανική φωνή που ακούμε συνήθως στις ταινίες;
Πόσο πλάκα θα είχε αν ήταν κάτι τέτοιο δυνατό ε; Ε, είναι και παραείναι!
Υπάρχει τρόπος να κάνουμε τον υπολογιστή μας να επαναλαμβάνει μηχανικά ό,τι τον τροφοδοτούμε και όλα γίνονται με ένα πρόγραμμα που μοιάζει στους περισσότερους από μας ταπεινό και παραπεταμένο: ναι, το 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…
Share on Google Plus
    Blogger ΣΧΟΛΙΑ
    Facebook ΣΧΟΛΙΑ

0 σχόλια:

Δημοσίευση σχολίου