มีฟีเจอร์เด็ดๆ ในWindowsที่ให้คุณทำให้คอมพิวเตอร์พูดหรือพูด^{(computer talk or speak)}อะไรก็ได้! วิธีนี้ใช้ประโยชน์จากAPI ในตัว ที่ติดตั้งบนWindows XP , Vista , 7, 8 และ 10 ที่เรียกว่าSAPI ( Speech Application Programming Interface )

Microsoft Speech APIคือสิ่งที่ใช้สำหรับ  คุณลักษณะการ เข้าถึงข้อความเป็นคำพูดที่มี^{(accessibility feature)}อยู่ในWindows คุณยังสามารถเขียนโปรแกรมที่เรียกAPIซึ่งจะทำให้แอปพลิเคชันของคุณพูดได้ แต่สำหรับนักพัฒนา

แค่ทำให้คอมพิวเตอร์ของคุณพูดในสิ่งที่คุณต้องการนั้นง่ายมากจริงๆ! ในบทความนี้ ฉันจะแสดงวิธีสร้างสคริปต์ VBS^{(VBS script)}ที่จะรับข้อความ^{(text input)}จากผู้ใช้แล้วพูด นอกจากนี้ ฉันยังจะพูดถึงวิธีฮาร์ดโค้ดข้อความที่คุณต้องการพูด จากนั้นจึงกำหนดเวลาให้สคริปต์นั้นทำงานในเหตุการณ์เฉพาะ เช่น การเริ่มWindowsหรือออกจากระบบ

ป้อนข้อความ พูดข้อความ

มาเริ่มกันด้วยสคริปต์ง่ายๆ ที่จะป็อปอัพกล่องโต้ตอบ^{(dialog box)}ซึ่งคุณสามารถพิมพ์สิ่งที่คุณต้องการให้ Windows พูดได้ ขั้นแรก^(First) ไปข้าง หน้าและเปิดNotepad

ขั้นตอนที่ 1:^{(Step 1:)}  วางข้อความต่อไปนี้ลงในเอกสารใหม่:

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message

โปรดทราบว่าเมื่อคุณคัดลอกข้อความจากเว็บเบราว์เซอร์ของคุณและวาง^{(web browser and paste)}ลงในNotepadคำพูดจะทำให้เกิดปัญหา ก่อนที่คุณจะบันทึกไฟล์ คุณต้องดำเนินการและลบแต่ละใบเสนอราคา (“) แล้วพิมพ์ใบเสนอราคาอีกครั้ง ในตัวอย่างด้านล่าง มีเครื่องหมายคำพูดหกคำ ควรมีลักษณะบางอย่างเช่นภาพด้าน^{(image below)}ล่าง

ตอนนี้เมื่อคุณไปบันทึกไฟล์ ให้ตั้งชื่อไฟล์นั้น ๆ แต่ให้แน่ใจว่าคุณพิมพ์.VBSหลังชื่อด้วย ถัดไป สำหรับ กล่อง บันทึกเป็นชนิด^{( Save as type)}ให้เลือกไฟล์ทั้งหมด^{( All files)}แทนที่จะเป็นเอกสารข้อความ^{(Text Documents)} เริ่ม ต้น

ตอนนี้ดับเบิลคลิกที่ไฟล์ VBS แล้ว^{(VBS file)}คุณจะเห็นกล่องอินพุต^{(input box)}ซึ่งคุณสามารถพิมพ์ข้อความที่คุณต้องการพูดได้! พิมพ์บางอย่าง^{(Type something)}แล้วคลิกตกลง

หากคุณทำทุกอย่างถูกต้อง^{(everything right)}คุณควรได้ยินเสียงผู้ชายหรือผู้หญิงพูดประโยคของคุณ หากคุณได้รับข้อความแสดงข้อผิดพลาด^{(error message)}ตรวจสอบให้แน่ใจว่าได้คัดลอกและวางข้อความอีกครั้งและแทนที่เครื่องหมายคำพูดเหล่านั้น

กำหนดการตั้งค่าเสียง SAPI

เป็นเรื่องที่สนุก แต่เรายังสามารถกำหนดค่าคอมพิวเตอร์พูดได้ขนาดเล็กของเราด้วยการตั้งค่าต่างๆ เราสามารถปรับระดับเสียง พูดเร็วหรือช้า และเปลี่ยนเพศระหว่างชายและหญิงได้ นี่คือตัวอย่างโค้ด^{(example code)}ที่ฉันเพิ่มบรรทัดพิเศษสองสามบรรทัด

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
Set sapi.Voice = sapi.GetVoices.Item(1)
sapi.Rate = 0
sapi.volume = 100
sapi.Speak message

อัตราเริ่มต้น^{(default rate)}คือ 0 และช่วงคือ -10 ถึง 10 -10 จะมีเสียงพูดช้ามาก และ 10 จะพูดเร็วมาก ระดับเสียงมีค่าเริ่มต้นที่ 100 และช่วงคือ 0 ถึง 100 บรรทัดที่ขึ้นต้นด้วยSet sapi.Voiceจะช่วยให้คุณเปลี่ยนเป็นเสียงอื่นได้ หากติดตั้งไว้ในระบบของคุณ

โปรดทราบว่าจำนวนเสียงที่คุณสามารถเลือกได้ขึ้นอยู่กับระบบปฏิบัติการ ^{(operating system)}ในWindows 7มีเพียงเสียงเดียวเท่านั้นMicrosoft Anna .

ในWindows 10มีสองเสียง: Microsoft David และ Microsoft Zira^{(Microsoft David and Microsoft Zira)}ดังที่แสดงด้านล่าง

หากมีเพียงหนึ่งเสียงที่ติดตั้งในระบบของคุณ คุณต้องเปลี่ยนที่ระบุว่าsapi.GetVoices.Item(1)เป็นsapi.GetVoices.Item(0)มิฉะนั้น คุณจะได้รับข้อความแสดงข้อผิดพลาด^{(error message)}เมื่อคุณพยายามเรียกใช้สคริปต์ คุณยังสามารถสร้างเอกสาร Notepad อีกฉบับแล้ววาง^{(Notepad document and paste)}โค้ดด้านล่างลงไป ซึ่งจะบอกคุณว่ามีการติดตั้งเสียงใดบ้าง บันทึกเป็นไฟล์ .VBS ดังที่แสดงด้านบนและเรียกใช้

Set VObj = CreateObject(“SAPI.SpVoice”)
For Each Voice In VObj.getvoices
I = I + 1
msgbox “” & (I – 1) & ” – ” & Voice.GetDescription
Next

จนถึงขณะนี้ เราได้ใช้กล่องโต้ตอบป๊อปอัป^{(popup dialog)} นี้ เพื่อป้อนข้อความ แต่คุณยังสามารถพิมพ์ข้อความของคุณลงในไฟล์สคริปต์^{(script file)}ได้ ซึ่งจะเป็นประโยชน์หากคุณต้องการกำหนดเวลาให้สคริปต์ทำงานโดยอัตโนมัติ แน่นอน สามารถใช้เพื่อแกล้งเพื่อนและครอบครัวของคุณได้ และมันก็ใช้ได้ผลดีจริงๆ

ลองนึกภาพว่ามีคนเปิดคอมพิวเตอร์และได้ยินคอมพิวเตอร์บอกพวกเขาว่า “ สวัสดี จอห์น^{(Hello John)}วันนี้ฉันง่วงมาก ได้โปรดอย่ารบกวนฉันเลย!” เมื่อมันบูทขึ้น! ฉันสามารถสัญญากับคุณจากประสบการณ์ มันเกินจริง และคุณควรลอง

ในการฮาร์ดโค้ดข้อความ ให้เปลี่ยนบรรทัดสุดท้ายเป็นดังนี้:

sapi.Speak “Hello John, I am very tired today!”

ไฟล์สคริปต์กำหนดเวลา

เมื่อคุณได้ฮาร์ดโค้ดข้อความของคุณสำหรับเป้าหมายที่ต้องการแล้ว คุณเพียงแค่ต้องเรียกใช้เมื่อต้องการ หากคุณเชี่ยวชาญด้านเทคโนโลยี คุณสามารถใช้โปรแกรมอย่างAutoItได้ ซึ่งจะทำให้คุณสามารถทำสิ่งที่รุนแรงได้ เช่น เรียกใช้ไฟล์สคริปต์^{(script file)} ของคุณ เมื่อเปิดโปรแกรมบางโปรแกรม หรือเมื่อหน้าต่างถูกขยายหรือย่อให้เล็กสุด

ฉันไม่มีเวลาทำสิ่งเหล่านั้นในโพสต์นี้ แต่โชคดีที่Microsoftมีคุณสมบัติในตัวที่เรียกว่าTask Schedulerที่ให้คุณทำสิ่งที่ค่อนข้างซับซ้อนด้วยสคริปต์ได้อย่างง่ายดาย

โพสต์ก่อนหน้าของฉันเจาะลึกถึงวิธีกำหนดเวลาให้ไฟล์สคริปต์^{(script file)}ทำงานเมื่อมีเหตุการณ์บางอย่างเกิดขึ้นในWindows หากคุณมีปัญหาใดๆ ในการทำให้สคริปต์ของคุณทำงานได้ โปรดโพสต์ความคิดเห็นและเราจะพยายามช่วยเหลือ สนุก!

How to Make Your Computer Talk/Speak What You Type

There is сool feаture in Windows that allows you to make yoυr computer talk or speak whatever you tell it! This method takes advantage of a built-in API installed on Windows XР, Vista, 7, 8 and 10 cаlled SAPI (Speech Application Programming Interface).

The Microsoft Speech API is what is used for the text-to-speech accessibility feature built into Windows. You can also write programs that call the API, which would allow you to let your applications speak, but that’s for developers.

Just making your computer say what you want is pretty easy actually! In this article, I’ll show you how to create a VBS script that will take a text input from a user and then speak it. I’ll also mention how to hard code the text you want spoken and then schedule that script to run on specific events like starting Windows or logging off.

Input Text, Speak Message

Let’s start off with a simple script that will popup a dialog box where you can type in what you want Windows to speak. First, go ahead and open Notepad.

Step 1: Paste the following text into a new document:

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message

Note that when you copy text from your web browser and paste it into Notepad, the quotes will cause problems. Before you save the file, you need to go through and delete each quote (“) and retype the quote. In the example below, there are six quotes. It should look something like the image below.

Now when you go to save the file, give it any name, but make sure you also type .VBS after the name. Next, 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 an input box where you can type in the text you want spoken! Type something and click OK.

If you did everything right, you should hear either a male or female voice speak out your sentence. If you get any kind of error message, make sure to copy and paste the text again and replace those quotes.

Configure SAPI Voice Settings

This is fun, but we can also configure our little talking computer with different settings. We can change the volume, how fast or slow the voice talks and change the gender between male and female. Here is some example code where I added a couple of extra lines.

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
Set sapi.Voice = sapi.GetVoices.Item(1)
sapi.Rate = 0
sapi.volume = 100
sapi.Speak message

The default rate is 0 and the range is -10 to 10. -10 will have the voice speak super slowly and 10 will speak super fast. The volume is defaulted at 100 and the range is 0 to 100. The line that starts with Set sapi.Voice will allow you to change to another voice, if installed on your system.

Note that the number of voices you can choose from depends on the operating system. In Windows 7, there is only one voice, Microsoft Anna.

In Windows 10, there are two voices: Microsoft David and Microsoft Zira as shown below.

If there is only one voice installed on your system, you have to change that says sapi.GetVoices.Item(1) to sapi.GetVoices.Item(0), otherwise you will get an error message when you try to run the script. You can also create another Notepad document and paste the code below in, which will tell you what voices are installed. Save it as a .VBS file like shown above and run it.

Set VObj = CreateObject(“SAPI.SpVoice”)
For Each Voice In VObj.getvoices
I = I + 1
msgbox “” & (I – 1) & ” – ” & Voice.GetDescription
Next

Up until now, we have been using this popup dialog to enter text, but you could also simply type your message into the script file. This would be useful if you wanted to then schedule the script to run automatically. Obviously, this can be used to prank your friends and family and it works really well.

Just imagine someone turning on their computer and hearing the computer tell them “Hello John, I’m very sleepy, please don’t bother me today!” when it boots up! I can promise you from experience, it’s hysterical and you should definitely try it.

In order to hardcode the message, simply change the last line to something like this:

sapi.Speak “Hello John, I am very tired today!”

Schedule Script File

Now that you have hardcoded your message for your intended target, you simply have to run it when you want. If you are tech-savvy, you could use a program like AutoIt, which will allow you to do extreme stuff like run your script file when a certain program is opened or when a windows is maximized or minimized.

I don’t have time to get into all that in this post, but luckily Microsoft has a built-in feature called the Task Scheduler that lets you do some pretty complicated stuff with scripts easily.

My previous post goes in depth on how to schedule a script file to run when certain events occur in Windows. If you have any trouble getting your script to work, feel free to post a comment and I’ll try to help. Enjoy!

Related posts

• วิธีเปลี่ยนคอมพิวเตอร์เครื่องเก่าของคุณให้เป็นเครื่องอาเขต

• yeet Mean and How ทำอะไรได้อย่างถูกต้อง

• วิธีการไป Live บน TikTok

• วิธีการสร้างเพื่อนออนไลน์

• Twitter Fleet คืออะไรและทำไม Would คุณใช้มัน?

• 3 Ways เพิ่ม Andy Warhol Pop Art Effect เพื่อภาพถ่าย

• 25 ที่ดีที่สุด Subreddits เพลงที่จะค้นพบ New Music

• วิธีการชักจูง Lucid Dreaming Using Mobile Apps

• 20 ตลก Subreddits คุณควรตรวจสอบสำหรับ Laughs

• 10 รายการที่ดีที่สุดและภาพยนตร์บน Hulu เพื่อดูตอนนี้ [อัปเดต - 2021]

• รายการที่ดีที่สุดและภาพยนตร์ใน HBO Max เพื่อดูตอนนี้

• 5 สุดยอด Netflix Original Anime คุณสามารถสตรีมได้ทันที

• Hinge Dating App Review: ทำไมถึงเป็น Better

• วิธีการให้ TED Talk

• วิธีสร้างชุดสติ๊กเกอร์โทรเลขของคุณเอง

• 9 Best Pokemon Go Tips and Tricks

• วิธีการอาสาสมัคร Political Campaign Online

• อะไรคือ Twitter Spaces and Should คุณใช้พวกเขา?

• HMU Mean อะไร (และวิธีการใช้งาน)

• VHS Stand สำหรับอะไร