Bước 1: Mở notepad lên. Bước 2: Copy và dán đoạn mã dưới đây vào.
Dim message, sapimessage=InputBox(“What do you want me to say?”,”ATT Text To Speak”)Set sapi=CreateObject(“sapi.spvoice”)sapi.Speak message
Bước 3: save lại với định dạng file .vbs Bước 4: mở file vừa save lên chạy thử xem có hiệu quả không? Sẽ xuất hiện một cửa sổ, bạn gõ vào những gì bạn muốn PC “đọc” cho bạn nghe. chỉ áp dụng win 32 bit và biết tiếng anh.
0 nhận xét:
Đăng nhận xét