Chuyển Text sang Audio bằng notepad

Đây có thể là 1 cách rất hay nếu như bạn muốn nghe 1 đoạn văn bằng tiếng anh mà không cần google dịch, không cần internet.Nhất là trong thời buổi đứt cáp hiện nay thì cách này có thể nói là rất tiện lợi và độc đáo. :D
Và nó không hề khó chút nào, chỉ với 2 bước đơn giản :D

Bước 1: Mở Notepad. Bạn có thể làm điều này bằng cách tìm kiếm cho Notepad trong cửa sổ tìm kiếm hoặc ấn Win + R và gõ Notepad và nhấn Enter.

Bước 2: Bây giờ, sao chép đoạn mã sau (Phần mã màu xanh nước biển ) đây và dán nó vào Notepad

Dim message, sapi
 message = InputBox("A Best Text to Audio converter"+vbcrlf+"From - www.allusefulinfo.com","Text to Audio converter")
 Set sapi = CreateObject("sapi.spvoice")
 sapi.Speak message

Sau đó hãy lưu lại dưới dạng file .vbs như hình sau (Tên file mình chọn là texttoaudio.vbs các bạn có thể chọn tên khác nhưng nhớ là .vbs ) rồi ấn Save.

Khi đó file sau khi lưu sẽ có dạng như này :

Các bạn mở file đó lên, giao diện sẽ như sau :

Bạn nhập nội dung cần đọc vào ô kia và ấn OK. Âm thanh sẽ phát ra :D và là giọng nam.hay hơn chị Google nhiều :D
Đọc chuẩn nhất vẫn là văn bản bằng tiếng anh nhé :D 
Chúc các bạn thành công.

Nguồn : https://codingsec.net/2016/06/convert-text-audio-using-notepad/