Код:
Код: Выделить всё
@if "%1" neq "*" (
mshta vbscript:Execute("CreateObject(""WScript.Shell"").Run """"""%~f0"""" *"",0,False:Close()"^)
exit/b
)
set "p=Skype.exe"
cmd/c for /l %%i in () do @tasklist /fi "imagename eq %p%"^| findstr/v :^&^& (taskkill /f /im "%p%"^& exit/b)^& ^>nul timeout /t 1 /nobreak