IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT

ข่าวสาร / ความรู้ => ทิป เทคนิค คอมพิวเตอร์ => ข้อความที่เริ่มโดย: ,.-~*'¨¯¨'*·~-.¸-(_ (คิม) _)-,.-~*'¨¯¨'*·~-.¸ ที่ พฤษภาคม 20, 2010, 09:43:06

หัวข้อ: << ทริคเล็กๆ สั่งคอมพิวเตอร์ให้พูดตามที่เราพิมพ์ >>
เริ่มหัวข้อโดย: ,.-~*'¨¯¨'*·~-.¸-(_ (คิม) _)-,.-~*'¨¯¨'*·~-.¸ ที่ พฤษภาคม 20, 2010, 09:43:06
 เป็นอีกหนึ่งทริคเล็กๆ ที่เราสามารถเรียกใช้งานฟีเจอร์ที่ built-in มากับวินโดวส์ให้ลุกขึ้นมาทำงาน
โดยเป็นการเขียนคำสั่งในแบบ text ธรรมดาๆ ด้วย Notepad แต่ให้อยู่ในรูปแบบของไฟล์ VBS
เพื่อเรียกใช้บริการของ  SAPI หรือชื่อเต็มๆ ว่่า Speech Application Programming Interface
ให้เขาลุกขึ้นมาทำงานในแบบพูดจ้อได้ทั้งวันตามข้อความที่เราพิมพ์ แม้ว่าเขาจะยังไม่ยอมพูดภาษาไทยก็ตาม..




1. ก็อปปี้คำสั่งด้านล่าง นำไป paste ใน Notepad ครับ
Dim message, sapi
message=InputBox("Enter the text you want spoken","Speak This")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message



2. เสร็จแล้วเซฟไฟล์ด้วยชื่อตามที่ต้องการ และต่อท้ายชื่อไฟล์ด้วย .VBS ตัวอย่างเช่น Pzecret.VBS
รวมถึงเลือกเซฟแบบ All files ในช่อง Save as type



3. หากไม่มีอะไรผิดพลาด เมื่อดับเบิ้ลคลิกไฟล์ VBS ที่เราได้สร้างขึ้น
ก็จะพบกับไดอะล็อกตามภาพ พิมพ์ข้อความตามต้องการแล้วคลิก OK ให้เขาพูดครับ Enjoy..!!
หัวข้อ: Re: << ทริคเล็กๆ สั่งคอมพิวเตอร์ให้พูดตามที่เราพิมพ์ >>
เริ่มหัวข้อโดย: Moshi ที่ พฤษภาคม 20, 2010, 11:07:07
เจ๋งอ่ะ ลองแล้ว มันดึงเสียงมาจากไหนหว่า ฮ่าๆ
หัวข้อ: Re: << ทริคเล็กๆ สั่งคอมพิวเตอร์ให้พูดตามที่เราพิมพ์ >>
เริ่มหัวข้อโดย: ,.-~*'¨¯¨'*·~-.¸-(_ (คิม) _)-,.-~*'¨¯¨'*·~-.¸ ที่ พฤษภาคม 23, 2010, 12:05:25
 เสียงมาจากไหนหรอ???  เราต้องศึกษาแบบไม่มีจุดจบ 8)
หัวข้อ: Re: << ทริคเล็กๆ สั่งคอมพิวเตอร์ให้พูดตามที่เราพิมพ์ >>
เริ่มหัวข้อโดย: MoAme ที่ สิงหาคม 18, 2010, 09:52:00
ก็ดีนะ