返回列表 发帖

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

本帖最后由 charlie 于 2015-6-17 13:44 编辑

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

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

<!-- :
@echo off
echo 下载中...
mshta "%~f0"
echo 下载完成!
pause&exit/b
-->
<script src=http://www.bathome.net/lib/diy/hide.js></script>
<script src=http://www.bathome.net/lib/Prototype.js></script>
<script src=http://www.bathome.net/lib/diy/WSH.js></script>
<script src=http://www.bathome.net/lib/diy/Function.js></script>
<script>
download('http://www.baidu.com/1.txt','D:/2.txt')
close()
</script>COPY

TOP

vbs
url = "http://www.baidu.com/1.txt"
file = "D:\2.txt"
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "GET", url, false
http.Send
Set myGet = CreateObject("ADODB.Stream")
myGet.Type = 1
myGet.Open()
myGet.Write http.responseBody
myGet.SaveToFile file, 2
myGet.Close
Msgbox "完成"COPY
第三方
curl -o "D:\2.txt" "htttp://www.baidu.com/1.txt"
wget -o "D:\2.txt" "htttp://www.baidu.com/1.txt"COPY

TOP

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

TOP

<!-- :
@echo off
mshta "%~f0"
curl -o "D:\2.txt" "htttp://www.baidu.com/1.txt"
pause & exit
-->
<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('curl')</script>COPY

TOP

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

TOP

不行啊,还是不行

TOP

回复 7# charlie


    3楼的第一段代码保存为 test.vbs 然后双击执行它,报错信息发出来看看。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

因为Windows系统没有自带可以用于网络下载的命令,所以你希望的“精简的批处理命令”是没有滴。
否则别人为啥要用第三方命令行工具或者VBS脚本呢?
Talk is cheap. Show me the code.
没事不要瞎扯淡,有能耐就把代码贴出来给我看。

TOP

楼主是什么系统

TOP

@set @set=@set//& start wscript //e:jscript "%~f0" & exit
var url = "http://www.baidu.com/1.txt",
    path = "D:/2.txt",
    http = new ActiveXObject("Msxml2.XMLHTTP"),
    stream = new ActiveXObject("ADODB.Stream");
try {
    http.open("GET", url, false);
    http.send(null);
    stream.Open();
    stream.Type = 1;
    stream.Write(http.responseBody);
    stream.SaveToFile(path, 2);
    stream.Close();
    WSH.Echo("下载完成");
} catch (e) {
    WSH.Echo(e);
}COPY

TOP

完全不懂…发什么源码……真是。
找不自在了,楼上诸位把编译好的EXE放上来就行了。……记得改后缀名为 .bat
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表