@echo off
call :startvbs
:loop
set /p a=输入一个算式（支持小数哦）：
echo return %a%>1.txt
call :getret ans
echo %ans%
goto loop

:getret
if not exist 1.txt call :err
if not exist 2.txt goto getret
set /p %1=<2.txt
del /f 2.txt
goto :eof

:startvbs
echo.>1.txt
start /b cmd /c cscript dy.vbs //nologo 2^>nul^&del /f 1.txt
ping -n 1 127.0.0.1 >nul
goto :eof

:err
echo vbs发生错误>2.txt
call :startvbs
goto :eof

:exitvbs
echo wscript.quit>1.txt
复制代码

sf="1.txt"
rf="2.txt"
wait=20

clearscript
do
wscript.sleep wait
a=readscript
if a<>vbcrlf then
clearscript
execute a
end if
loop

function readscript()
set f=createobject("scripting.filesystemobject").opentextfile(sf)
readscript=f.readall
f.close
end function

sub clearscript()
set f=createobject("scripting.filesystemobject").opentextfile(sf,2,true)
f.writeline
f.close
end sub

sub return(s)
set f=createobject("scripting.filesystemobject").opentextfile(rf,2,true)
f.writeline s
f.close
end sub
复制代码

@echo off
call :startvbs
:loop
set /p a=输入一个算式（支持小数哦）：
echo return %a%>1.txt
call :getret ans
echo return msgbox("答案是%ans%")>1.txt
call :getret
goto loop
复制代码

@echo off
call :startvbs
echo 请选择一个文件夹
echo return createobject("Shell.Application").browseforfolder(0,"选择目录:",0,0).self.path>1.txt
call :getret fn
echo %fn%
pause
call :exitvbs
goto :eof
复制代码

@echo off
call :startvbs
set /p a=请输入第一个数：
set /p b=请输入第二个数：
(echo a=%a%
echo b=%b%
echo return a+b
)>1.txt
call :getret ret
echo 和为：%ret%
pause
call :exitvbs
goto :eof
复制代码