CrLf

网页能读取这个列表吗： http://batch-cn.qiniudn.com/list/tool.txt

可以的话试一下运行下面这个返回的数字是多少：

<!-- :
@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>
复制代码

CrLf

回复 3# 447219071


别截图，文字描述就好了，论坛空间宝贵，一张图顶一堆代码呢
试试这个，文字可以右键标记复制，或者自行重定向到文件再复制：

<!-- :
@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>
复制代码

CrLf

一种可能是 getText 得不到 tool.txt 的列表
另一种可能是你的 <script> 中包含 offline_Tools 属性，说明是离线使用，但运行时却无法在当前路径下找到 tool.txt

CrLf

回复 7# 447219071


    我是问你回显是什么。。。。。。。

CrLf

回复 9# 447219071


    现在试试

CrLf

回复 11# 447219071


    已关防盗链，现在试试看，要是还不行我也搞不懂什么原因了

CrLf

回复 13# 447219071


    果然是防盗链的原因，现在你再试试顶楼代码应该可以运行了。你们那是什么环境，怎么会这么奇葩
    防盗链就暂时关闭着吧，回头发现恶意下载的情况再开启

CrLf

和代码无关，只是在七牛云的空间里关了防盗链而已

CrLf

回复 17# 447219071


不知道是什么原因造成的，先排查下，你试试在三台电脑上分别运行这个 bat 是什么结果，并告诉我之前是哪两台不能用：

<!-- :
@echo off
mshta "%~f0" | more
pause & exit
-->
<script src='http://www.bathome.net/lib/diy/hide.js'></script>
<script src='http://www.bathome.net/lib/diy/WSH.js'></script>
<script>
WSH.Echo(getText('http://121.40.138.166/REFERER.php').replace(/\<br \/\>/g,'\r\n'))
close()

function getText(strUrl){
	try{var http = new ActiveXObject("Msxml2.ServerXMLHTTP")}
	catch(Err){
		try{var http = new ActiveXObject("Msxml2.XMLHTTP")}
		catch(Err){
			var http = new ActiveXObject("Microsoft.XMLHTTP")
		}
	}
	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
}
</script>
复制代码

CrLf

回复 20# 447219071


我又把防盗链开了，你再试试这个：

<!-- :
@echo off
mshta "%~f0" | more
pause & exit
-->
<script src='http://www.bathome.net/lib/diy/hide.js'></script>
<script src='http://www.bathome.net/lib/diy/WSH.js'></script>
<script>
WSH.Echo(getText('http://121.40.138.166/REFERER.php').replace(/\<br \/\>/g,'\r\n'))
WSH.Echo(getText('http://batch-cn.qiniudn.com/list/tool.@version.txt')?'获取成功 ':'获取失败 ')
WSH.Echo(getText('http://batch-cn.qiniudn.com/tool/gawk.exe')?'获取成功 ':'获取失败 ')
close()

function getText(strUrl){
	var http = newcom("WinHttp.WinHttpRequest.5.1")
	if(!http)http = newcom("Msxml2.ServerXMLHTTP")
	if(!http)http = newcom("Msxml2.XMLHTTP")
	if(!http)http = newcom("Microsoft.XMLHTTP")

	http.open("GET",strUrl+'?'+Math.random(),false)
	http.setRequestHeader('Referer', 'http://bathome.tools.js/')
	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
}

function newcom(comName){
	try{return new ActiveXObject(comName)}
	catch(Err){}
}
</script>
复制代码

这个要是运行起来没问题的话，等站长更新 Tools.js 后就可以正常下载了

CrLf

回复 22# 447219071


    这说明新方案可行，你现在试试顶楼代码还有问题吗

CrLf

回复 24# 447219071


    不算bug，只是你那里不知道为什么会设置 referer 为 hta 路径，导致被防盗链
    目前是改用 winhttp 组件来发送请求，不过这个组件不支持异步onreadystatechange事件，异步功能可能有点麻烦，所以异步的情况仍使用 serverxmlhttp 旧方案，就没有同步那么通用了

CrLf

等一天，昨天更新 Tools.js 时有个笔误，导致不会执行下载，等站长更新后即可修复

CrLf

已修复

CrLf

回复 29# 447219071


    春节改动 Tools.js 时遗漏了一个 {，所以出错了，已提交修改，等站长更新即可