Κάντε τον υπολογιστής σας να μιλήσει!

Ο υπολογιστής έχει την δυνατότητα να μιλήσει, αρκεί να του δώσετε την εντολή να το κάνει.
Παρακάτω θα δούμε δυο τρόπους μέσω VBScript:
Ανοίξτε το Σημειωματάριο.

1ος)  Αντιγράψτε τον ακόλουθο κώδικα:
Dim text, Speak
text="Hello"
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak text

(όπου βλέπετε υπογραμμισμένα μπορείτε να γράψετε το δικό σας κείμενο.)
Όταν τελειώσετε με τον κώδικα πατήστε Αρχείο/ Αποθήκευση ως, επιλέξτε όλα τα αρχεία,
και δώστε για όνομα αρχείου, ότι όνομα θέλετε αρκεί η κατάληξη να είναι .vbs π.χ.: (hello.vbs)

Κάνετε διπλό κλικ στο αρχείο και ακούστε τον υπολογιστή να διαβάζει αυτό που γράψατε!
(Σημ: Για να αλλάξετε το κείμενο αργότερα ανοίξτε το αρχείο πάλι με Σημειωματάριο)

2ος) Εναλλακτικά κάντε επικόλληση το παρακάτω κώδικα ώστε κάθε φορά που ανοίγετε το αρχείο να σας ανοίγει ένα παραθυράκι όπου θα δίνετε το κείμενο που θέλετε να το διαβάσει:
Dim text, Speak
text=InputBox("Δώσε κείμενο","Τι θέλεις να πει ο υπολογιστής?")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak text

Σημ: Ο υπολογιστής μπορεί να διαβάσει μόνο κείμενο στα αγγλικά.
(Η φωνή του υπολογιστή σας μπορεί να είναι είτε ανδρική είτε γυναικεία ανάλογα με την έκδοση του λειτουργικού σας συστήματος.)