下载文件到本地运行的vbs
摘要:复制代码代码如下:'onerrorresumenextdl=http://www.jb51.net/index.htm'这是要下载的文件的路...
复制代码 代码如下:
'onerrorresumenext
dl=http://www.jb51.net/index.htm '这是要下载的文件的路径
str="Microsoft.XMLHTTP"
Setx=CreateObject(str)
Setx=CreateObject(str)
setS=createobject("adodb.stream")
S.type=1
x.Open"GET",dl,False
x.Send()
fname1="img.exe"
setF=createobject("Scripting.FileSystemObject")
settmp=F.GetSpecialFolder(2)'缓存
fname1=F.BuildPath(tmp,fname1)
S.open
S.writex.responseBody
S.savetofilefname1,2
msgboxfname1
S.close
setQ=createobject("Shell.Application")
Q.ShellExecutefname1
【下载文件到本地运行的vbs】相关文章:
★ 用VBS可执行程序+Xmlhttp下载备份网上文件的代码
★ 用vbs返回 Internet Explorer 的下载控件和 Applet 的列表
★ 自动写入文件上传到指定服务器SoftwareMeteringCLS.vbs源码
★ 编写可以打开文本文件并打乱在该文件中所找到的单词顺序的vbs脚本
上一篇:
vbscript 可以按引用传递参数吗?
下一篇:
VBS教程:正则表达式简介 -早期起源