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

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

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

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

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

@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);
}
复制代码