专家坐堂-[求助]开机项目自动运行的批处理问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- [求助]开机项目自动运行的批处理问题
您好！老师：

在网上找个批处理文件，目的是达到电脑开机后自动运行项目文件，并在一定时间间隔自动检测项目文件是否运行，如果没有运行，自动启动项目文件。现在的问题是：

把批处理文件的快捷方式放启动文件夹中，电脑启动后项目文件启动了两次，而单独执行批处理文件就正常，只启动一次项目文件，不知问题出在哪里。谢谢！

以下是批处理文件

@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