ชมรมคอมพิวเตอร์ ออนไลน์

ลำดับตอนที่ #4 : ออกคำสังคอมพิวเตอร์ ให้อ่านภาษาอังกฤษให้ฟัง ด้วย Notepad

สวัสดี อีกครั่งน่ะครับเพื่อน ๆ 
วันนี้ผมมี ทริกง่าย ๆ ด้วย Notepad น่ะครับ

อย่างแรกเลยน่ะครับ 
อ่ะแน่นอนครับ
เปิด Notepad ^^


ต่อมาก็ใส่ โค้ด

 Dim message, sapi

message=InputBox("Hai this is SUNIL PM what do you want ur computer to speak?","for more tricks visit sunil-pm.hubpages.com")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message

เสร็จแล้วก็เซฟ เป็นไฟล์ .vbs


ต่อจากนั้น
ก็คลิกเปิดไฟล์ที่เราเซฟไว้ ^^


และแล้ว ผลลัพท์ที่ได้ 
คือ โปรแกรม ช่วยอ่านภาษาอังกฤษครับ
^^





ขออภัยด้วยน่ะครับ สำหรับคนไหนที่ต้องการหา โปรแกรมช่วยอ่านภาษาไทย
เพราะว่าโปรแกรมนี้ อ่านได้แต่ภาษาอังกฤษ จริง ๆ -*-