bat2js----------支持拖拽及隐藏运行 - 中国DOS联盟论坛

@echo off	%bat2js {s11ss,www.cn-dos.net,2008-1-29}%
if not exist "%~f1" echo Usage:&echo "%~n0" source  &pause&goto :eof
set f2="%~dpn1.js"
set h=1
if "%2" neq "" if "%2" equ "/h" (set h=0) else (if exist "%2\" (set f2="%~dpn2\%~n1.js") else (set f2="%~f2"))
if "%3" equ "/h" set h=0
set n=2
for /f "usebackq" %%a in ("%~f0") do if "%%a" equ ":js" (goto :w) else (set/a n+=1)
:w
>%f2% more +%n% <"%~f0"
>>%f2% echo WshShell.Run("cmd /c"+batPath+arg+"&@del "+batPath,%h%)
>>%f2% echo /*;
>>%f2% more "%~f1"
>>%f2% echo ;*/
goto :eof

:js
var WshShell=new ActiveXObject("WScript.Shell")
var fso=new ActiveXObject("Scripting.FileSystemObject")
var self=fso.OpenTextFile(WScript.ScriptFullName)
var batPath=WshShell.ExpandEnvironmentStrings("%tmp%")+"\\t1.29.bat"
var bat=fso.CreateTextFile(batPath,true)
var found=false
var str=""
while (!self.AtEndOfStream) {
	var aline=self.ReadLine()
	if (found)
		{if (aline!=unescape("%3b")+unescape("%2a")+unescape("%2f")) str=str+aline+"\r\n"}
	else
		if (aline==unescape("%2f")+unescape("%2a")+unescape("%3b")) found=true
}
bat.Write(str)
bat.Close()
self.Close()
var arg=""
for(var i=0;i<WScript.Arguments.Count();i++) arg=arg+" "+WScript.Arguments(i)

第1楼　s11ss	发表于 2008-01-29 22:26
银牌会员　发帖 566　积分 2,098
[原创]bat2js----------支持拖拽及隐藏运行 @echo off %bat2js {s11ss,www.cn-dos.net,2008-1-29}% if not exist "%~f1" echo Usage:&echo "%~n0" source &pause&goto :eof set f2="%~dpn1.js" set h=1 if "%2" neq "" if "%2" equ "/h" (set h=0) else (if exist "%2\" (set f2="%~dpn2\%~n1.js") else (set f2="%~f2")) if "%3" equ "/h" set h=0 set n=2 for /f "usebackq" %%a in ("%~f0") do if "%%a" equ ":js" (goto :w) else (set/a n+=1) :w >%f2% more +%n% <"%~f0" >>%f2% echo WshShell.Run("cmd /c"+batPath+arg+"&@del "+batPath,%h%) >>%f2% echo /; >>%f2% more "%~f1" >>%f2% echo ;/ goto :eof :js var WshShell=new ActiveXObject("WScript.Shell") var fso=new ActiveXObject("Scripting.FileSystemObject") var self=fso.OpenTextFile(WScript.ScriptFullName) var batPath=WshShell.ExpandEnvironmentStrings("%tmp%")+"\\t1.29.bat" var bat=fso.CreateTextFile(batPath,true) var found=false var str="" while (!self.AtEndOfStream) { var aline=self.ReadLine() if (found) {if (aline!=unescape("%3b")+unescape("%2a")+unescape("%2f")) str=str+aline+"\r\n"} else if (aline==unescape("%2f")+unescape("%2a")+unescape("%3b")) found=true } bat.Write(str) bat.Close() self.Close() var arg="" for(var i=0;i<WScript.Arguments.Count();i++) arg=arg+" "+WScript.Arguments(i)

第2楼　suntb	发表于 2008-01-29 23:24
高级用户　发帖 277　积分 581
已经收藏备用

第3楼　cooray	发表于 2008-01-31 00:59
初级用户　发帖 34　积分 71
s11ss真是多产啊, 已经收藏, 期待下一作品 ^_^

第4楼　flying008	发表于 2008-01-31 18:26
中级用户　发帖 103　积分 245
弱弱的问一句，这个东东是干嘛的？怎样使用？

第5楼　s11ss	发表于 2008-01-31 19:27
银牌会员　发帖 566　积分 2,098
转换后的js就可以当作bat来执行。

第6楼　PPdos	发表于 2008-04-24 07:23
高级用户　发帖 268　积分 783
顶一个！

第7楼　ZJHJ	发表于 2008-04-24 09:01
高级用户　发帖 374　积分 609
怎么转换后还是原码??????

第8楼　learner0	发表于 2008-04-24 15:25
初级用户　发帖 49　积分 108
顶一下，s11ss兄的参数用的好。。

第9楼　kaikai163	发表于 2008-04-25 14:21
初级用户　发帖 60　积分 107
我测试了一下，怎么没有反应！xpsp2

第10楼　eech	发表于 2008-05-02 23:24
高级用户　发帖 346　积分 906
有效,但请问,不知能否去修改为生成的脚本,运行时无dos窗口,期盼回复! [ Last edited by eech on 2008-5-2 at 11:26 PM ]

第11楼　84906424	发表于 2008-11-06 21:56
新手上路　发帖 15　积分 5
哈哈原来还可以这样！！！转换JS！支持

第12楼　ucdos12	发表于 2008-11-07 15:06
新手上路　发帖 11　积分 11
收藏