ซอฟ์แวร์ออกเสียงภาษาอังกฤษหลีกไป เพราะว่าสคริปต์เด็ดนี้ อาจจะทำให้ต้องอาย speak to me เป็นสคริปต์ขนาดจิ๋วที่สามารถให้เครื่องคอมพิวเตอร์อ่านออกเสียง ตัวอักษรที่พิมพ์ลงไปได้ หากต้องการฟังการออกเสียงภาษาอังกฤษคำใด พิมพ์ลงไปแค่นี้ ก็จะได้ฟังการออกเสียงโดยไม่จำเป็นต้องไปดาวน์โหลดโปรแกรม ไม่จำเป็นต้องหาซื้อ ไม่จำเป็นต้องตระเวนหา crack หรือ serial ไม่เชื่อต้องตามมาทดลองกันค่ะ
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message |
ขั้นตอนที่ 1 ให้ copy ข้อสคริปต์ดังตารางด้านบน ไปวางในโปรแกรม notepad แล้วบันทึกเป็นชื่ออะไรก็ได้ แต่ต้องนามสกุล.vbs ย้ำนะคะ นามสกุล .vbs ค่ะ
ขั้นตอนที่ 2 ไปเปิดดุที่โฟลเดอร์บันทึกไฟล์ดังกล่าวจะเห็นไฟล์ script ดังกล่าวให้ดับเบิ้ลคลิ๊ก

แล้วพิมพ์ข้อความลงใปในช่อง่ว่าง ต้องการฟังเสียงคำใด พิมพ์ลงไปแล้วกด ok รอฟังเสียงดูนะคะ
ขอบคุณเทคนิคดี ๆ จาก
tipsfromgeek.com