VBS简单的文件下载器

学校只有ie,不准下载文件,可以用这个下载文件

这是网上查的代码,自己加了InputBox,直接双击即可打开

Dim sURL, sPath

sURL = InputBox("下载文件的网址是?")
sPath = InputBox("存储的文件名是?")
Set xPost = createObject("Microsoft.XMLHTTP") 
xPost.Open "GET",sURL,0
xPost.Send() 
Set sGet = createObject("ADODB.Stream") 
sGet.Mode = 3 
sGet.Type = 1 
sGet.Open() 
sGet.Write(xPost.responseBody) 
sGet.SaveToFile sPath,2

如果你是一个确确实实的懒人,或者你IQ有问题,不会创建vbs文件,可以试试直接下载该文件,直接双击即可。(当然如果不能下载的话例外)

图说《中标普华Linux 5 桌面版》

安装环境技术参数:

虚拟机:Oracle VirtualBox 3.2.8 r64453

OS类型:Linux 2.6

虚拟盘:8Gb

虚拟内存:512Mb

颜色位:16位

中标普华Linux桌面 5 技术参数:

内核版本:Linux 2.6 (子版本不详)

桌面环境:GNOME (版本不详,应为2.x)

安装包数:1354个 (含编程工具)

安装时间:超漫长(于虚拟机,技术参数见上)

含软件数:普通(可满足一般使用)

软件最新:否(如Firefox仅仅3.0.15版)

是否可用:初步,完全需个人配置

是否支持KDE:否

中文支持:完整,但Flash中文不显示bug未处理

包管理器:yum

(* 因官方未提供技术参数,以上纯属个人测试得到,如不对请告知 *)

详图(点击图片放大):