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

447219071

前段时间,有大侠帮我解决了批处理配合js实现自动下载wget程序到本地系统.
当时中间的电脑确实实现了,但今天到左右两边的电脑测试就通不过了
先提供下载代码

<!-- :
@echo off
mshta "%~f0"
goto run
-->
 
<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>COPY

然后出现如下图所示错误提示:

如果出现这种情况,是不是官方的JS有缺陷,还是我本身的电脑缺少什么组件,又怎么解决呢?请大侠指教!

都重新装了IE8的

447219071

回复 2# CrLf


   能直接读取这个TXT

447219071

回复 4# CrLf


    我的系统是XP SP3的
刚试了这个,没有错误提示
返回结果为:
网址为http://batch-cn.qiniudn.com/list/tool.txt?0.7521945891672119
httpbect
staus=403
网址为http://batch-cn.qiniudn.com/list ... ?0.4043633657653702
http:obect
staus=403

<!-- :
@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>COPY

这个能配合下载wget.exe到本地c:\windows\syste32文件夹内么

447219071

回复 8# CrLf


    返回结果为:
返回结果为:
网址为http://batch-cn.qiniudn.com/list/tool.txt?0.7521945891672119
httpbject
status=403
网址为http://batch-cn.qiniudn.com/list ... ?0.4043633657653702
http:object
status=403

447219071

回复 10# CrLf


    网址为http://batch-cn.qiniudn.com/list/tool.txt?0.6382176056701442
httpbject
status=403
网址为http://batch-cn.qiniudn.com/list ... 0.23986206796689885
http:object
status=403

447219071

回复 12# CrLf


    网址为http://batch-cn.qiniudn.com/list/tool.txt?0.6527020354398203
httpbject
status=200
size=41021
网址为http://batch-cn.qiniudn.com/list ... @0.5713456774284609
http:object
status=200
size=41668

447219071

回复 14# CrLf


    果然可以了，难道是你的这个代码起作用了？

<!-- :
@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>COPY

如果是这样，是不是还要配合这个先才能适合我的这个XP SP3系统？
请问怎么精简合成呢？》

447219071

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

447219071

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

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=unknowCOPY

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

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=unknowCOPY

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

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
获取成功
获取成功COPY

447219071

回复 23# CrLf


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

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>COPY

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

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

447219071

回复 2# CrLf

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

而在XP 32位下出现如下图

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

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

447219071

回复 16# CrLf


还没更新吧，运行提示：
当前页面脚本发生错误
行:0
cher:0
错误:script error
代码:0


点确定后提示：
当前页面脚本发生错误
行:11
cher:1
错误:“tools”未定义
代码:0