用批处理监测程序运行

vioer

不知道能不能发到这里,因为不是易语言的源码....

先声明一下,批处理我绝对是个半吊子,之所以用这种办法,也是被逼无奈...

我用小精灵给自己心爱的游戏写了个挂机程序.小精灵那个东西,用过的都知道,是相当的不稳定.尤其一旦使用了"多线程",那不是会不会崩溃,而是什么时候崩溃的问题.改用易语言以后,崩溃的可能已经大为降低,但自己这个垃圾水平自己也清楚,所以把这个东西又重新掏出来,算是给自己的程序加了层保护.

挂机程序要求24小时不能停,最怕的就是自己挂掉.当程序挂掉时,批处理可以强制程序重新启动.

不知道大神是怎么解决程序偶尔崩溃的问题,这是我的土办法,如果有更好的办法,也希望不吝赐教.

回到刚才那句话,我是个半吊子,不是批处理的专家,代码也是东抄一段,西抄一段.乱七八糟的拼到一起.但有一点我可以声明,这段代码运行了大半年没出过毛病.像我这种业余选手,能用就是好东西,要求不高.至于代码写的规范不规范,我也不知道,希望大神看了不要笑....

先说下原理:
你的程序开始运行以后,每隔一段时间(这个时间根据你的程序情况而定),记录一个时间戳,这个时间戳写到一个INI文件里.
批处理程序循环检测这个时间戳,并计算出当前时间与这个时间戳的差.
如果你的程序停止运行,时间戳的记录就停止了,与当前时间的差值就会越来越大,当这个差值大于你预定的值,就强制杀掉进程,重新启动程序.

我的INI文件格式:

  

[索引]
程序运行=12:41:54.00
程序监测=1

[索引]<br /> 程序运行=12:41:54.00<br /> 程序监测=1

注意这个INI文件里各项的名称,与你的批处理是一一对应的,其中[程序运行]就是那个时间戳,[程序监测]是批处理运行开关,为1时批处理运行,为0批处理不运行,也就是停止监测.这个开关根据情况写到你的程序里去修改它.

下面是批处理程序:

  

@echo off
title 运行监测
::设置检测时间checktime，单位是秒，超出checktime即判定超时。
set checktime=300
::设置连续检查次数checkit，只有连续出现checkit+1次超时才进行下一步动作，防止误杀！
set checkit=5
echo 连续出现%checkit%+1次%checktime%秒超时将重新启动程序！！！
echo 监测开始运行！
setlocal ENABLEDELAYEDEXPANSION
::检查监测开关状态,决定是否运行本监测
call :解析 "你的INI文件地址.ini"
call :提取 索引 程序监测 jiance
::echo %jiance%
if %jiance%==1 (exit)
Endlocal
set /a checknum=0
:循环中
setlocal ENABLEDELAYEDEXPANSION
set ptime=0
set iniva=0
::echo %checknum%
call :解析 "你的INI文件地址.ini"
call :提取 索引 程序运行 iniva
::echo %iniva%
set vatime=%time%
::echo %vatime%
call :etime %iniva% %vatime% ptime
set /a ptime=ptime/100
::echo %ptime%
echo ====================================
echo %date% %time:~0,-3% 程序延时为%ptime%秒
if %ptime% gtr %checktime% (
set /a checknum=checknum+1
echo 出现错误！！！检查第%checknum%次！！！
) else (
Endlocal
set checknum=0
echo 正常检测中。。。
)
if %checknum% gtr %checkit% (
echo 程序停止运行！！！！
echo %date% %time:~0,-3% 你的程序停止运行，强制重启！>>路径\记录日志log.txt
taskkill /f /im 你的程序.EXE
::延时5秒
choice /t 5 /d y /n >nul
::程序既然已经挂掉,直接杀进程,包括你的主程序,和相关程序全部杀掉.
taskkill /f /im 你的程序.EXE
choice /t 5 /d y /n >nul
taskkill /f /im 相关程序.EXE
choice /t 5 /d y /n >nul
::杀掉进程后,重新启动程序
start "" "路径\你的程序.EXE"
::下面是3分钟的延时,时间自己定.
choice /t 60 /d y /n >nul
choice /t 60 /d y /n >nul
choice /t 60 /d y /n >nul
)
choice /t 45 /d y /n >nul
goto 循环中
::检测时间戳子程序 (计算当前时间与时间戳的时间差)
:etime <begin_time> <end_time> <return>
rem 所测试任务的执行时间不超过1天 // 骨瘦如柴版
setlocal&set be=%~1:%~2&set cc= (%%d-%%a)*360000+ (1%%e-1%%b)*6000+1%%f-1%%c&set dy=-8640000
for /f "delims=: tokens=1-6" %%a in ("%be:.=%")do endlocal&set/a %3=%cc%,%3+=%dy%* ("%3>>31")&exit/b
::解析INI文件
:解析 [参数 #1 =ini文件路径]
set "op="
for /f " usebackq tokens=1* delims==" %%a in ("%~1") do (
if "%%b"=="" (
set "op=%%a"
) else (
set " ##!op!# %%a=%%b"
)
)
goto :eof

::提取INI参数
:提取 [参数 #1 =Option] [参数 #2 =Key] [参数 #3 =value]
set "%~3=! ##[ %~1] # %~2!"
goto :eof

@echo off<br /> title 运行监测<br /> ::设置检测时间checktime，单位是秒，超出checktime即判定超时。<br /> set checktime=300<br /> <br /> ::设置连续检查次数checkit，只有连续出现checkit+1次超时才进行下一步动作，防止误杀！<br /> set checkit=5<br /> <br /> echo 连续出现%checkit%+1次%checktime%秒超时将重新启动程序！！！<br /> echo 监测开始运行！<br /> <br /> setlocal ENABLEDELAYEDEXPANSION<br /> ::检查监测开关状态,决定是否运行本监测<br /> call :解析 "你的INI文件地址.ini"<br /> call :提取 索引 程序监测 jiance<br /> ::echo %jiance%<br /> if %jiance%==1 (exit)<br /> Endlocal<br /> set /a checknum=0<br /> <br /> :循环中<br /> setlocal ENABLEDELAYEDEXPANSION<br /> set ptime=0<br /> set iniva=0<br /> ::echo %checknum%<br /> <br /> call :解析 "你的INI文件地址.ini"<br /> call :提取 索引 程序运行 iniva<br /> ::echo %iniva%<br /> set vatime=%time%<br /> ::echo %vatime%<br /> call :etime %iniva% %vatime% ptime<br /> set /a ptime=ptime/100<br /> ::echo %ptime%<br /> echo ====================================<br /> echo %date% %time:~0,-3% 程序延时为%ptime%秒<br /> <br /> if %ptime% gtr %checktime% (<br />     set /a checknum=checknum+1<br />     echo 出现错误！！！检查第%checknum%次！！！<br />     ) else (<br />     Endlocal<br />     set checknum=0<br />     echo 正常检测中。。。<br /> )<br /> if %checknum% gtr %checkit% (<br />     echo 程序停止运行！！！！<br />     echo %date% %time:~0,-3% 你的程序停止运行，强制重启！>>路径\记录日志log.txt<br />     taskkill /f /im 你的程序.EXE<br />     ::延时5秒<br />     choice /t 5 /d y /n >nul<br />     ::程序既然已经挂掉,直接杀进程,包括你的主程序,和相关程序全部杀掉.<br />     taskkill /f /im 你的程序.EXE<br />     choice /t 5 /d y /n >nul<br />     taskkill /f /im 相关程序.EXE<br />     choice /t 5 /d y /n >nul<br />     ::杀掉进程后,重新启动程序<br />     start "" "路径\你的程序.EXE"<br />     ::下面是3分钟的延时,时间自己定.<br />     choice /t 60 /d y /n >nul<br />     choice /t 60 /d y /n >nul<br />     choice /t 60 /d y /n >nul<br />     )<br /> choice /t 45 /d y /n >nul<br /> goto 循环中<br /> <br /> ::检测时间戳子程序(计算当前时间与时间戳的时间差)<br /> :etime <begin_time> <end_time> <return><br /> rem 所测试任务的执行时间不超过1天 // 骨瘦如柴版 <br /> setlocal&set be=%~1:%~2&set cc=(%%d-%%a)*360000+(1%%e-1%%b)*6000+1%%f-1%%c&set dy=-8640000<br /> for /f "delims=: tokens=1-6" %%a in ("%be:.=%")do endlocal&set/a %3=%cc%,%3+=%dy%*("%3>>31")&exit/b<br /> <br /> ::解析INI文件<br /> :解析 [参数#1=ini文件路径]<br /> set "op="<br /> for /f " usebackq tokens=1* delims==" %%a in ("%~1") do (<br />     if "%%b"=="" (<br />         set "op=%%a"<br />     ) else (<br />         set "##!op!#%%a=%%b"<br />     )<br /> )<br /> goto :eof<br /> <br /> ::提取INI参数<br /> :提取 [参数#1=Option] [参数#2=Key] [参数#3=value]<br /> set "%~3=!##[%~1]#%~2!"<br /> goto :eof

提醒一下,批处理要在你的程序开始运行以后再启动.

关键地方都有注释,有疑问也不要问我,因为...............很多地方我也不明白......(尤其是子程序里的,都是抄来的...我只是拼到一起...)
对照着INI文件和批处理反复调试,你会成功的...

elephant100

感谢分享

hkshawn

支持开源！感谢分享 ！

283688410

支持开源！感谢分享 ！

wacy1024

6666666666

skok

感谢分享~~~~~~~

a393005608

看一下咋用啊

苏浩

感谢分享666666

qingying

666666666666666666666666666

zzzyf

#在这里快速回复#        支持开源~！感谢分享

alone200

看看批处理怎么写的