Board logo

标题: [文件操作] 【已解决】批处理+JS组合下载wget程序无效 [打印本页]
作者: 447219071    时间: 2015-10-24 16:23     标题: 【已解决】批处理+JS组合下载wget程序无效

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

  2. @echo off

  3. mshta "%~f0"

  4. goto run

  5. -->

  6. 

  7. <script src=http://bbs.bathome.net/lib/diy/hide.js></script>

  8. <script src=http://bbs.bathome.net/lib/diy/Tools.js></script>

  9. 

  10. <script>

  11. Tools.get('wget','c:/windows/system32')

  12. </script>
复制代码
然后出现如下图所示错误提示:

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

都重新装了IE8的
作者: CrLf    时间: 2015-10-24 16:49

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

可以的话试一下运行下面这个返回的数字是多少：
  1. <!-- :

  2. @mshta "%~f0"

  3. -->

  4. <script>

  5. var host = 'http://batch-cn.qiniudn.com/'

  6. var ar = getText(host+'list/tool.txt').split(/\r?\n/)

  7. alert(ar.length)

  8. function getText(strUrl){

  9. 	var http = new ActiveXObject("Msxml2.ServerXMLHTTP")

  10. 	http.open("GET",strUrl+'?'+Math.random(),false)

  11. 	http.send()

  12. 	if(http.status>=400)return

  13. 	var stream = new ActiveXObject("ADODB.Stream")

  14. 	stream.Type = 1

  15. 	stream.Mode = 3

  16. 	stream.open()

  17. 	stream.write(http.responseBody)

  18. 	stream.Position = 0

  19. 	stream.Type = 2

  20. 	stream.CharSet = 'gb2312'

  21. 	return stream.ReadText

  22. }

  23. close()

  24. </script>
复制代码
作者: 447219071    时间: 2015-10-24 17:07

回复 2# CrLf


   能直接读取这个TXT
作者: CrLf    时间: 2015-10-24 17:46

本帖最后由 CrLf 于 2015-10-24 19:05 编辑

回复 3# 447219071


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

  2. @mshta "%~f0" | more & pause

  3. -->

  4. <script src="http://www.bathome.net/lib/diy/WSH.js"></script>

  5. <script>

  6. var host = 'http://batch-cn.qiniudn.com/'

  7. 

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

  9. 

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

  11. 

  12. function getText(strUrl){

  13. 	WSH.Echo('网址为'+strUrl+'?'+Math.random())

  14. 	try{

  15. 		var http = new ActiveXObject("Msxml2.ServerXMLHTTP")

  16. 		WSH.Echo('http:'+typeof http)

  17. 		http.open("GET",strUrl+'?'+Math.random(),false)

  18. 		http.send()

  19. 		WSH.Echo('status='+http.status)

  20. 		if(http.status>=400)return

  21. 		var stream = new ActiveXObject("ADODB.Stream")

  22. 		stream.Type = 1

  23. 		stream.Mode = 3

  24. 		stream.open()

  25. 		stream.write(http.responseBody)

  26. 		WSH.Echo('Size='+stream.Size)

  27. 		stream.Position = 0

  28. 		stream.Type = 2

  29. 		stream.CharSet = 'gb2312'

  30. 		return stream.ReadText

  31. 	}

  32. 	catch(Err){WSH.Echo(Err.message)}

  33. }

  34. close()

  35. </script>
复制代码
作者: 依山居    时间: 2015-10-24 18:54

win7 x64 IE11  运行一楼代码正常。
作者: CrLf    时间: 2015-10-24 19:10

本帖最后由 CrLf 于 2015-10-24 19:38 编辑

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

本帖最后由 447219071 于 2015-10-24 19:56 编辑

回复 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
  1. <!-- :

  2. @mshta "%~f0" | more & pause

  3. -->

  4. <script src="http://www.bathome.net/lib/diy/WSH.js"></script>

  5. <script>

  6. var host = 'http://batch-cn.qiniudn.com/'

  7. 

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

  9. 

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

  11. 

  12. function getText(strUrl){

  13. 	WSH.Echo('网址为'+strUrl+'?'+Math.random())

  14. 	try{

  15. 		var http = new ActiveXObject("Msxml2.ServerXMLHTTP")

  16. 		WSH.Echo('http:'+typeof http)

  17. 		http.open("GET",strUrl+'?'+Math.random(),false)

  18. 		http.send()

  19. 		WSH.Echo('status='+http.status)

  20. 		if(http.status>=400)return

  21. 		var stream = new ActiveXObject("ADODB.Stream")

  22. 		stream.Type = 1

  23. 		stream.Mode = 3

  24. 		stream.open()

  25. 		stream.write(http.responseBody)

  26. 		WSH.Echo('Size='+stream.Size)

  27. 		stream.Position = 0

  28. 		stream.Type = 2

  29. 		stream.CharSet = 'gb2312'

  30. 		return stream.ReadText

  31. 	}

  32. 	catch(Err){WSH.Echo(Err.message)}

  33. }

  34. close()

  35. </script>
复制代码
这个能配合下载wget.exe到本地c:\windows\syste32文件夹内么
作者: CrLf    时间: 2015-10-24 19:54

回复 7# 447219071


    我是问你回显是什么。。。。。。。
作者: 447219071    时间: 2015-10-24 19:58

回复 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
作者: CrLf    时间: 2015-10-24 20:25

回复 9# 447219071


    现在试试
作者: 447219071    时间: 2015-10-24 20:50

回复 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
作者: CrLf    时间: 2015-10-24 20:57

回复 11# 447219071


    已关防盗链，现在试试看，要是还不行我也搞不懂什么原因了
作者: 447219071    时间: 2015-10-24 21:22

回复 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
作者: CrLf    时间: 2015-10-24 22:16

回复 13# 447219071


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

回复 14# CrLf


    果然可以了，难道是你的这个代码起作用了？
  1. <!-- :

  2. @mshta "%~f0" | more & pause

  3. -->

  4. <script src="http://www.bathome.net/lib/diy/WSH.js"></script>

  5. <script>

  6. var host = 'http://batch-cn.qiniudn.com/'

  7. 

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

  9. 

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

  11. 

  12. function getText(strUrl){

  13. 	WSH.Echo('网址为'+strUrl+'?'+Math.random())

  14. 	try{

  15. 		var http = new ActiveXObject("Msxml2.ServerXMLHTTP")

  16. 		WSH.Echo('http:'+typeof http)

  17. 		http.open("GET",strUrl+'?'+Math.random(),false)

  18. 		http.send()

  19. 		WSH.Echo('status='+http.status)

  20. 		if(http.status>=400)return

  21. 		var stream = new ActiveXObject("ADODB.Stream")

  22. 		stream.Type = 1

  23. 		stream.Mode = 3

  24. 		stream.open()

  25. 		stream.write(http.responseBody)

  26. 		WSH.Echo('Size='+stream.Size)

  27. 		stream.Position = 0

  28. 		stream.Type = 2

  29. 		stream.CharSet = 'gb2312'

  30. 		return stream.ReadText

  31. 	}

  32. 	catch(Err){WSH.Echo(Err.message)}

  33. }

  34. close()

  35. </script>
复制代码
如果是这样，是不是还要配合这个先才能适合我的这个XP SP3系统？
请问怎么精简合成呢？》
作者: CrLf    时间: 2015-10-25 23:12

和代码无关，只是在七牛云的空间里关了防盗链而已
作者: 447219071    时间: 2015-10-25 23:54

本帖最后由 447219071 于 2015-10-25 23:57 编辑

回复 16# CrLf
这样不是办法
防盗链是为了原创而进行的保护,必不可少的
能否在官方tool.js上做下完善解决这种情况?
作者: 447219071    时间: 2015-10-25 23:56

我现在在百度上搜索我想要的关键词,
官方网站是排在第一的,排名极棒
作者: CrLf    时间: 2015-10-26 00:55

本帖最后由 CrLf 于 2015-10-26 01:05 编辑

回复 17# 447219071


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

  2. @echo off

  3. mshta "%~f0" | more

  4. pause & exit

  5. -->

  6. <script src='http://www.bathome.net/lib/diy/hide.js'></script>

  7. <script src='http://www.bathome.net/lib/diy/WSH.js'></script>

  8. <script>

  9. WSH.Echo(getText('http://121.40.138.166/REFERER.php').replace(/\<br \/\>/g,'\r\n'))

  10. close()

  11. 

  12. function getText(strUrl){

  13. 	try{var http = new ActiveXObject("Msxml2.ServerXMLHTTP")}

  14. 	catch(Err){

  15. 		try{var http = new ActiveXObject("Msxml2.XMLHTTP")}

  16. 		catch(Err){

  17. 			var http = new ActiveXObject("Microsoft.XMLHTTP")

  18. 		}

  19. 	}

  20. 	http.open("GET",strUrl+'?'+Math.random(),false)

  21. 	http.send()

  22. 	if(http.status>=400)return

  23. 	var stream = new ActiveXObject("ADODB.Stream")

  24. 	stream.Type = 1

  25. 	stream.Mode = 3

  26. 	stream.open()

  27. 	stream.write(http.responseBody)

  28. 	stream.Position = 0

  29. 	stream.Type = 2

  30. 	stream.CharSet = 'gb2312'

  31. 	return stream.ReadText

  32. }

  33. </script>
复制代码
作者: 447219071    时间: 2015-10-26 10:36

本帖最后由 447219071 于 2015-10-26 10:42 编辑

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

  2. http_user_agent=mozilla/4.0(compatible;win32;winhttp.winhttprequest.5)

  3. http_dnt=unknow

  4. http_referer=file://c:\documents and setting\administrator\桌面\1.bat

  5. http_accept_encoding=unknow

  6. http_accept_language=zh-cn

  7. http_cookie=unknow
复制代码
而中间可以运行之前的代码
执行这批处理结果如下：
  1. request_method=get

  2. http_user_agent=mozilla/4.0(compatible;win32;winhttp.winhttprequest.5)

  3. http_dnt=unknow

  4. http_referer=unknow

  5. http_accept_encoding=unknow

  6. http_accept_language=zh-cn

  7. http_cookie=unknow
复制代码
建议将执行结果输出到文本文件吧，也好复制
作者: CrLf    时间: 2015-10-26 17:46

本帖最后由 CrLf 于 2015-10-26 19:57 编辑

回复 20# 447219071


我又把防盗链开了，你再试试这个：
  1. <!-- :

  2. @echo off

  3. mshta "%~f0" | more

  4. pause & exit

  5. -->

  6. <script src='http://www.bathome.net/lib/diy/hide.js'></script>

  7. <script src='http://www.bathome.net/lib/diy/WSH.js'></script>

  8. <script>

  9. WSH.Echo(getText('http://121.40.138.166/REFERER.php').replace(/\<br \/\>/g,'\r\n'))

  10. WSH.Echo(getText('http://batch-cn.qiniudn.com/list/tool.@version.txt')?'获取成功 ':'获取失败 ')

  11. WSH.Echo(getText('http://batch-cn.qiniudn.com/tool/gawk.exe')?'获取成功 ':'获取失败 ')

  12. close()

  13. 

  14. function getText(strUrl){

  15. 	var http = newcom("WinHttp.WinHttpRequest.5.1")

  16. 	if(!http)http = newcom("Msxml2.ServerXMLHTTP")

  17. 	if(!http)http = newcom("Msxml2.XMLHTTP")

  18. 	if(!http)http = newcom("Microsoft.XMLHTTP")

  19. 

  20. 	http.open("GET",strUrl+'?'+Math.random(),false)

  21. 	http.setRequestHeader('Referer', 'http://bathome.tools.js/')

  22. 	http.send()

  23. 	if(http.status>=400)return

  24. 

  25. 	var stream = new ActiveXObject("ADODB.Stream")

  26. 	stream.Type = 1

  27. 	stream.Mode = 3

  28. 	stream.open()

  29. 	stream.write(http.responseBody)

  30. 	stream.Position = 0

  31. 	stream.Type = 2

  32. 	stream.CharSet = 'gb2312'

  33. 	return stream.ReadText

  34. }

  35. 

  36. function newcom(comName){

  37. 	try{return new ActiveXObject(comName)}

  38. 	catch(Err){}

  39. }

  40. </script>
复制代码
这个要是运行起来没问题的话，等站长更新 Tools.js 后就可以正常下载了
作者: 447219071    时间: 2015-10-26 20:05

回复 21# CrLf 
  1. request_method=get

  2. http_user_agent=mozilla/4.0(compatible;win32;winhttp.winhttprequest.5)

  3. http_dnt=unknow

  4. http_referer=http://bathome.tools.js/

  5. http_accept_encoding=unknow

  6. http_accept_language=unknow

  7. http_cookie=unknow

  8. 获取成功

  9. 获取成功
复制代码
作者: CrLf    时间: 2015-10-26 21:42

回复 22# 447219071


    这说明新方案可行，你现在试试顶楼代码还有问题吗
作者: 447219071    时间: 2015-10-27 13:39

回复 23# CrLf


    果然行了，这说明我反映的这确实是官方的BUG ，这下完善了，以后有问题我会反馈的
作者: CrLf    时间: 2015-10-27 17:28

本帖最后由 CrLf 于 2015-10-27 17:31 编辑

回复 24# 447219071


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

回复 2# CrLf 
  1. <^!-- :

  2. @echo off

  3. mshta "%~f0"

  4. goto ok

  5. -->

  6. <script src=http://bbs.bathome.net/lib/diy/hide.js></script>

  7. <script src=http://bbs.bathome.net/lib/diy/Tools.js></script>

  8. <script>

  9. Tools.get('wget','c:/windows/system32')

  10. </script>
复制代码
今天用上面的代码，却没有反应了
难道官方改了接口或文件地址

我的系统环境XP SP3
运行这个会在任务栏一直增加无数个mshta进程
作者: CrLf    时间: 2015-12-1 13:23

等一天，昨天更新 Tools.js 时有个笔误，导致不会执行下载，等站长更新后即可修复
作者: CrLf    时间: 2015-12-1 20:58

已修复
作者: 447219071    时间: 2016-2-15 22:57

回复 2# CrLf

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

而在XP 32位下出现如下图

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

行：11
Cher:1
错误：“Tools”未定义
代码：0
作者: CrLf    时间: 2016-2-16 02:01

回复 29# 447219071


    春节改动 Tools.js 时遗漏了一个 {，所以出错了，已提交修改，等站长更新即可
作者: 447219071    时间: 2016-2-17 22:25

回复 16# CrLf


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


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



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2