ធ្វើឲComputer បញ្ចេញសម្លេងនៅពេលវាយ Keyboard ជាមួយ Notepad

សួស្តី ថ្ងៃនេះ ITsupport4kh នឹងបង្ហាញជូនលោកអ្នកនូវរបៀបបង្កើជាកម្មវិធីដ៏ងាយស្រួសតាមរយៈNotepad មួយ ដែលវាអាចបញ្ចេញសម្លេងមកកាន់យើងនៅពេលដែលយើងវាយពាក្យចូលតាមរយៈ Keyboard ដោយចំលងកូដចូលហើយ រក្សាទុកវាជា File .vbs នៅផ្នែកខាងចុងជាការស្រេច!
ជំហានទី១ ចំលងកូដខាងក្រោមចូលក្នុង កម្មវិធី Notepad

Dim message, sapi
message=InputBox("http://itsupport4kh.blogspot.com/","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

ជំហានទី ២ រក្សាទុកវាជាប្រភេទ.vbs នៅខាងចុងជាការស្រេច។ រួចសាកល្បងមើល:D!