以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]开机项目自动运行的批处理问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162913)

--  作者:wssylxb
--  发布时间:2021/4/17 10:46:00
--  [求助]开机项目自动运行的批处理问题
您好!老师:
     在网上找个批处理文件,目的是达到电脑开机后自动运行项目文件,并在一定时间间隔自动检测项目文件是否运行,如果没有运行,自动启动项目文件。现在的问题是:
把批处理文件的快捷方式放启动文件夹中,电脑启动后项目文件启动了两次,而单独执行批处理文件就正常,只启动一次项目文件,不知问题出在哪里。谢谢!
以下是批处理文件


@echo off
if "%1" == "h" goto begin 
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit 
:begin 
set _task=foxtable

set _runexe=start.vbs

:checkstart
echo "检查进程"
for /f "tokens=5" %%c in (\'qprocess.exe ^| find "%_task%"\') do ( if %%c==" " ( @echo ) else goto checkag  )
goto startsvr

:startsvr

echo ******开始启动程序*******

echo 启动时间 %time%  >> restart.log  

echo set ws=wscript.createobject("wscript.shell") >> %_runexe%
echo ws.run "foxtable.exe",0,false >> %_runexe%    
start /b %_runexe%


echo Wscript.Sleep Wscript.Arguments(0) >%tmp%\\delay.vbs

cscript //b //nologo %tmp%\\delay.vbs 10000

del %_runexe% /Q

echo *******程序启动完成********

goto checkstart


:checkag

echo Wscript.Sleep Wscript.Arguments(0) >%tmp%\\delay.vbs

cscript //b //nologo %tmp%\\delay.vbs 10000

goto checkstart


--  作者:有点蓝
--  发布时间:2021/4/17 11:08:00
--  
这些东西我也看不懂。自启动参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141821
--  作者:wssylxb
--  发布时间:2021/4/17 11:15:00
--  
谢谢!