So machen Sie Ihren Computer zum Sprechen / Sprechen, was Sie eingeben
Es gibt eine coole Funktion in Windows, mit der Sie Ihren Computer zum Sprechen bringen können, egal was Sie sagen! Diese Methode nutzt eine integrierte API, die unter Windows XP, Vista, 7, 8 und 10 installiert wird und als SAPI (Speech Application Programming Interface) bezeichnet wird..
Die Microsoft-Sprach-API wird für die in Windows integrierte Text-zu-Sprache-Eingabefunktion verwendet. Sie können auch Programme schreiben, die die API aufrufen, sodass Sie Ihre Anwendungen sprechen lassen können. Dies ist jedoch für Entwickler gedacht.
Nur wenn Sie Ihren Computer dazu bringen, das zu sagen, was Sie wollen, ist es ziemlich einfach! In diesem Artikel zeige ich Ihnen, wie Sie ein VBS-Skript erstellen, das eine Texteingabe von einem Benutzer übernimmt und diese dann spricht. Ich erwähne auch, wie Sie den Text, den Sie sprechen möchten, hart codieren und dann planen, dass das Skript bei bestimmten Ereignissen ausgeführt wird, z. B. beim Starten von Windows oder beim Abmelden.
Eingabetext, Nachricht sprechen
Beginnen wir mit einem einfachen Skript, in dem ein Dialogfeld angezeigt wird, in das Sie das von Windows gewünschte Wort eingeben können. Öffnen Sie zunächst den Editor.
Schritt 1: Fügen Sie den folgenden Text in ein neues Dokument ein:
Dim Nachricht, Sapi
message = InputBox ("Geben Sie den gewünschten Text ein", "Speak This")
Setze sapi = CreateObject ("sapi.spvoice")
sapi.Speak Nachricht
Beachten Sie, dass die Anführungszeichen Probleme verursachen, wenn Sie Text aus Ihrem Webbrowser kopieren und in den Editor einfügen. Bevor Sie die Datei speichern, müssen Sie jedes Angebot durchgehen und löschen (“) und das Angebot erneut eingeben. Im folgenden Beispiel gibt es sechs Anführungszeichen. Es sollte ungefähr so aussehen wie das Bild unten.
Wenn Sie jetzt zum Speichern der Datei gehen, geben Sie einen beliebigen Namen ein .VBS nach dem Namen Als nächstes für die Speichern unter Feld wählen Alle Dateien anstelle der Standardtextdokumente.
Doppelklicken Sie nun auf die VBS-Datei und Sie sollten ein Eingabefeld sehen, in das Sie den gewünschten Text eingeben können! Geben Sie etwas ein und klicken Sie auf OK.
Wenn Sie alles richtig gemacht haben, sollten Sie entweder eine männliche oder eine weibliche Stimme hören, die Ihre Strafe ausspricht. Wenn Sie eine Fehlermeldung erhalten, stellen Sie sicher, dass Sie den Text erneut kopieren und einfügen und die Anführungszeichen ersetzen.
Konfigurieren Sie die SAPI-Voice-Einstellungen
Das macht Spaß, aber wir können unseren kleinen sprechenden Computer auch mit verschiedenen Einstellungen konfigurieren. Wir können die Lautstärke ändern, wie schnell oder langsam die Stimme spricht und das Geschlecht zwischen Mann und Frau ändern. Hier ist ein Beispielcode, in dem ich ein paar zusätzliche Zeilen hinzugefügt habe.
Dim Nachricht, Sapi
message = InputBox ("Geben Sie den gewünschten Text ein", "Speak This")
Setze sapi = CreateObject ("sapi.spvoice")
Setze sapi.Voice = sapi.GetVoices.Item (1)
sapi.Rate = 0
sapi.volume = 100
sapi.Speak Nachricht
Die voreingestellte Rate ist 0 und der Bereich ist -10 bis 10. -10 bewirkt, dass die Stimme langsam und 10 schnell spricht. Die Lautstärke ist standardmäßig auf 100 eingestellt und der Bereich liegt zwischen 0 und 100. Die Zeile beginnt mit Stellen Sie sapi.Voice ein Wenn Sie auf Ihrem System installiert sind, können Sie zu einer anderen Stimme wechseln.
Beachten Sie, dass die Anzahl der Stimmen, die Sie auswählen können, vom Betriebssystem abhängt. In Windows 7 gibt es nur eine Stimme, Microsoft Anna.
In Windows 10 gibt es zwei Stimmen: Microsoft David und Microsoft Zira (siehe unten).
Wenn auf Ihrem System nur eine Voice installiert ist, müssen Sie diese ändern sapi.GetVoices.Item (1) zu sapi.GetVoices.Item (0), Andernfalls erhalten Sie eine Fehlermeldung, wenn Sie versuchen, das Skript auszuführen. Sie können auch ein anderes Notepad-Dokument erstellen und den unten stehenden Code einfügen, um anzugeben, welche Stimmen installiert sind. Speichern Sie es als .VBS-Datei wie oben gezeigt und führen Sie es aus.
Set VObj = CreateObject ("SAPI.SpVoice")
Für jede Stimme in VObj.getvoices
I = I + 1
msgbox "" & (I - 1) & "-" & Voice.GetDescription
Nächster
Bisher haben wir dieses Popup-Dialogfeld zur Eingabe von Text verwendet. Sie können Ihre Nachricht aber auch einfach in die Skriptdatei eingeben. Dies ist nützlich, wenn Sie das Skript so planen möchten, dass es automatisch ausgeführt wird. Natürlich kann dies dazu verwendet werden, Ihren Freunden und Ihrer Familie einen Streich zu spielen, und es funktioniert wirklich gut.
Stellen Sie sich vor, jemand würde seinen Computer einschalten und hören, wie der Computer ihnen sagt: „Hallo John, ich bin sehr müde, bitte störe mich heute nicht!“, Wenn er hochfährt! Ich kann Ihnen aus Erfahrung versprechen, es ist hysterisch und Sie sollten es auf jeden Fall versuchen.
Um die Nachricht fest zu codieren, ändern Sie einfach die letzte Zeile in etwa wie folgt:
sapi.Speak "Hallo John, ich bin heute sehr müde!"
Skriptdatei planen
Nachdem Sie Ihre Nachricht für Ihr Ziel fest codiert haben, müssen Sie sie einfach ausführen, wenn Sie möchten. Wenn Sie technisch versiert sind, können Sie ein Programm wie AutoIt verwenden, mit dem Sie extreme Aufgaben ausführen können, beispielsweise die Skriptdatei ausführen, wenn ein bestimmtes Programm geöffnet oder ein Fenster maximiert oder minimiert wird.
Ich habe keine Zeit, um in diesem Beitrag auf alles einzugehen, aber zum Glück hat Microsoft eine integrierte Funktion namens Taskplaner, mit der Sie ziemlich komplizierte Dinge mit Skripts problemlos erledigen können.
Mein vorheriger Beitrag befasst sich ausführlich mit dem Planen einer Skriptdatei für die Ausführung, wenn bestimmte Ereignisse in Windows auftreten. Wenn Sie Schwierigkeiten haben, Ihr Skript zum Laufen zu bringen, können Sie einen Kommentar posten und ich werde versuchen zu helfen. Genießen!
