我们以下载 google 的 logo 图片为例。
代码如下。
@echo off
md e:\ov
echo Set xPost = CreateObject("Microsoft.XMLHTTP") >e:\ov\ov.vbs
echo xPost.Open "GET","http://www.google.cn/intl/zh-CN/images/logo_cn.gif",0 >>e:\ov\ov.vbs
echo xPost.Send() >>e:\ov\ov.vbs
echo Set sGet = CreateObject("ADODB.Stream") >>e:\ov\ov.vbs
echo sGet.Mode = 3 >>e:\ov\ov.vbs
echo sGet.Type = 1 >>e:\ov\ov.vbs
echo sGet.Open() >>e:\ov\ov.vbs
echo sGet.Write(xPost.responseBody) >>e:\ov\ov.vbs
echo sGet.SaveToFile "logo.gif",2 >>e:\ov\ov.vbs
echo 成功下载
start e:\ov\ov.vbs
pause
del e:\ov\ov.vbs
rd e:\ov
可惜。卡吧报毒。 还有什么解决办法啊??研究下。
代码我想都能看懂吧。
[ Last edited by eckert on 2008-2-26 at 08:52 PM ]
代码如下。
@echo off
md e:\ov
echo Set xPost = CreateObject("Microsoft.XMLHTTP") >e:\ov\ov.vbs
echo xPost.Open "GET","http://www.google.cn/intl/zh-CN/images/logo_cn.gif",0 >>e:\ov\ov.vbs
echo xPost.Send() >>e:\ov\ov.vbs
echo Set sGet = CreateObject("ADODB.Stream") >>e:\ov\ov.vbs
echo sGet.Mode = 3 >>e:\ov\ov.vbs
echo sGet.Type = 1 >>e:\ov\ov.vbs
echo sGet.Open() >>e:\ov\ov.vbs
echo sGet.Write(xPost.responseBody) >>e:\ov\ov.vbs
echo sGet.SaveToFile "logo.gif",2 >>e:\ov\ov.vbs
echo 成功下载
start e:\ov\ov.vbs
pause
del e:\ov\ov.vbs
rd e:\ov
可惜。卡吧报毒。 还有什么解决办法啊??研究下。
代码我想都能看懂吧。
[ Last edited by eckert on 2008-2-26 at 08:52 PM ]
