vbs实现下载【nom吧】

nom吧关注：17贴子：96

1回复贴，共1页

vbs实现下载

建下面文件保存为down.vbs
--------------------------------------------------------------------------------
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://magic.qq.com/cgi-bin/cgi_flash_preview?face_id=668&diytype=0",0 '下载路径+文件名
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "668.swf",2 '将文件改名为668.swf,也可以用目录,如:./flash/668.swf
--------------------------------------------------------------------------------

送TA礼物

1楼2005-03-28 14:42回复

可将该脚步用嵌在网页上哦:
--------------------------------------------------------------------------------
<html>
<head>
<script language=vbscript>
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.baidu.com/img/slogo.gif",0
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Documents and Settings\ahcw\桌面\05.3.14\slogo.gif",2
sGet.SaveToFile "C:\Documents and Settings\ahcw\桌面\05.3.25\slogo.gif",2
</script>
</head>
<body>
下载到两个文件中:05.3.25和05.3.14
</body>
</html>
--------------------------------------------------------------------------------

2楼2005-03-28 15:37

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧热议榜

1回复贴，共1页

<返回nom吧

发表回复

发贴请遵守贴吧协议及“七条底线”贴吧投诉

内容:

使用签名档查看全部

发表

保存至快速回贴

日	一	二	三	四	五	六

vbs实现下载

登录百度账号

扫二维码下载贴吧客户端