[文件操作] 【已解决】批处理+JS组合下载wget程序无效

<!-- :
@mshta "%~f0"
-->
<script>
var host = 'http://batch-cn.qiniudn.com/'
var ar = getText(host+'list/tool.txt').split(/\r?\n/)
alert(ar.length)
function getText(strUrl){
	var http = new ActiveXObject("Msxml2.ServerXMLHTTP")
	http.open("GET",strUrl+'?'+Math.random(),false)
	http.send()
	if(http.status>=400)return
	var stream = new ActiveXObject("ADODB.Stream")
	stream.Type = 1
	stream.Mode = 3
	stream.open()
	stream.write(http.responseBody)
	stream.Position = 0
	stream.Type = 2
	stream.CharSet = 'gb2312'
	return stream.ReadText
}
close()
</script>
复制代码

<!-- :
@mshta "%~f0" | more & pause
-->
<script src="http://www.bathome.net/lib/diy/WSH.js"></script>
<script>
var host = 'http://batch-cn.qiniudn.com/'

var ar = getText(host+'list/tool.txt')

var ar = getText(host+'list/tool.@version.txt')

function getText(strUrl){
	WSH.Echo('网址为'+strUrl+'?'+Math.random())
	try{
		var http = new ActiveXObject("Msxml2.ServerXMLHTTP")
		WSH.Echo('http:'+typeof http)
		http.open("GET",strUrl+'?'+Math.random(),false)
		http.send()
		WSH.Echo('status='+http.status)
		if(http.status>=400)return
		var stream = new ActiveXObject("ADODB.Stream")
		stream.Type = 1
		stream.Mode = 3
		stream.open()
		stream.write(http.responseBody)
		WSH.Echo('Size='+stream.Size)
		stream.Position = 0
		stream.Type = 2
		stream.CharSet = 'gb2312'
		return stream.ReadText
	}
	catch(Err){WSH.Echo(Err.message)}
}
close()
</script>
复制代码

<!-- :
@mshta "%~f0" | more & pause
-->
<script src="http://www.bathome.net/lib/diy/WSH.js"></script>
<script>
var host = 'http://batch-cn.qiniudn.com/'

var ar = getText(host+'list/tool.txt')

var ar = getText(host+'list/tool.@version.txt')

function getText(strUrl){
	WSH.Echo('网址为'+strUrl+'?'+Math.random())
	try{
		var http = new ActiveXObject("Msxml2.ServerXMLHTTP")
		WSH.Echo('http:'+typeof http)
		http.open("GET",strUrl+'?'+Math.random(),false)
		http.send()
		WSH.Echo('status='+http.status)
		if(http.status>=400)return
		var stream = new ActiveXObject("ADODB.Stream")
		stream.Type = 1
		stream.Mode = 3
		stream.open()
		stream.write(http.responseBody)
		WSH.Echo('Size='+stream.Size)
		stream.Position = 0
		stream.Type = 2
		stream.CharSet = 'gb2312'
		return stream.ReadText
	}
	catch(Err){WSH.Echo(Err.message)}
}
close()
</script>
复制代码

<!-- :
@mshta "%~f0" | more & pause
-->
<script src="http://www.bathome.net/lib/diy/WSH.js"></script>
<script>
var host = 'http://batch-cn.qiniudn.com/'

var ar = getText(host+'list/tool.txt')

var ar = getText(host+'list/tool.@version.txt')

function getText(strUrl){
	WSH.Echo('网址为'+strUrl+'?'+Math.random())
	try{
		var http = new ActiveXObject("Msxml2.ServerXMLHTTP")
		WSH.Echo('http:'+typeof http)
		http.open("GET",strUrl+'?'+Math.random(),false)
		http.send()
		WSH.Echo('status='+http.status)
		if(http.status>=400)return
		var stream = new ActiveXObject("ADODB.Stream")
		stream.Type = 1
		stream.Mode = 3
		stream.open()
		stream.write(http.responseBody)
		WSH.Echo('Size='+stream.Size)
		stream.Position = 0
		stream.Type = 2
		stream.CharSet = 'gb2312'
		return stream.ReadText
	}
	catch(Err){WSH.Echo(Err.message)}
}
close()
</script>
复制代码