CrLf

借花献佛：

:On Error Resume Next
Sub bat
echo off & cls
' 2>nul 3>nul & set /p input=请输入任意字符串
echo HaHa 
' &cmd /v:on /c cscript //nologo /e:vbs "%~f0" "!input!"&pause
Exit Sub
End Sub
wscript.echo (len(WScript.Arguments(0))&"个字符")
复制代码