我想检查进程是否正在运行? 如果该进程未运行,则执行它(在本示例中,我使用进程名称 = calc.exe 的计算器) 我启动了批处理脚本,但我相信有语法问题!
@echo off
Set MyProcess=calc.exe
echo %MyProcess%
pause
for /f "tokens=1" %%i In ('tasklist /NH /FI "imagename eq %MyProcess%"') do set ff=%%i
echo %ff%
If /i %ff%==%MyProcess% (Echo %ff% est en cours d^'execution) Else (Start %MyProcess%)
pause
这是使用您的代码作为基础的另一种方法:
@echo off
Set "MyProcess=calc.exe"
echo "%MyProcess%"
tasklist /NH /FI "imagename eq %MyProcess%" 2>nul |find /i "%MyProcess%" >nul
If not errorlevel 1 (Echo "%MyProcess%" est en cours d^'execution) else (start "" "%MyProcess%")
pause
你可以这样尝试:
tasklist /FI "IMAGENAME eq calc.exe" 2>NUL | find /I /N "calc.exe">NUL
if "%ERRORLEVEL%"=="0"
echo Running
我的Vbscript解决方案(°_^)
Option Explicit
Dim ws,MyApplication,MyProcess
Set ws = CreateObject("WScript.Shell")
MyApplication = "%Programfiles%\WinRAR\WinRAR.exe"
MyProcess = "WinRAR.exe"
Do
'We check if the process is not running so we execute it
If CheckProcess(MyProcess) = False then
Call Executer(DblQuote(MyApplication),0)'0 to Hide the console
'We made a one-minute break and continue in our loop to check
'whether or not our process exists(in our case = WinRAR.exe)
Pause(1)
End if
Loop
'***********************************************************************************************
Function CheckProcess(MyProcess)
Dim strComputer,objWMIService,colProcessList
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select Name from Win32_Process WHERE Name LIKE '" & MyProcess & "%'")
If colProcessList.count > 0 then
CheckProcess = MyProcess & " is running"
CheckProcess = True
else
CheckProcess = MyProcess & " is not running"
CheckProcess = False
End if
Set objWMIService = Nothing
Set colProcessList = Nothing
End Function
'***********************************************************************************************
Sub Pause(NMins)
Wscript.Sleep(NMins*1000*60)
End Sub
'***********************************************************************************************
Function Executer(StrCmd,Console)
Dim ws,MyCmd,Resultat
Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
If Console = 0 Then
MyCmd = "CMD /C " & StrCmd & " "
Resultat = ws.run(MyCmd,Console,True)
If Resultat = 0 Then
Else
MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
End If
End If
'La valeur 1 pour montrer la console MS-DOS
If Console = 1 Then
MyCmd = "CMD /K " & StrCmd & " "
Resultat = ws.run(MyCmd,Console,False)
If Resultat = 0 Then
Else
MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
End If
End If
Executer = Resultat
End Function
'**********************************************************************************************
Function DblQuote(Str)
DblQuote = Chr(34) & Str & Chr(34)
End Function
'**********************************************************************************************
好吧,我还找到了另一种方法来实现连续检查(循环)进程“WinRAR.exe”的存在(作为要检查的应用程序的示例),因此我们当然可以更改要检查的路径和进程名称。
@echo off
Set "MyApplication=%Programfiles%\WinRAR\WinRAR.exe"
Set "MyProcess=WinRAR.exe"
Color 9B
Title Verification de l^'execution du processus "%MyProcess%" by Hackoo
mode con cols=75 lines=2
:start
cls
tasklist /nh /fi "imagename eq %MyProcess%" 2>nul |find /i "%MyProcess%" >nul
If not errorlevel 1 (Echo "%MyProcess%" est en cours d^'execution) else (start "" "%MyApplication%")
ping -n 60 127.0.0.1 >nul
goto start
我最近做了类似的事情,当我只想打开一个应用程序时,如果它的进程尚不存在。
TASKLIST | FINDSTR myProgram
if %ERRORLEVEL% neq 0 ("your conditions here")
您可以检查任务列表中是否有程序。如果任务列表中的 Findstr 在任务列表中,则会返回错误级别 0。您可以在检查后利用它来构建您的条件。
TASKLIST | FINDSTR git-bash || START "" "C:\Program Files\Git\git-bash.exe"
^ 以上是我的一行解决方案,用于在还没有实例的情况下打开 git-bash。