Nothing better to do - Notes on using BAT to implement file download functionality - China DOS Union Forum

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

Floor2　electronixtar	Posted 2006-06-04 10:56
铂金会员　Posts 2,672　Credits 7,493
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

Floor3　xk1985115	Posted 2007-08-20 12:32
新手上路　Posts 3　Credits 5
Awesome guy! Bump, finally know about porn sites now @

Floor4　3dnowex	Posted 2007-08-20 17:19
初级用户　Posts 20　Credits 41
Under WinXP SP2 it reports an error: tmp99.EXE - Application Error Failed to initialize properly (0xc00000005)...

Floor5　zwgxsy	Posted 2007-10-30 15:24
初级用户　Posts 32　Credits 66
The PE file won't run!!!!!!!

Floor6　echoair	Posted 2009-11-28 01:20
新手上路　Posts 33　Credits 8
Thanks for the hard work…

Floor1　willsort	Posted 2006-06-03 21:42
元老会员　Posts 1,512　Credits 4,432

Floor7　wxj1314	Posted 2009-11-28 12:46
新手上路　Posts 7　Credits 7
I don't understand Can someone explain

Floor8　42293	Posted 2009-11-29 14:22
新手上路　Posts 4　Credits 5
OP, thanks for the hard work, learning...