CrLf

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

447219071

回复 16# CrLf
这样不是办法
防盗链是为了原创而进行的保护,必不可少的
能否在官方tool.js上做下完善解决这种情况?

447219071

我现在在百度上搜索我想要的关键词,
官方网站是排在第一的,排名极棒

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

447219071

回复 19# CrLf
两边的电脑i不能运行之前的代码
执行这批处理结果如下：

request_method=get
http_user_agent=mozilla/4.0(compatible;win32;winhttp.winhttprequest.5)
http_dnt=unknow
http_referer=file://c:\documents and setting\administrator\桌面\1.bat
http_accept_encoding=unknow
http_accept_language=zh-cn
http_cookie=unknow
复制代码

而中间可以运行之前的代码
执行这批处理结果如下：

request_method=get
http_user_agent=mozilla/4.0(compatible;win32;winhttp.winhttprequest.5)
http_dnt=unknow
http_referer=unknow
http_accept_encoding=unknow
http_accept_language=zh-cn
http_cookie=unknow
复制代码

建议将执行结果输出到文本文件吧，也好复制

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 后就可以正常下载了

447219071

回复 21# CrLf

request_method=get
http_user_agent=mozilla/4.0(compatible;win32;winhttp.winhttprequest.5)
http_dnt=unknow
http_referer=http://bathome.tools.js/
http_accept_encoding=unknow
http_accept_language=unknow
http_cookie=unknow
获取成功
获取成功
复制代码

CrLf

回复 22# 447219071


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

447219071

回复 23# CrLf


    果然行了，这说明我反映的这确实是官方的BUG ，这下完善了，以后有问题我会反馈的

CrLf

回复 24# 447219071


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

447219071

回复 2# CrLf

<^!-- :
@echo off
mshta "%~f0"
goto ok
-->
<script src=http://bbs.bathome.net/lib/diy/hide.js></script>
<script src=http://bbs.bathome.net/lib/diy/Tools.js></script>
<script>
Tools.get('wget','c:/windows/system32')
</script>
复制代码

今天用上面的代码，却没有反应了
难道官方改了接口或文件地址

我的系统环境XP SP3
运行这个会在任务栏一直增加无数个mshta进程

CrLf

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

CrLf

已修复

447219071

回复 2# CrLf

今天在WIN7 32位系统中运行时出现如下图

而在XP 32位下出现如下图

前几个月还没有问题，今天试了居然出错了

行：11
Cher:1
错误：“Tools”未定义
代码：0

CrLf

回复 29# 447219071


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