Σε αυτό το post θα σας δείξουμε ένα τέχνασμα που θα κάνει τον υπολογιστή σας να μιλάει ό, τι πληκτρολογείτε. Αυτό θα ήταν διασκεδαστικό να το κάνετε στον υπολογιστή κάποιου άλλου ως αστείο.
1. Ανοίξτε το Σημειωματάριο
2. Επικολλήστε τον παρακάτω κώδικα
3. Αποθηκεύστε το αρχείο, δώστε του ένα όνομα, αλλά βεβαιωθείτε η κατάληξη να είναι .VBS μετά το όνομα (πχ: techne.vbs). Επίσης, στο πλαίσιο Αποθήκευση ως τύπου, επιλέξτε Όλα τα αρχεία αντί το προεπιλεγμένο έγγραφο κειμένου.
4. Τώρα κάντε διπλό κλικ στο αρχείο techne.vbs. Και θα πρέπει να δείτε το παράθυρο όπως φαίνεται παρακάτω.
5. Πληκτρολογήστε ό, τι θέλετε και κάντε κλικ στο ΟΚ.
Αυτό είναι, ο υπολογιστής σας θα μιλήσει.
Αν θέλετε να κάνετε τον υπολογιστή σας επαναλάβει τα λόγια.
Εδώ είναι ο κώδικας:
Θα επαναλάβει την ίδια λέξη για δέκα φορές.
Για να αλλάξετε το δέκα με κάτι άλλο αλλάξτε το (For i=1 to 10) σε ότι επιθυμητέ.
1. Ανοίξτε το Σημειωματάριο
2. Επικολλήστε τον παρακάτω κώδικα
Code:
Dim Message, Speak
Message=InputBox("Enter Text to Talk o","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message3. Αποθηκεύστε το αρχείο, δώστε του ένα όνομα, αλλά βεβαιωθείτε η κατάληξη να είναι .VBS μετά το όνομα (πχ: techne.vbs). Επίσης, στο πλαίσιο Αποθήκευση ως τύπου, επιλέξτε Όλα τα αρχεία αντί το προεπιλεγμένο έγγραφο κειμένου.
4. Τώρα κάντε διπλό κλικ στο αρχείο techne.vbs. Και θα πρέπει να δείτε το παράθυρο όπως φαίνεται παρακάτω.
5. Πληκτρολογήστε ό, τι θέλετε και κάντε κλικ στο ΟΚ.
Αυτό είναι, ο υπολογιστής σας θα μιλήσει.
Αν θέλετε να κάνετε τον υπολογιστή σας επαναλάβει τα λόγια.
Εδώ είναι ο κώδικας:
Code:
Dim message, sapi
message=InputBox("Enter the text you want spoken","speak this")
set sapi=CreateObject("sapi.spvoice")
For i=1 to 10
sapi. Speak message
NextΘα επαναλάβει την ίδια λέξη για δέκα φορές.
Για να αλλάξετε το δέκα με κάτι άλλο αλλάξτε το (For i=1 to 10) σε ότι επιθυμητέ.
Last edited:
