How to make your computer talk/speak what you typeお使いのコンピュータをどのように話す/何を話すのタイプ
Posted on November 3, 2008 at 5:25 am 11月3日、午前五時25分で、 2008年に投稿
Here’sa cool little feature of Windows that can be abused so that you can make your computer talk or speak whatever you tell it! Windowsのようにコンピュータの話をすることができるものは何か言う話を以下にクールなほとんどの機能が悪用される可能！ This method takes advantage of a built-in API installed on most Windows XP machines called SAPI (Speech Application Programming Interface).このメソッドは、ほとんどのWindows XPマシンにインストールされてSAPIを呼ばれるAPIのビルトインを利用（音声アプリケーションプログラミングインターフェイス） 。
The Microsoft Speech API is what is used for the Narrative accessibility feature built into Windows.は、 Microsoft音声APIをどのような物語のアクセシビリティ機能は、 Windowsに組み込まれて使用されているためです。 You can also write programs that call the API, which would allow you to let your applications speak.また、お客様のアプリケーションプログラムは、スピーチさせることをできるようになるのAPIは、呼び出しを書くことができます。
But making your computer say what you want is pretty easy actually!しかし、コンピュータを実際に欲しいものを言う非常に簡単です！ Here’s how you do it:ここには、どのように行う：
Step 1: Open Notepad and paste the following text into a new document:ステップ1 ：メモ帳を開き、新しいドキュメントには、以下のテキストを貼り付ける：
Dim message, sapi おぼろげなメッセージを、 SAPIを
message=InputBox(”Enter the text you want spoken”,”Speak This”) のメッセージ= InputBox （ "あなた"話さしたいテキストを入力してください"と話すこの" ）
Set sapi=CreateObject(”sapi.spvoice”) 設定のSAPI =のCreateObject （ " sapi.spvoice " ）
sapi.Speak message sapi.Speakのメッセージ
It should basically look something like this:それは基本的にこのような感じです：
Now when you go to save the file, give it any name, but make sure you also type .VBS after the name.するときに、ファイルを保存して、任意の名前を、行くが、必ずまた、入力する。あるVBSの名の後に。 Also, for the Save as type box, choose All files instead of the default Text Documents.また、ボックスのタイプとして、デフォルトのテキスト文書ではなく、すべてのファイルを選択保存します。
Now double-click on the VBS file and you should see a input box where you can type in the text you want spoken!これは、あるVBSファイルをダブルクリックし、入力するテキストボックスを話さ場所を入力できますが表示されるはず！ Go ahead and type something and click OK.前に何かを入力し[ OK ]をクリックします。
That’s it!それだよ！ Your computer will speak to you in the default voice, which for me was some scary seductive male type of voice!お使いのコンピュータには、メインの声のいくつかの恐ろしい魅力的な男性のタイプされたデフォルトの声で話すよ！ What about yours?あなたはどうですか？ Enjoy (This would be fun to do on someone else’s computer as a joke.)をお楽しみください（これが楽しいと他人のコンピュータ上の冗談でください。 ）
» Filed Under »ファイルの下で Fun Stuff面白いこと
 Save this page このページを保存 |  Stir it up on Mixx かき混ぜるそれをミックスに | |
 Add to Reddit しかしに追加 |  Stumble this page このページつまずく |
Related Posts 関連記事
- How to open multiple programs in Windows at onceどのようにWindowsで一度に複数のプログラムを開くことが
- How to quickly paste copied text to Notepadどのように素早くメモ帳にコピーしたテキストを貼り付ける
- Hide and lock text files in Windows Windowsでテキストファイルを表示しないとロック
- Extract text from PDF, DOC, HTML, CHM, and RTF files PDFファイル、ドキュメントやHTML 、 CHMをから抽出テキスト、 RTFファイル
- How to open MDI files in Office 2007どのようにOffice 2007でファイルを開くにはMDI
if I put code like this:私はこのようなコードを追加する場合：
Dim message, sapiおぼろげなメッセージを、 SAPIを
Set sapi=CreateObject(”sapi.spvoice”)設定のSAPI =のCreateObject （ " sapi.spvoice " ）
sapi.Speak “Who are you?”お前は誰だsapi.Speak " ？ "
And then I set it to run at restart on someone’s pc, so when it restart… Will it work???それから私は誰かのPCので、再起動時に再起動時に実行するように設定... 、うまくいくのだろうか？ ？
Thank感謝
not working for me…私のために動作していない...
it says:それ意見：
LINE: 2ライン： 2
CHAR: 18文字： 18
ERROR: INVALID CHARACTERエラー：無効な文字
CODE: 800A0408コード： 800A0408
SOURCE: MICROSOFT VBSCRIPT COMPILATION ERRORソース： Microsoft VBScriptのコンパイルエラー
can you tell me what am I doing wrong????私に何がおかしいのですか？午前伝えることができるのか？
ok, ok.分かった、分かった。 I found it!!!私から見て！ ！ ！
the ” character was wrong. "の文字が間違っていた。 Ok, it works great!オクラホマ、すごい作品！ Thanks…ありがとう...
How can I change the voice????どうやって声を変更することができますか？ ？ ？
Your instructions worked well, the computer speaks, my kids thought it was very cool.あなたの指示にも、コンピュータは、私の子供たちはとてもクールだと思った話している。
i tried to do this but i keep getting the same error codeINE: 2私はこのけど、同じエラーコデイン流れてくるだけだかしてみました： 2
CHAR: 18文字： 18
ERROR: INVALID CHARACTERエラー：無効な文字
CODE: 800A0408コード： 800A0408
I think it’s only for XP computers???私はそれだけXPのコンピュータ用のだと思いますか？ ？ Won’t work on vista for me anyway.いずれにせよ、私にとってはVistaで動作しません。
Thanks, the kids love it, especially since I added a loop:おかげで、子供たち、特に私はループを追加し、愛：
Dim message, sapiおぼろげなメッセージを、 SAPIを
message=InputBox(”Enter the text you want spoken”,”speak this”)メッセージ= InputBox （ "あなた" 、 "話す話さしたいテキストを入力して、この" ）
set sapi=CreateObject(”sapi.spvoice”)設定のSAPI =のCreateObject （ " sapi.spvoice " ）
For i=1 to 10私= 1から10の場合
sapi. SAPIを。 Speak message話すのメッセージ
Next次の
Here is the corrected code:ここには、修正コードです：
Dim message, sapiおぼろげなメッセージを、 SAPIを
message=InputBox(”Enter the text you want spoken”, “Speak This”)メッセージ= InputBox （ "あなた"話さしたいテキストを入力してください"と話すこの" ）
Set sapi=CreateObject(”sapi.spvoice”)設定のSAPI =のCreateObject （ " sapi.spvoice " ）
sapi.Speak message sapi.Speakメッセージ
Randy if you copied and pasted the text from the website you will have to go back in and change the ” marks to your own.ランディ場合はコピーし、あなたに戻って行くし、変更は、 "マークする必要があります自分のWebサイトからのテキストを貼り付けられる。 You will manually have to type them into the code.彼らには、コードを手動で入力する必要があります。 They dont copy and paste right.彼らはドントコピーして貼り付けてね。 That should fix your problem.は、お客様の問題を修正する必要があります。
Everyone, if you receive the error message when attempting to open the file, replace the copied quotation marks (all of them) by pressing the quotation key when each is highlighted.すべての場合は、それぞれの強調表示されますとき相場キーを押してコピーされた二重引用符（すべての人）は、エラーメッセージがファイルを開こうとし、置換されます。 It doesn’t recognize the quotations provided.これは、見積書を認識しません。
You have to change all ” to ”あなたがすべての"に変更する"としている
Or you will get a character error.または、文字のエラーが表示されるでしょう。
ummmmmm its not working for me theres an error same as all the other peoples on line twoその私のために動作していないummmmmm 2つのライン上のすべての他の人々と同じエラーtheres
please explain説明
Thanks it worksそれ作品のおかげで
Hey this is great.ねえ、この素晴らしいです。 I was wondering if there is something I can add to the script that will keep the box from disappearing after I enter the phrase I want spoken.もし私には、後に私が話をしたい語句を入力してください消えボックスを続けるだろうから、スクリプトに追加できるようなものですかと思いまして。