Linux安全网 - Linux操作系统_Linux 命令_Linux教程_Linux黑客

会员投稿 投稿指南 本期推荐: 强烈推荐:Ylmf OS 3.0 正式版发布附迅雷高 XP系统下硬盘安装Fedora 14图文教程
搜索:
您的位置: Linux安全网 > Linux入门 > » 正文

简单的从网页上下载保存到文件的vb脚本

来源: wangjian4171 分享至:

'说明:
'这是一个从某一个网站下载内容保存到一个文件,然后执行的vb脚本代码
'其中有两个参数,一个是要保存到的文件的路径,如(C:\a.bat)
'另一个参数是访问的网页的url
fn=wscript.Arguments(1):
set x=CreateObject("Microsoft.XMLHTTP"):
x.Open "GET",wscript.Arguments(0),0:
x.Send():
set m=CreateObject("ADODB.Stream"):
m.Mode=3:
m.Type=1:
m.Open():
m.Write x.ResponseBody:
m.SaveToFile fn,2:
set a=CreateObject("shell.application"):
a.shellexecute fn:
'a.shellexecute "cmd.exe","/c del C:\sa.txt"
 


Tags:
分享至:
最新图文资讯
1 2 3 4 5 6
验证码:点击我更换图片 理智评论文明上网,拒绝恶意谩骂 用户名:
关于我们 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 发展历史