Khi bạn nhập vào một văn bản hay một từ tiếng anh nó sẽ đọc cho bạn. Rất hay nhé.Cũng rất dễ làm.
Đầu tiên bạn mở Notepad lên Star :rr: All Program :rr: Accessories :rr: Notepad.
Sau đó copy đoạn code này dán vào:
- Code:
-
Dim msg, sapi
msg=InputBox("Chuong trinh doc tieng anh","Nhap noi dung can chuyen")
set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Tiếp theo bạn lưu file lại với tên là "Doctienganh.vbs".
Sau khi lưu bạn mở lên, nhập văn bản và Enter khi đó nó sẽ đọc cho bạn.
được nhấn thanks ha.