desperadovn
Búa Gỗ Đôi
TEXT CONVERT TO AUDIO
Mở Notepad và dán nội dung bên dưới vào và lưu thành file bất kỳ *.BAT hoặc *.CMD
NHẬP VĂN BẢN TRỰC TIẾP VÀO CỬA SỔ CMD
Mã:
echo off
color 9f
mode con lines=40 cols=100
title DOC VAN BAN TIENG ANH
:input
cls
echo.
echo DOC VAN BAN TIENG ANH
echo.
echo. Nhap van ban tieng Anh:
echo.
set /p text= -:
rem Making the temp file
:num
set num=%random%
if exist temp%num%.vbs goto num
echo ' > "temp%num%.vbs"
echo set speech = Wscript.CreateObject("SAPI.spVoice") >> "temp%num%.vbs"
echo speech.speak "%text%" >> "temp%num%.vbs"
start temp%num%.vbs
echo.
echo.
echo Bam phim bat ky de tiep tuc
pause >nul
del temp%num%.vbs
goto input
XIN PHÉP TRÍCH LẠI CODE CỦA MOD HAMANO KAITO
ĐỌC TỪ FILE NOTEPAD (*.TXT, *.DOC, ...)
* Lưu ý: Đặt file ReadMe.txt và file *.BAT ở cùng 1 thư mục
Mã:
echo off
color 9F
CD /D "%~dp0"
title DOC VAN BAN TIENG ANH
:mainmenu
cls
echo.
echo DOC VAN BAN TIENG ANH
echo.
echo Hay chac chan van ban da nhap vao file ReadMe.txt.
echo.
echo Bam phim bat ky de thuc hien doc van ban.
pause >nul
for /F "tokens=*" %%i in (ReadMe.txt) do (Set RM=%%i)
:num
set num=%random%
if exist temp%num%.vbs goto num
echo ' > "temp%num%.vbs"
echo set speech = Wscript.CreateObject("SAPI.spVoice") >> "temp%num%.vbs"
echo speech.speak "%RM%" >> "temp%num%.vbs"
start temp%num%.vbs
echo.
echo.
cls
echo.
echo. NOI DUNG VAN BAN
echo.
color 5e
type ReadMe.txt
echo.
echo.
echo Bam phim bat ky de tiep tuc
pause >nul
del temp%num%.vbs
goto MAINMENU
Sau khi lưu file giờ thì mở file kiểm tra thành quả
Sửa lần cuối: