用VBS可执行程序+Xmlhttp下载备份网上文件的代码
程序员文章站
2022-04-10 08:05:57
今天写程序时突然想到做一个文件的备份,把网站上的数据库备份到本地机上。一个简单的小程序,做成可执行的文件,用vbs最简单方便了。 'on error&n...
今天写程序时突然想到做一个文件的备份,把网站上的数据库备份到本地机上。一个简单的小程序,做成可执行的文件,用vbs最简单方便了。 'on error resume next
dim iremote,ilocal
iremote = inputbox("请输入远程文件路径:")
set xpost = createobject("microsoft.xmlhttp")
xpost.open "get",iremote,0
xpost.send()
set stream = createobject("adodb.stream")
stream.mode = 3
stream.type = 1
stream.open()
stream.write(xpost.responsebody)
if (stream.size<10240) then
msgbox("远程文件不存在!")
else
savefile
end if
stream.close
set stream = nothing
' 保存文件
function savefile
ilocal = inputbox("请输入本机保存路径:")
set fso = createobject("scripting.filesystemobject")
returnvalue = "0"
if (fso.fileexists(ilocal)) then
returnvalue = msgbox("'"&ilocal&"'文件已存在,真的要覆盖吗?",vbyesnocancel,"确认框")
end if
set fso = nothing
if (returnvalue = "6" or returnvalue = "0") then '覆盖
stream.savetofile ilocal,2
msgbox("文件备份成功!")
elseif (returnvalue = "7") then
savefile
end if
end function
dim iremote,ilocal
iremote = inputbox("请输入远程文件路径:")
set xpost = createobject("microsoft.xmlhttp")
xpost.open "get",iremote,0
xpost.send()
set stream = createobject("adodb.stream")
stream.mode = 3
stream.type = 1
stream.open()
stream.write(xpost.responsebody)
if (stream.size<10240) then
msgbox("远程文件不存在!")
else
savefile
end if
stream.close
set stream = nothing
' 保存文件
function savefile
ilocal = inputbox("请输入本机保存路径:")
set fso = createobject("scripting.filesystemobject")
returnvalue = "0"
if (fso.fileexists(ilocal)) then
returnvalue = msgbox("'"&ilocal&"'文件已存在,真的要覆盖吗?",vbyesnocancel,"确认框")
end if
set fso = nothing
if (returnvalue = "6" or returnvalue = "0") then '覆盖
stream.savetofile ilocal,2
msgbox("文件备份成功!")
elseif (returnvalue = "7") then
savefile
end if
end function
上一篇: 病毒专杀VBS模块