វាជាគន្លឹះដ៏ពិសេសមួយក្នុងការប្រើកម្មវិធី Notepad ដែលមានស្រាប់ក្នុង Window ដើម្បីបម្លែង រាល់ការសរសេររបស់អ្នកទៅជាសម្លេង។វាសាមញ្ញហើយដំណើរការបានគ្រប់ Window ទាំងអស់ របស់ Microsoft ។ ជាដំបូងសូមបើកម្មវិធី Notepad រួចសរសេរកូដទាំងអស់នេះទៅដាក់ក្នុង Notepad របស់អ្នក។
Dim message, sapimessage=InputBox("What do you want me to say?","Speak to Me")Set sapi=CreateObject("sapi.spvoice")sapi.Speak message
សូមចុចលើ Code ដើម្បីទៅ Copy សូមកុំ copy ទាំងលេខរៀងឲ្យសោះ
បន្ទាប់មកនៅត្រង់ Save as type សូមយក All file ចំណែកឈ្មោះសូមដាក់ Speak.vbs ឬអ្វី ក៏បានឱ្យតែមានកន្ទុយជា.vbs។
ឥឡូវសូមបើក Speak.vbs រួចសរសេរអ្វីដែលអ្នកចង់ឱ្យវាអានរួចចុច Ok
សាកល្បងទើបដឹង
