[分享]批处理利用mshta调用vbs并返回值

batman

其实批处理利用mshta调用vbs的方法大家都知道，但多用于隐藏运行批处理。同时如果我们要调用vbs进行计算，并返回计算结果给批处理时，一般要用到临时文件，而且还要创建文本操作对象写文本，使得mshta中的代码多了一长串，一不注意就会出错。。。

   实际上我们可以在隐藏运行批处理的方法中得到启示，利用这个传回的参数来传递计算结果，示例代码如下：

1. 
   
2. @echo off
   
3. ::调用vbs计算字符串长度
   
4. set "str=abcdefa"
   
5. if "%1" neq "" goto next
   
6. mshta vbscript:createobject("wscript.shell").run("%~fs0 "^&len("%str%"),1,0)(window.close)
   
7. goto :eof
   
8. :next
   
9. echo str字符串的长度为%1
   
10. pause>nul
    

复制代码

CrLf

借花献佛：

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

复制代码

FOR

请问如果 str 为算式该如何呢?  比如:  set str=1.23+5.8*8.2
网上找了个
MsHta VBscript:CreateObject("Wscript.Shell").Run("%~fs0 "^&eval("%str%"),1,0)(Window.Close)&&exit

wc726842270

BATMAN版主的方法，正是想学的，
ZM版主的方法，则是利用了VBS和P批理的容错能力，另外还有注释

FOR

发现这种方法有 cls 的效果，有办法解决吗？