当前位置: 首页 >> 原创·技术 >> 201504131247 华盛系统更新程序源码 >> 正文

201504131247 华盛系统更新程序源码

9年前 (2015-04-13)     作者:iMoke     分类:原创·技术     阅读次数:3791     评论(0)    

批处理文件,可以实现通用的程序升级。

原理是先删除原程序文件,然后从共享中复制新文件到指定位置,解压缩,自动启动新程序。


批处理文件,可以实现通用的程序升级。

原理是先删除原程序文件,然后从共享中复制新文件到指定位置,解压缩,自动启动新程序。

@echo off
MODE con: COLS=50 LINES=20
Set timu=华盛系统升级程序 By M build 150407 lite
title %timu%
color 0f
::定义域,结尾不要加\
Set HSupdatapath=\\192.168.2.199\HS
Set HSpath=D:\HS
for /f "tokens=1* delims=_" %%1 in ('%HSupdatapath%\rar\reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Desktop" ^| findstr /i "Desktop"') do for /f "tokens=1*" %%3 in ("%%~2")do Set "deskpath=%%4"
Set deskfolder=华盛6.0
:updata
cls
echo.
echo        %timu%
echo.
echo                 请选择要更新的程序
echo.
echo.
echo        1.客房程序           2.报表程序
echo.
echo.
echo        3.通用收银           4.夜审程序
echo.
echo.
echo        5.系统设置           e.退出程序
echo.
echo.
echo        7.练习版客房         8.练习版餐饮
echo.
echo             ↑  促销软件练习版   ↑
Set choose=aaa
Set /p choose=    请选择您要更新的程序的编号(1-5),按回车键确认:
If "%choose%"=="e" exit
If "%choose%"=="1" (
Set d=客房
Set jc=front_office
Set ver=150203
Goto down
)
If "%choose%"=="2" (
Set d=报表
Set jc=report
Set ver=150316
Goto down
)
If "%choose%"=="3" (
Set d=通用收银
Set jc=res_pos
Set ver=140710
Goto down
)
If "%choose%"=="4" (
Set d=夜审
Set jc=audit
Set ver=5.x
Goto down
)
If "%choose%"=="5" (
Set d=系统设置
Set jc=config
Set ver=5.x
Goto down
)
If "%choose%"=="7" (
Set d=客房_练习版
Set jc=front_office
Set ver=150203
Goto down
)
If "%choose%"=="8" (
Set d=通用收银_练习版
Set jc=res_pos
Set ver=140710
Goto down
)
If "%choose%"=="" Goto updata
If not "%choose%"=="" Goto updata

:down
cls
if not exist %HSupdatapath%\updata\%d%%ver%.rar (goto nodata) else (echo.)
echo.
echo.
echo.
echo      是否确定更新“%d%”程序?    
echo.
echo.
echo.
set sure=y
Set /p sure=确定请按“回车”,输入其它“任意键”取消:
If "%sure%"=="y" Goto sure
If not "%sure%"=="y" Goto updata
:sure
taskkill /im %jc%.exe /f
del/s/q %HSpath%\%d%\*.* 
rd/s/q %HSpath%\%d%
%HSupdatapath%\rar\rar.exe x %HSupdatapath%\updata\%d%%ver%.rar %HSpath%\%d%\ -y
if not exist %HSpath%\%d%\dbmssocn.dll (copy %HSupdatapath%\updata\dbmssocn.dll %HSpath%\%d%\)
::创建快捷方式
echo "%deskpath%\%deskfolder%"
if not exist "%deskpath%\%deskfolder%" (md "%deskpath%\%deskfolder%")
copy %HSupdatapath%\%deskfolder%\%d%.lnk "%deskpath%\%deskfolder%" /y
cls
echo.
echo.
echo    “%d%”程序 版本“%ver%”已经安装完毕.
echo.
echo                     是否还要升级其它程序?
echo.
echo.   程序快捷方式已放到桌面的【%deskfolder%】中
echo.
echo.
echo    退出请直接按“回车”,
echo.
set sure2=y
Set /p sure2=仍需要更新其它程序请回复任意键后回车:
If "%sure2%"=="y" goto logout
If not "%sure2%"=="y" Goto updata
exit

:logout
echo.
echo 正在为您启动刚更新好的程序“%d%”程序,请稍候
start "" "%HSpath%\%d%\%jc%.exe"
exit

:nodata
cls
echo.
echo     Checking..
echo.
echo.
echo      无法升级,原因可能是:
echo.
echo.
echo      “%d%”程序的升级文件没有准备好;
echo.
echo.
echo      请联系电脑房处理 3818 3848
echo.
echo.
echo      按任意键返回目录
echo.
pause>nul
goto updata
除非注明,发表在“傲孤漠客”的文章『201504131247 华盛系统更新程序源码』版权归iMoke所有。 转载请注明出处为“本文转载于『傲孤漠客』原地址https://www.imoke.org/post/20150413406HSupdate.html

评论

发表评论   

昵称*

E-mail*(建议输入,以便收到博主回复的提示邮件)

网站