Έχετε αναρωτηθεί ποτέ αν μπορείτε να κάνετε τον ηλεκτρονικό σας υπολογιστή να μιλά με αυτή τη μηχανική φωνή που ακούμε συνήθως στις ταινίες; Υπάρχει τρόπος να κάνουμε τον υπολογιστή μας να επαναλαμβάνει μηχανικά ό,τι τον τροφοδοτούμε και όλα γίνονται με το Notepad. Ανοίξτε το Notepad και κάντε copy/paste τον παρακάτω κώδικα. Dim Message, Speak Message=InputBox(“Enter […]
Έχετε αναρωτηθεί ποτέ αν μπορείτε να κάνετε τον ηλεκτρονικό σας υπολογιστή να μιλά με αυτή τη μηχανική φωνή που ακούμε συνήθως στις ταινίες;
Υπάρχει τρόπος να κάνουμε τον υπολογιστή μας να επαναλαμβάνει μηχανικά ό,τι τον τροφοδοτούμε και όλα γίνονται με το 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.
