'>nul 2>nul&echo off&cls 2>nul 3>nul
:'loop
'&set /p a=请输入算式：
'&Call :'Call "ans" "Calc" "%a%" 
'&echo %ans%
'&Call :'Call "null" "Speak" "%ans%" "6" "100"
'&pause
'&goto 'loop
:'Call
'&setlocal enableextensions
'&for %%t in (%*) do if defined bool (call set arg=%%arg%% %%%%t) else (set bool=0&set v=%%~t)
'&for /f "delims=" %%t in ('cscript /e:vbs /nologo "%~f0"%arg%') do set ret=%%t
'&endlocal&set %v%=%ret%
'&goto :eof
Set Arg=WScript.Arguments
Set Ws=CreateObject("WScript.Shell")
Select Case LCase(Arg(0))
Case "calc"
WScript.Echo Eval(Arg(1))
Case "speak"
Set Sapi=CreateObject("sapi.spvoice")
Sapi.Rate=Arg(2)
Sapi.Volume=Arg(3)
Sapi.Speak Arg(1)
End Select
复制代码

'>nul 2>nul&echo off&cls 2>nul 3>nul
复制代码

'&echo 批处理代码
复制代码

'&Call :'Call "返回变量" "函数" "参数一"……
复制代码

:'Call
'&setlocal enableextensions
'&for %%t in (%*) do if defined bool (call set arg=%%arg%% %%%%t) else (set bool=0&set v=%%~t)
'&for /f "delims=" %%t in ('cscript /e:vbs /nologo "%~f0"%arg%') do set ret=%%t
'&endlocal&set %v%=%ret%
'&goto :eof
复制代码

Set Arg=WScript.Arguments
Select Case LCase(Arg(0))
Case "函数一"……
WScript.Echo 返回值Case "函数二"……
WScript.Echo 返回值……
End Select
复制代码

if wscript.arguments.count = 0 then
  createobject("wscript.shell").run _
  "cmd /c title Hi~ cn-dos &mode con cols=50 lines=6 & "&_
  " cscript //nologo " &chr(34) &wscript.scriptname &chr(34) &" isme"
  wscript.quit
end if
:rem Made by if(e_x)ist@cn-dos
set inp=wscript.stdin
set put=wscript.stdout
dim str(6)
str(0)=" W W W . C N - D O S . N E T "
str(1)=" B A T H O M E  "
str(2)=" L x m x n  "
str(3)=" E v e r e s t 7 9 "
str(4)=" N e t B e n T o n "
str(5)=" I F _ E X I S T "
str(6)=" H u a h u a 0919 "
for each strx in str
  call EchoInRnd(replace(space(len(strx))," ","-"),strx)
  call EchoInRnd(strx,strx)
  call EchoInRnd(strx,space(len(strx)))
  put.writeline
next
sub EchoInRnd(stra,strb)
dim x(100)
xlb=len(stra)
xla=xlb-1
for i = 0 to xlb
   x(i) = i
next
ln=stra
for i = xla to 0 step -1
   tn=int(rnd*i)
   ln=left(ln,x(tn)) & mid(strb,x(tn)+1,1) & right(ln,xla-x(tn))
        wscript.sleep 50
   put.write chr(13)
   put.write space((50-xlb)/2) & ln
   x(tn)=x(i)
next
end sub
复制代码