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
(http://itamusing.com/windows/note/Speak01.jpg)
Save เป็นชื่ออะไรก็ได้ เช่น "พูดตามที่พิมพ์" จะได้ไฟล์เป็น พูดตามที่พิมพ์.txt
แล้ว Rename .txt เป็น .vbs จะมีคำเตือน แต่เราไม่เชื่อกด Yes ไปเลย
(http://itamusing.com/windows/note/Speak02.jpg)
ตอนนี้ไฟล์ที่เราทำไว้ก็จะเป็น พูดตามที่พิมพ์.vbs ลองเปิดดูครับ
จะมีหน้าต่าง Speak This ขึ้นมา ลองพิมพ์ I love You แล้วกด OK มันพูดถูกด้วย
(http://itamusing.com/windows/note/Speak03.jpg)
ลองทดสอบพิมพ์ The quick brown fox jumps over the lazy dog มันก็พูดได้ชัดดีครับ
ลองแล้ว พูดได้แต่ภาษาอังกฤษเท่านั้น
เครดิต
http://www.justusers.net/