2018-01-05 22:55:33
Έχετε αναρωτηθεί αν θα μπορούσατε να κάνετε τον υπολογιστή σας να μιλά με αυτή τη μηχανική φωνή που ακούμε συνήθως στις ταινίες;
Λοιπόν είναι πολύ ευκολότερο απ' όσο φαντάζεστε και μάλιστα δεν χρειάζεται να έχετε γνώσεις προγραμματιστή, καθώς όλα γίνονται με το ταπεινό 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 Απίστευτο;
Πηγή: news.gr
_
Λοιπόν είναι πολύ ευκολότερο απ' όσο φαντάζεστε και μάλιστα δεν χρειάζεται να έχετε γνώσεις προγραμματιστή, καθώς όλα γίνονται με το ταπεινό 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 Απίστευτο;
Πηγή: news.gr
_
ΦΩΤΟΓΡΑΦΙΕΣ
ΜΟΙΡΑΣΤΕΙΤΕ
ΔΕΙΤΕ ΑΚΟΜΑ
ΕΠΟΜΕΝΟ ΑΡΘΡΟ
Η μαρτυρία του Βαπτιστή Ιωάννη (Ιω. 1:18-28)
ΣΧΟΛΙΑΣΤΕ
