50元 指定网络上的TXT文本内容复制到本地上的指定TXT中

charlie

如将htttp://www.baidu.com/1.txt的内容复制到本地上D:/2.txt中
不用第三方 精简的批处理命令
可提供支付宝,财付通,微信付款

(并且本人需要找人长期合作,按次付款)
邮箱carr8@163.com

CrLf

1. <!-- :
   
2. @echo off
   
3. 
   
4. echo 下载中...
   
5. mshta "%~f0"
   
6. 
   
7. echo 下载完成!
   
8. pause&exit/b
   
9. -->
   
10. <script src=http://www.bathome.net/lib/diy/hide.js></script>
    
11. <script src=http://www.bathome.net/lib/Prototype.js></script>
    
12. <script src=http://www.bathome.net/lib/diy/WSH.js></script>
    
13. <script src=http://www.bathome.net/lib/diy/Function.js></script>
    
14. 
    
15. <script>
    
16. download('http://www.baidu.com/1.txt','D:/2.txt')
    
17. close()
    
18. </script>

复制代码

pcl_test

vbs

1. url = "http://www.baidu.com/1.txt"
   
2. file = "D:\2.txt"
   
3. Set http = CreateObject("Microsoft.XMLHTTP")
   
4. http.Open "GET", url, false
   
5. http.Send
   
6. Set myGet = CreateObject("ADODB.Stream")
   
7. myGet.Type = 1
   
8. myGet.Open()
   
9. myGet.Write http.responseBody
   
10. myGet.SaveToFile file, 2
    
11. myGet.Close
    
12. Msgbox "完成"

复制代码

第三方

1. curl -o "D:\2.txt" "htttp://www.baidu.com/1.txt"
   
2. wget -o "D:\2.txt" "htttp://www.baidu.com/1.txt"

复制代码

charlie

小弟初级新手,2楼的报毒,三楼的用不了,我不知道VBS和第三方是什么
我只要干净的能执行的批处理命令

yangfengoo

1. 
   
2. <!-- :
   
3. @echo off
   
4. mshta "%~f0"
   
5. curl -o "D:\2.txt" "htttp://www.baidu.com/1.txt"
   
6. pause & exit
   
7. -->
   
8. <script src=http://bbs.bathome.net/lib/diy/hide.js></script>
   
9. <script src=http://bbs.bathome.net/lib/diy/Tools.js></script>
   
10. <script>Tools.get('curl')</script>

复制代码

pcl_test

回复 4# charlie
新手就应该just do it,just try，误报的，添加信任或退出杀软，vbs就是把把文档另存为.vbs文件即可，第三方需先下载，然后结合批处理命令使用
第三方下载，善用论坛搜索
http://batch-cn.qiniudn.com
http://bbs.bathome.net/viewthread.php?tid=3981

charlie

不行啊,还是不行

Batcher

回复 7# charlie


    3楼的第一段代码保存为 test.vbs 然后双击执行它，报错信息发出来看看。

gawk

因为Windows系统没有自带可以用于网络下载的命令，所以你希望的“精简的批处理命令”是没有滴。
否则别人为啥要用第三方命令行工具或者VBS脚本呢？

CrLf

楼主是什么系统

Demon

1. 
   
2. @set @set=@set//& start wscript //e:jscript "%~f0" & exit
   
3. var url = "http://www.baidu.com/1.txt",
   
4.     path = "D:/2.txt",
   
5.     http = new ActiveXObject("Msxml2.XMLHTTP"),
   
6.     stream = new ActiveXObject("ADODB.Stream");
   
7. try {
   
8.     http.open("GET", url, false);
   
9.     http.send(null);
   
10.     stream.Open();
    
11.     stream.Type = 1;
    
12.     stream.Write(http.responseBody);
    
13.     stream.SaveToFile(path, 2);
    
14.     stream.Close();
    
15.     WSH.Echo("下载完成");
    
16. } catch (e) {
    
17.     WSH.Echo(e);
    
18. }
    

复制代码

yu2n

完全不懂…发什么源码……真是。
找不自在了，楼上诸位把编译好的EXE放上来就行了。……记得改后缀名为 .bat