Dùng ASPI tạo cách nghe tiếng anh kiểu mới

Chương trình hỗ trợ các hệ điều hành Windows 2000, XP, Vista, 7, Developer Preview
Bạn mở notepad, dán vào đoạn sau và lưu lại (save as) dưới đuôi .vbs, ví dụ: NDD.vbs.

do
'create the voice object
Set VObj = CreateObject("SAPI.SpVoice")
'get what the user wants to say, exit if cancel or return no msg
MSG = InputBox("Nhập những gì bạn muốn máy tính nói" & VBCRLF & VBCRLF & VBCRLF & "Để kết thúc, chọn nút Cancel", "Voice Box By NDD", "")
If MSG = "" Then WScript.quit: Else
'use the VObj to speak msg
with VObj
.Volume = 100
.Speak MSG
end with
loop