China DOS Union

-- Unite DOS · Advance DOS · Grow DOS --

Union site: www.cn-dos.net　Forum site: www.cn-dos.net/forum
DOS stands for freedom, openness and progress. Let us work hard, learn from the openness and GNU spirit of FreeDOS and Linux, and together build and grow a free GNU GPL world!

Guest Register Log in Members Blogs Search Command Prompt Bash Upload Statistics

中国DOS联盟论坛
The time now is 2026-06-24 05:10

Welcome new member Xiaohua　 RSS
48,001 topics / 350,076 posts / today 3 new / 48,216 members 不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [Recommended][Win] Nothing better to do - Notes on using BAT to implement file download functionality

DigestI View 7,943　Replies 7

Original Poster Posted 2006-06-03 21:42　·　中国山西临汾中移铁通

willsort

元老会员

★★★★

Batchinger

Credits 4,432
Posts 1,512
Joined 2002-10-18 00:00
23-year member
UID 19
Gender Male

Status Offline

※ Batchinger 致 Bat Fans：请访问批处理编程的异类，欢迎交流与共享批处理编程心得！

Floor 2 Posted 2006-06-04 10:56　·　中国四川成都联通

electronixtar

铂金会员

★★★★

Credits 7,493
Posts 2,672
Joined 2005-09-02 00:00
20-year member
UID 42173
Gender Male

Status Offline

Bump! Learning PE will still take some time; my fundamentals still aren't enough!

P.S.: Using bat+vbs with xmlhttp can easily download files!, or wget/ftp works too!

Posting one here:



@echo off

cls

echo download start



echo download ...

rem 1. dl.vbs

echo with wscript:if .arguments.count^<2 then .quit:end if >dl.vbs

echo set aso=.createobject("adodb.stream"):set web=createobject("microsoft.xmlhttp") >>dl.vbs

echo web.open "get",.arguments(0),0:web.send:if web.status^>200 then quit >>dl.vbs

echo aso.type=1:aso.open:aso.write web.responsebody:aso.savetofile .arguments(1),2:end with >>dl.vbs

cscript dl.vbs http://www.baidu.com/img/slogo.gif 1.gif

del dl.vbs



echo download ...

rem 2. iget.vbs

echo iLocal = LCase(WScript.Arguments(1)) >iget.vbs

echo iRemote = LCase(WScript.Arguments(0)) >>iget.vbs

echo Set xPost = createObject("Microsoft.XMLHTTP") >>iget.vbs

echo xPost.Open "GET",iRemote,0 >>iget.vbs

echo xPost.Send() >>iget.vbs

echo Set sGet = createObject("ADODB.Stream") >>iget.vbs

echo sGet.Mode = 3 >>iget.vbs

echo sGet.Type = 1 >>iget.vbs

echo sGet.Open() >>iget.vbs

echo sGet.Write(xPost.responseBody) >>iget.vbs

echo sGet.SaveToFile iLocal,2 >>iget.vbs

cscript iget.vbs http://www.baidu.com/img/slogo.gif 2.gif

del iget.vbs



echo download ...

rem 3. dsa.vbs

echo Set xPost = createObject("Microsoft.XMLHTTP") >dsa.vbs

echo xPost.Open "GET","http://www.baidu.com/img/slogo.gif",0 >>dsa.vbs

echo xPost.Send() >>dsa.vbs

echo Set sGet = createObject("ADODB.Stream") >>dsa.vbs

echo sGet.Mode = 3 >>dsa.vbs

echo sGet.Type = 1 >>dsa.vbs

echo sGet.Open() >>dsa.vbs

echo sGet.Write(xPost.responseBody) >>dsa.vbs

echo sGet.SaveToFile "3.gif",2 >>dsa.vbs

cscript dsa.vbs

del dsa.vbs



cls

echo download ok

@echo on

[ Last edited by electronixtar on 2006-6-4 at 11:01

C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"

Floor 3 Posted 2007-08-20 12:32　·　中国湖北宜昌电信

xk1985115

新手上路

★

Credits 5
Posts 3
Joined 2007-08-20 10:46
18-year member
UID 95393
Gender Male

Status Offline

Awesome guy! Bump, finally know about porn sites now @

Floor 4 Posted 2007-08-20 17:19　·　中国江西吉安电信

3dnowex

初级用户

★

Credits 41
Posts 20
Joined 2007-03-05 00:45
19-year member
UID 80788
Gender Male