Та нээгээд нэг үг бичээд энтэр дар Жишээ нь : sheeva гэж бичээг энтэр товч дар. Сонсох болно
Криллээр бичиж болохгүй тул та Герман гэж бичих гэж байгаа бол Germany гэж бичээд энтэр дараарай
Чадахгүй байгаа бол ЭНД дарж татна уу?
Үгнүүдээ хэлүүлж дуусаад Цонх+R хамт дарж RUN цонхонд %temp% гэж бичээд
Sheeva фолдер доторх History фолдер луу орж .vbs ажиллуул таны хэлүүлсэн үгнүүд байгаа
Code
@ECHO OFF
TITLE Speaker by Sheeva
COLOR a
MD %temp%\Sheeva
IF EXIST %temp%\Sheeva CLS
MD %temp%\Sheeva\History
IF EXIST %temp%\Sheeva\History CLS
:SET_VARS
SET System=SET
SET Temporary=%temp%\Sheeva\History
SET ext0=.vbs
SET get.session=%random%%random%12%random%%random%%random%%random%%random%%random%
CLS
SET/p speak=Heleh vgee bicheed ENTER darna uu:
IF '%speak%'=='/clearTemp' GOTO TEMP
IF '%speak%'=='/editmain()' GOTO EDIT
IF '%speak%'=='/destroyme' DEL %0%
ECHO StrText="%speak%">>%Temporary%\%get.session%%ext0%
ECHO set ObjVoice=CreateObject("SAPI.SpVoice")>>%Temporary%\%get.session%%ext0%
ECHO Objvoice.Speak StrText>>%Temporary%\%get.session%%ext0%
START /wait %Temporary%\%get.session%%ext0%
GOTO SET_VARS
:TEMP
CLS
ECHO Temp ustgahdaa itgeltei baina uu?
SET/p confirm=[Y/N] :
IF 'confirm'=='y' GOTO SURE
IF 'confirm'=='Y' GOTO SURE
IF 'confirm'=='n' GOTO NODELETE
IF 'confirm'=='N' GOTO NODELETE
GOTO TEMP
:EDIT
Msg * Aldaa...
EDIT %0%
GOTO SET_VARS
:SURE
DEL /F /S /Q %Temporary%
IF NOT ERRORLEVEL 1 Msg * Konets :D!
EXIT
gehdee oor aylgatai yumaa
