[原创] bat、vbs、js 原生混编

CrLf

发现 mshta 会把 file:// 协议指向的文件当作 html 来解析（注：IUnknown 与 happyxxdhaha 提醒此处必需使用绝对路径，否则不会执行），心里顿时有一万只草泥马奔过，原来如此简单的答案就在身边，却错过了四年
基本框架：

<!-- : www.bathome.net
@echo off
echo I'm Batch!
mshta "file://%~f0"
pause&exit
 
使用注释标签囊括批处理部分，条件是批处理部分不能出现注释标签的结束符
-->
 
<script language=vbs>
Msgbox "I'm VBScript!"
</script>
 
<script>
alert("I'm JavaScript!")
</script>
 
<script>close()</script>COPY

事实上，file:// 协议名可以省略，而且如果不需要理会界面的话，完全可以不用注释标签：

@echo off
echo I'm Batch!
mshta "%~f0" <nul
pause&exit
 
批处理部分之后要加上一串 >，数量要比前文出现的 < 更多，mshta 才能区分哪些是标签
而且前文出现从文件获取重定向输入的时候，建议加上双引号，例如 <"script"
>>>>>>>>>>>>>>
 
<script language=vbs>
Msgbox "I'm VBScript!"
</script>
 
<script>
alert("I'm JavaScript!")
</script>
 
<script>close()</script>COPY

另一用 goto 的种写法可能更直观一点：

@goto :bat
 
<script language=vbs>
Msgbox "I'm VBScript!"
</script>
 
<script>
alert("I'm JavaScript!")
</script>
 
<script>close()</script>
 
:bat
@echo off
echo I'm Batch!
mshta "%~f0" <nul
pause&exitCOPY

要注意的是，这里的宿主是 mshta，所以不支持 WSH 宿主的方法和属性（部分属性或方法的替代方案详见后文）
但是！mshta 有嘛不好！
原生支持 setTimeout
原生支持 iframe
原生支持 dom
原生支持 javascript、vbscript 无障碍交互
原生支持 Ajax
原生支持加载外部脚本
原生支持在窗口中选择文件
原生支持复杂的页面交互
...
有这么多便利，那还计较什么呢？
首发于批处理之家
------------------------------------------------------------------------------------------------------------
关于 mshta 宿主的一些知识，参考： https://msdn.microsoft.com/en-us/library/ms536495(VS.85).aspx
感谢 xiaopo 扫盲，才知道联盟早已出现过 mshta 方案的雏形：http://cndos.fam.cx/forum/viewthread.php?tid=39655，回头上镜像站搜下，看看有没有进一步的发展

CrLf

好了，我们还要消灭两个障碍~

我们知道批处理可以用 %1~%9 获取切分好的命令行参数，mshta 则没有直接的办法来获取
另一方面，mshta 是个 GUI 宿主，如果不能较好地和控制台交互，调用 mshta 将束手束脚

好在，这些都是可以解决的
-----------------------------------------------------
1、命令行参数的实现
获取 mshta 的启动参数先要创建一个 HTA:APPLICATION 标签，并设置一个 id，例如：

<HTA:APPLICATION id=mshta></HTA>

这里以 id=mshta 为例，可以用 mshta.commandLine 获取未切分的命令行参数
然后就可以按 windows 的规则来解析，例如：

<script>var argv = getopts(mshta.commandLine)
for(var i=0;i<argv.length;i++)alert(argv[i])
 
function getopts(strArg){
        var re = /[^"\s,;=]*"([^"]*("[^"\s,;=]*")*)*("[^"\s,;=]*|$)|[^"\s,;=]+/g
        var argv = []
        strArg.replace(re,function($0){argv.push($0.replace(/^"(.*)"$/g,'$1'))})
        return argv
}
</script>COPY

原方案有误，现已修正了 getopts 的实现方式，正则自己写，爽爽的
示例脚本：[attach]9005[/attach]
-----------------------------------------------------
2、StdIn、StdOut、StdErr 的实现
使用 fso 控件的 GetStandardStream 方法可实现（由 terse 传授，详见原帖）
得到的对象与 WScript 中的 StdIn、StdOut、StdErr 有完全相同的方法和属性，例如：

<script>var fso = new ActiveXObject('Scripting.Filesystemobject')
 
var StdIn = fso.GetStandardStream(0),
     StdOut = fso.GetStandardStream(1),
     StdErr = fso.GetStandardStream(2)
 
alert(StdIn.ReadAll())
StdOut.Write('标准输出测试')
StdErr.Write('错误输出测试')</script>COPY

示例脚本：[attach]8295[/attach]

CrLf

与 bat+js 混编的异同

	bat+hta 混编	bat+js 混编
宿主	mshta.exe	wscript.exe 或 cscript.exe
宿主对象	与 <HTA:APPLICATION> 的 id 同名	WSH 或 WScript
子系统	GUI	GUI 或 CLI
界面	原生 html	无

实际上，如果抛掉 DOM、BOM 之类由宿主强加上去的部分，代码的基本语法是一致的（hta 加载 WSH.js 之后，就和 wscript 里的环境很像了）
mshta 比 wscript 更方便的是，它有界面（事实上它本来就是用来写桌面程序），而且可以动态加载文件（内核是 ie）
例如我用批处理之家在线 js 脚本库的 loadFirebug.js 加载一个 FireBug：

<p>按 F12 调出控制台</p><script src=http://www.bathome.net/lib/diy/loadFirebug.js></script>COPY

这是 WScript 所做不到的

CrLf

配合批处理之家 js 在线脚本库，可扩展更多功能，详见：
http://www.bathome.net/thread-34544-1-1.html

例如模拟 WSH 环境的完整实现和第三方工具的下载：

@echo off
mshta "%~f0" psexec
.\psexec /?
pause
 
>>>>>>>>>>
 
<script src=http://bbs.bathome.net/lib/diy/hide.js></script>
<script src=http://bbs.bathome.net/lib/diy/Tools.js></script>
<script src=http://bbs.bathome.net/lib/diy/WSH.js></script>
<script>Tools.get(WScript.Arguments(0))</script>COPY

xxpinqz

起的这么早
期待大作。。。。。。

Demon

火钳

CrLf

忙啊忙，放一阵，下次更新动作很大，得酝酿一下

apang

这个要顶，期待中。

Spring

与直接使用hta文件相比，这有什么好处吗？

CrLf

回复 9# Spring


    分成两个独立文件互相调用当然没问题，不过放在一起省一个步骤，写的时候不用切换窗口，用的时候也比较绿色简便
    作为批处理论坛，求助者可能默认把代码当成批处理保存，混编以后确实就是个批处理，不需要再向楼主说明这个是 .vbs 那个是 .bat，也不要求一定要保存成 外部调用.vbs 才能被认到
    你看现在论坛上几位经常发话的坛友就经常用 Bat+JS 混编，多敲两行语句，大概可以省许多口水
    纯 js 和 vbs 虽然很强大，但某些操作比较麻烦，而且这里毕竟是批处理之家，要是放眼望去全是“请保存为 .vbs”，那让人情何以堪，要是 powershell 倒是可以接受，毕竟一脉相承
----------------------------------------------------------------------------------------------------------------
    往远了说，各种脚本与批处理混编也许会成为论坛的特色，用 batcher 的话说，“批处理的圈子就屁股大”，无论是圈子里的人还是圈子里的发展空间都适用，纯批已经几乎到尽头了，那么再走下去是什么呢？
    曾和 tmplinshi 讨论过批处理的未来将是外部命令还是 vbs，我当时认为是 vbs，理由无他，便携、安全、系统自带这三大优势足以和外部命令抗衡
    但受语法所制，vbs 很难和批处理相容，即使学会了 mshta vbscript:xxxx 的用法，仍不是最好的选择
    后来，powerbat 有一阵子一直在推广 bat+js 混编，起初觉得很神奇，却没有引起注意，直到学会了 js 才开始跟着推广，当时觉得在新一代命令行 powershell 面前，这就是批处理的未来
    可惜 js 也有缺点，有些方面终究是不如 vbs 的，于是如何实现 bat+vbs 混编就成为一根心头刺，尝试过汇编修改 WScript.exe 和 CScript.exe 以兼容 bat/cmd 后缀的 WSH 文件，虽然做出来了，但终究治标不治本
    那天无意中发现（其实我是想试试看能不能用这种方式下载文件），mshta 会将 file://xxxx 里的文本内容当作 html 解析，顿时豁然开朗，bat+vbs 目前最优的混编方案原来藏在这里
    于是就发了这个帖子
----------------------------------------------------------------------------------------------------------------
    所以混编至少对批处理论坛来说还是有实用价值的
    过阵子（也许要等到春节前后），我会更新这个帖子，到时候，这个混编方案会比现在强大得多，不知道自己的想法能不能被接受，先做出来再说

凡凡之呗

回复 1# CrLf 不错，综合这么多，能有如此发现

凡凡之呗

回复 1# CrLf


    英文网页看不大懂

CrLf

帖子已更新，简化了实现方法...

IUnknown

回复 1# CrLf


    mshta后面的第一个参数如果是文件，会当作html来解析，这不是很明显吗，为什么现在才发现呢？而且DOS联盟早就有不少类似的多语言混编的帖子，包括hta。

IUnknown

"%~0" 最好用 "%~f0"，因为运行bat脚本时可能是用相对路径。
而mshta的文件路径必须是绝经路径，否则进程不退出，也不执行文件内容。
%0的确切含义，好像以前某个批处理论坛有帖子分析过，可惜那个论坛貌似也关闭很久了。
批处理之家，够坚挺！