下載文件到本地運(yùn)行的vbs
更新時(shí)間：2006年10月09日 00:00:00 作者：
復(fù)制代碼 代碼如下:
'on error resume next
dl = http://www.dbjr.com.cn/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
相關(guān)文章
VBScript教程 第一課什么是VBScript...2006-11-11
用vbs查看剪切板內(nèi)容的腳本，方法不錯(cuò)2008-06-06
這篇文章主要介紹了vbs 獲取字符串也就是截取字串,需要的朋友可以參考下2019-04-04
vbs Windows系統(tǒng)改變或修改網(wǎng)卡的MAC地址的腳本與軟件
這個(gè)文件比程序本身還大，感覺不爽，于是本人的VBS版MAC修改代碼便誕生了,在使用過程中如果出現(xiàn)不能上網(wǎng)的情況得返回一下網(wǎng)卡驅(qū)動(dòng)（有些機(jī)器比較特別）2008-07-07
用vbscript把 Word 文檔保存為文本文件的代碼...2007-04-04
保存為.vbs文件即可2008-08-08
vbs shellcode轉(zhuǎn)換escape加密
用vbs轉(zhuǎn)換加密代碼2008-05-05
vbs解決處理TXT文本數(shù)據(jù)相關(guān)問題實(shí)現(xiàn)代碼
使用vbs處理txt數(shù)據(jù)時(shí)，會(huì)遇到一些問題，本文將提供詳細(xì)的解決方法，希望可以幫助你們2012-12-12
用vbs腳本實(shí)現(xiàn)運(yùn)行DOS批處理不再出現(xiàn)黑屏cmd窗口
用vbs腳本實(shí)現(xiàn)運(yùn)行DOS批處理不再出現(xiàn)黑屏cmd窗口...2007-02-02
VBS教程：方法-CopyFolder 方法...2006-11-11