@echo off
:restart
::要绝对路径,没有绝对路径,请参考我最下面的例子
set runpro=qq.exe
set "propath=D:\Program Files\Tencent\QQ\Bin"
tasklist|find /I "%runpro%"||start "" "%propath%\%runpro%"
::如打开程序延迟较长,可以在下面加时间等待,
ping -n 6 127.0.0.1>nul
::在重新执行,要注意的是程序名:%runpro% 文件名要和在taskmgr.exe (任务管理器)里面的程序名一样,否则就将文件名该成该程序执行后在任务管理器里面看到的程序名一样。
goto restart
exit
运行无路径的程序例子。
@echo off
mode con cols=14 lines=1
if not "%1"=="wind" mshta vbscript:createobject("wscript.shell").run("""%~f0"" wind",vbhide)(window.close)&&exit
setlocal enabledelayedexpansion
::设置要打开的程序名
set runpro=qq.exe
::查找所有盘符下的该文件路径,如找到就打开,如存在多个文件也只打开一次
for /f "skip=1" %%i in ('wmic logicaldisk where "drivetype=3" get caption') do (for /f "delims=*" %%i in ('dir /s /b %%i\%runpro% 2^>nul') do (
::本程序由baidu_m13632750052制作
set rundel="%%i"&tasklist|find /I "%runpro%"||start "" !rundel!))
echo !rundel!&PING -n 61 127.0.0.1>nul
::tasklist|find /I "%runpro%"&&taskkill /f /im %runpro%
::全盘删除该程序
echo 请将下面的:: 去掉,上面测试的是使用TASKMGR,请不要删除。哈哈,启用将会删除你电脑上存在该文件名的所有文件,本人不负责任何连带责任,请仔细分析后再运行。
::for /f "skip=1" %%i in ('wmic logicaldisk where "drivetype=3" get caption') do del /f /s /q %%i\%runpro%
pause
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)