!-- : bathome
@echo off
echo I'm Batch!
mshta "file://%~f0"
pauseexit
使用注釋標簽囊括批處理部分，條件是批處理部分不能出現(xiàn)注釋標簽的結束符
-->
script language=vbs>
Msgbox "I'm VBScript!"
/script>
script>
alert("I'm JavaScript!")
/script>
script>close()/script>

@echo off
echo I'm Batch!
mshta "%~f0" nul
pauseexit
批處理部分之后要加上一串 >，數(shù)量要比前文出現(xiàn)的 更多，mshta 才能區(qū)分哪些是標簽
而且前文出現(xiàn)從文件獲取重定向輸入的時候，建議加上雙引號，例如 "script"
>>>>>>>>>>>>>>
script language=vbs>
Msgbox "I'm VBScript!"
/script>
script>
alert("I'm JavaScript!")
/script>
script>close()/script>

@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
pauseexit

:!--
::::::::::::::::::::::::::::::::BAT::::::::::::::::::::::::::::::::

::::::::1.執(zhí)行HTML代碼之前的BAT代碼::::::::
@echo off
call :e Starting mshta...
pause
::::::::1.執(zhí)行HTML代碼之前的BAT代碼::::::::

::執(zhí)行HTML代碼：
start mshta %0

::::::::2.執(zhí)行HTML代碼之后的BAT代碼::::::::
call :e Mshta is executing HTML codes...
pause
::::::::2.執(zhí)行HTML代碼之后的BAT代碼::::::::

::退出BAT：
exit/b

:::::::BAT函數(shù)定義部分:::::::
:e
echo %*
goto :eof
:::::::BAT函數(shù)定義部分:::::::

::::::::::::::::::::::::::::::::BAT::::::::::::::::::::::::::::::::
-->

!--此句用來清除第一行的:-->
script>document.body.innerText=""/script>

!--------------------------HTML-------------------------->
body onkeypress=window.close()>
hr color=red>
marquee>font color=green>HTML Codes/font>/marquee>
hr color=red>
!--------------------------HTML-------------------------->

!-- BAT HTML {s11ss@www.cn-dos.net/forum 2008-4-22}
思路：當此文件被當作BAT文件執(zhí)行時，未執(zhí)行到HTML代碼部分時就已退出；
當此文件被當作HTML文件執(zhí)行時，BAT代碼部分被注釋，不會被執(zhí)行。
-->