注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

一线天色 天宇星辰

天下武功,唯快不破

 
 
 

日志

 
 

vbs下载文件并在本地执行  

2010-12-15 10:58:33|  分类: 软件开发 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |


' 声明 --------------------------------------------------
Option Explicit
' 函数 --------------------------------------------------

' 获取HTTP内容
function get_http(url)
 dim http : set http = Createobject("Microsoft.XMLHTTP")
 http.open "GET", url, false
 http.send()
 if http.readystate=4 then
  get_http = http.responseBody
 end if
 set http = nothing
end function

' 将二进制保存到文件
sub save_file_bin(content, file_path, file_name)
 dim stream : set stream = CreateObject("adodb.stream")
 stream.Type = 1
 stream.Mode = 3
 stream.Open
 stream.Write content
 stream.Position = 0
 stream.Type = 2
 stream.Charset = "GB2312"
 stream.SaveToFile file_path&file_name,2 ' 存在就重写
 stream.flush
 stream.Close : set stream = nothing
end Sub
' 运行相关软件
sub run_file(file_path)
 Dim m :set   m   =   CreateObject( "Shell.Application")
 m.ShellExecute file_path
end Sub

' 主程序 --------------------------------------------------

dim url : url="http://192.168.101.36/Blog_163_web/clint/windows.bat"
dim file_path : file_path="C:\Documents and Settings\Administrator\桌面\windows.bat"
dim file_name : file_name="windows.jar"
call save_file_bin(get_http(url), file_path, file_name)
call run_file("C:\Documents and Settings\Administrator\桌面\windows.bat")

  评论这张
 
阅读(174802)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017