វិធីក្នុងការបម្លែងការសរសេរទៅជាសម្លេងដោយប្រើ Notepad

វាជាគន្លឹះដ៏ពិសេសមួយក្នុងការប្រើកម្មវិធី Notepad ដែលមានស្រាប់ក្នុង Window ដើម្បីបម្លែង
រាល់ការសរសេររបស់អ្នកទៅជាសម្លេង។ វាសាមញ្ញហើយដំណើរការបានគ្រប់ Window

ទាំងអស់របស់ Microsoft ។ជាដំបូងសូមបើកម្មវិធី Notepad រួចចម្លងកូដទាំងអស់នេះទៅដាក់ក្នុង Notepad របស់អ្នក

Dim message, sapi

 message=InputBox("What do you want me to say?","Speak to Me")

 Set sapi=CreateObject("sapi.spvoice")

 sapi.Speak message 

ឥឡូវសូមបើក Speak.vbs រួចសរសេរអ្វីដែលអ្នកចង់ឱ្យវាអានរួចចុច Ok