NotePad สามารถทำให้คอมพิวเตอร์พูดได้

[Annop]

NotePad สามารถทำให้คอมพิวเตอร์พูดได้

อยากให้คอมพิวเตอร์พูดได้ ลองพิมพ์ หรือ Copy Text ไฟล์ธรรมดา ใส่ไว้ใน NotePad ตามรูป

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



Save เป็นชื่ออะไรก็ได้ เช่น "พูดตามที่พิมพ์" จะได้ไฟล์เป็น พูดตามที่พิมพ์.txt
แล้ว Rename .txt เป็น .vbs จะมีคำเตือน แต่เราไม่เชื่อกด Yes ไปเลย



ตอนนี้ไฟล์ที่เราทำไว้ก็จะเป็น พูดตามที่พิมพ์.vbs ลองเปิดดูครับ
จะมีหน้าต่าง Speak This ขึ้นมา ลองพิมพ์ I love You แล้วกด OK มันพูดถูกด้วย



ลองทดสอบพิมพ์ The quick brown fox jumps over the lazy dog มันก็พูดได้ชัดดีครับ

ลองแล้ว พูดได้แต่ภาษาอังกฤษเท่านั้น

เครดิต

http://www.justusers.net/