Es gibt eine coole Funktion in Windows, mit der Sie Ihren Computer sprechen oder sprechen lassen können, was immer Sie ihm sagen! Diese Methode nutzt eine integrierte API, die unter Windows XP, Vista, 7, 8 und 10 installiert ist und als SAPI (Speech Application Programming Interface) bezeichnet wird.
Die Microsoft Speech API wird für den Text verwendet. To-Speech-Eingabefunktion in Windows integriert. Sie können auch Programme schreiben, die die API aufrufen, so dass Sie Ihre Anwendungen sprechen lassen können, aber das ist für Entwickler.
Einfach Ihren Computer sagen zu lassen, was Sie wollen, ist eigentlich ziemlich einfach! In diesem Artikel zeige ich Ihnen, wie Sie ein VBS-Skript erstellen, das eine Texteingabe von einem Benutzer aufnimmt und dann ausspricht. Ich werde auch erwähnen, wie Sie den Text, den Sie sprechen möchten, hart programmieren und dann planen, dass das Skript bei bestimmten Ereignissen wie dem Starten von Windows oder Abmelden ausgeführt wird.
Text eingeben, Nachricht sprechen
Beginnen wir mit einem einfachen Skript, das ein Dialogfeld öffnet, in dem Sie eingeben können, was Windows sprechen soll. Öffnen Sie zunächst den Editor.
Schritt 1:Fügen Sie den folgenden Text in ein neues Dokument ein:
Dim message, sapi
message = InputBox ("Gebe den gewünschten Text ein", "Sprey This")
Setze sapi = CreateObject ("sapi.spvoice")
sapi.Speak-Nachricht
Beachten Sie, dass beim Kopieren von Text aus Ihrem Webbrowser in Notepad Probleme auftreten . Bevor Sie die Datei speichern, müssen Sie jedes Zitat (") durchgehen und löschen und das Zitat erneut eingeben. Im folgenden Beispiel gibt es sechs Anführungszeichen. Es sollte ungefähr wie das folgende Bild aussehen.
Wenn Sie nun die Datei speichern, geben Sie ihr einen Namen, aber vergewissern Sie sich auch Geben Sie .VBSnach dem Namen ein. Wählen Sie als Nächstes für das Feld Als Dateitypanstelle der standardmäßigen Textdokumente Alle Dateien.
Doppelklicken Sie jetzt auf die VBS-Datei und Sie sollten ein Eingabefeld sehen, wo 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 Ihren Satz ausspricht. Wenn Sie irgendeine Art von Fehlermeldung erhalten, kopieren und fügen Sie den Text erneut ein und ersetzen Sie diese Anführungszeichen.
Konfigurieren der SAPI Voice-Einstellungen
Das macht Spaß, aber wir können auch konfigurieren unser kleiner sprechender Computer mit verschiedenen Einstellungen. Wir können die Lautstärke ändern, wie schnell oder langsam die Stimme spricht und das Geschlecht zwischen männlich und weiblich ändern. Hier ist ein Beispiel Code, wo ich ein paar zusätzliche Zeilen hinzugefügt habe.
Dim Nachricht, sapiNachricht = InputBox ("Geben Sie den Text, den Sie will spoken "," Speak This ")
Setze sapi = CreateObject (" sapi.spvoice ")
Setze sapi.Voice = sapi.GetVoices.Item (1)
sapi.Rate = 0
sapi.volume = 100
sapi.Speak-Nachricht
Die Standard-Rate ist 0 und der Bereich ist -10 bis 10. -10 wird die Stimme sprechen super langsam und 10 wird super schnell sprechen. Das Volume ist standardmäßig auf 100 eingestellt und der Bereich ist 0 bis 100. Die Zeile, die mit Set sapi.Voicebeginnt, ermöglicht Ihnen den Wechsel zu einer anderen Voice, falls diese auf Ihrem System installiert ist.
Beachten Sie, dass die Anzahl der Stimmen, aus denen Sie wä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 als siehe unten.
Wenn nur eine Stimme auf Ihrem System installiert ist Du musst das ändern, sagt sapi.GetVoices.Item (1)zu sapi.GetVoices.Item (0), sonst bekommst du eine Fehlermeldung, wenn Sie versuchen, das Skript auszuführen. Sie können auch ein anderes Notepad-Dokument erstellen und den folgenden Code einfügen, der Ihnen sagt, welche Stimmen installiert sind. Speichern Sie es als .VBS-Datei wie oben gezeigt und führen Sie es aus.
Setzen Sie VObj = CreateObject ("SAPI.SpVoice")
Für jede Voice In VObj.getvoices
I = I + 1
msgbox "" & amp; (I - 1) & amp; "-" & amp; Voice.GetDescription
Weiter
Bis jetzt haben wir diesen Popup-Dialog benutzt, um Text einzugeben, aber Sie könnten auch einfach tippen Ihre Nachricht in die Skriptdatei. Dies ist nützlich, wenn Sie das Skript dann so planen möchten, dass es automatisch ausgeführt wird. Offensichtlich kann dies verwendet werden, um Ihre Freunde und Familie zu streicheln und es funktioniert wirklich gut.
Stell dir vor, jemand schaltet ihren Computer ein und hört den Computer sagen ihnen "Hallo John, ich bin sehr müde, bitte nicht störe mich heute nicht! "wenn es hochgeht! 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 so:
sapi.Speak "Hallo John, ich bin heute sehr müde!"
Skriptdatei planen
Jetzt haben Sie Ihre Nachricht festgeschrieben Ihr beabsichtigtes Ziel, Sie müssen es einfach ausführen, wann Sie wollen. Wenn Sie technisch versiert sind, könnten Sie ein Programm wie AutoIt verwenden, mit dem Sie extreme Dinge wie das Ausführen Ihrer Skriptdatei ausführen können, wenn ein bestimmtes Programm geöffnet oder ein Fenster maximiert oder minimiert wird.
Ich habe keine Zeit, um auf all das in diesem Beitrag einzugehen, aber glücklicherweise hat Microsoft eine eingebaute Funktion namens Task Scheduler, mit der man ziemlich komplizierte Sachen mit Skripten leicht machen kann.
>Mein vorheriger Beitrag geht ausführlich auf wie man eine Skriptdatei zum Ausführen plant ein, wenn bestimmte Ereignisse in Windows auftreten. Wenn Sie Probleme haben, Ihr Skript zum Laufen zu bringen, zögern Sie nicht, einen Kommentar zu schreiben, und ich werde versuchen, zu helfen. Viel Spaß!