@echo off
setlocal ENABLEDELAYEDEXPANSION
call :C_calc 1024*1024*1024 _s_
echo %_s_%
:END
exit/b
:C_calc
setlocal
set _cmd_=%1
set _vbs_= : Dim StdOut : Set StdOut = CreateObject(scripting.FileSystemObject).GetStandardStream(1) : StdOut.Write %_cmd_% : window.close
set _mshta_=mshta VBscript:Execute(%_vbs_:=%)
for /f usebackq delims= %%a in (` !_mshta_! `) do (
set _v_=%%a
)
(
endlocal
set %2=%_v_%
)
goto :eof
nclick="copycode($('code0'));">復(fù)制代碼