Δώστε φωνή στο pc, με ένα απίστευτο κόλπο

PLUS

Δώστε φωνή στο pc, με ένα απίστευτο κόλπο

ΕΠΙΜΕΛΕΙΑ: AlphaFreePress

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

14.01.2018 | 12:22

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

Υπάρχει τρόπος να κάνουμε τον υπολογιστή μας να επαναλαμβάνει μηχανικά ό,τι τον τροφοδοτούμε και όλα γίνονται με το 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.

Ετικέτες
Exit mobile version