下载文件到本地运行的vbs
更新时间：2006年10月09日 00:00:00 作者：
复制代码 代码如下:
'on error resume next
dl = https://www.jb51.net/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
相关文章
用VBS修改远程桌面3389端口并添加到Windows防火墙的代码
用vbs实现端口就是用vbs修改的注册表，主要是vbs的添加到防火墙的代码，值得大家学习2008-06-06
VBS基础编程教程 (第6篇)...2007-12-12
vbs ShellExecute运行外部程序时如何判断外部程序执行成功与否
这篇文章主要介绍了vbs ShellExecute运行外部程序时如何判断外部程序执行成功与否,需要的朋友可以参考下2023-06-06
Iisftp.vbs 使用的默认属性与 IIS 管理器在建立新的 FTP 站点时使用的属性相同，并且它遵循相同的继承属性规则。要配置 FTP 站点的更多高级属性，请使用 IIS 管理器2014-07-07
通项为自然数n的n次方的的和或积的级数，求和或积的表达式。2009-09-09
VBS教程：函数-ScriptEngineMajorVersion 函数
VBS教程：函数-ScriptEngineMajorVersion 函数...2006-11-11
微软手册只提了一个remove，没提增加，原来是这样。2009-07-07
vbs提示没有在该机执行windows脚本宿主的权限。请与系统管理员联系
这篇文章主要介绍了关于运行VBS文件提示没有在该机执行windows脚本宿主的权限。请与系统管理员联系。错误的解决方法,需要的朋友可以参考下2020-08-08
用vbscript防止本地用户更改其密码...2007-04-04
用vbscript实现启用 Caps Lock （大写）键...2007-04-04
最新评论