เขียนโปรแกรมสั่งคอมพิวเตอร์ให้พูดออกเสียงด้วยVBScript

สวัสดีครับ วันนี้ไม่มีอะไรมาก เอาทริกการเขียนโปรแกรมสั่งคอมพิวเตอร์ให้พูดออกเสียงด้วย VBScript มาฝากกันครับ ง่ายๆ ไม่มีอะไรยุ่งยาก เผื่อว่าเพื่อนๆคนไหน มีไอเดียดีๆ อาจจะเอาไปประยกต์ใช้ หรือใช้เป็นแนวทางในการเขียนหรือพัฒนาโปรแกรมต่อไปครับ

วิธีเขียนโปรแกรมสั่งคอมพิวเตอร์ให้พูดออกเสียงด้วย VBScript แบบง่ายๆ สามารถทำได้ดังนี้
1. เปิดโปรแกรม Notepad ขึ้นมา
2. จากนั้นพิมพ์หรือคัดลอกข้อความ คำสั่งต่อไปนี้ ลงไป

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

3. จากนั้นไปที่ File > Save as
4. ที่หน้าต่าง Save as ให้เลือกบันทึกไฟล์ไว้ในโฟลเดอร์ที่ต้องการ และให้ใส่ชื่อไฟล์ แล้วตามด้วยนามสกุล .vbs (ยกตัวอย่างเช่น Speech.vbs)
5. ที่ช่อง Save as type ให้เลือก All files
6. จากนั้นคลิกปุ่ม Save
7. จากนั้นก็ไปดับเบิ้ลคลิกที่ไฟล์ที่ได้ทำการบันทึกไว้ มันก็จะขึ้นหน้าจอดังรูป



แล้วให้พิมพ์คำ ประโยค หรือข้อความที่ต้องการใส่ลง ตัวอย่าง ดังรูป



ผมพิมพ์คำว่า "Hello world." จากนั้นกด OK หรือจะ Enter ก็ได้ คอมพิวเตอร์ของเราก็จะพูดหรืออ่านออกเสียงคำ ประโยค หรือข้อความ "Hello world." ที่เราพิมพ์ใส่ลงไปแล้วหล่ะครับ

ลองดูครับ :D