Скрипт на закрытие программы windows

Alright, Not going to lie. I saw this on stackoverflow and thought it was a challenging question. Soooo I just spent the last 2 hours writing some code. And here it is….

After following the steps below, you can type «TaskClose notepad.exe» after hitting «Start» and it will auto save all undocumented notepad files into desktop. It will auto-close chrome.exe and save the restoration settings.

You can add and remove additional settings for other applications under the if conditions. For instance:

If InStr(SINGLECLOSEAPPS, WScript.arguments(0)) Then
    SmartSendKeys strOutput,"bypass","%{F4}"

ElseIf InStr(AUTOCLOSEAPPS, WScript.arguments(0)) Then
    SmartSendKeys strOutput,"","%{F4}|%s|{autoname}.txt|%s"

'Example 1: =============================================
ElseIf InStr(WScript.arguments(0), "outlook") Then
    SmartSendKeys strOutput,"","%{F4}" 'Activate Alt+4
'========================================================

'Example 2: =============================================
ElseIf InStr(WScript.arguments(0), "notepad") Then 'I know, already in my autoapps
    SmartSendKeys strOutput,"","%{F4}|%s|{autosave}.txt" 'Activate Alt+4 + Save File + {AutoSave} = autoincrement filename
'========================================================

Else
    SmartSendKeys strOutput,"bypass","%{F4}"
End If

The vbs and batch files performs the following procedures:

• Collects the executable.
• Queries the executable application names off
  of the tasklist.
• Performs an «Alt+TAB(x)» procedure until it has
  verified the window is open.
• Then Executes the rolling commands whether it be «Alt+F4» or even in extreme cases
• Alt+F4
• Activate Save
• AutoIncrememnt Filename
• Exit application.

ReturnAppList.bat : install in «C:\windows\system32\»

for /f "tokens=10 delims=," %%F in ('tasklist /v /fi "imagename eq %1" /fo csv') do @echo %%~F >>result.txt

TaskClose.bat : install in «C:\windows\system32\» AND «C:\Users\YourUserName\»

C:\windows\system32\wscript.exe c:\windows\system32\taskclose.vbs %1

TaskClose.vbs : install in «C:\windows\system32\»

Set WshShell = CreateObject("WScript.Shell")
Const SINGLECLOSEAPPS = "chrome.exe|iexplore.exe|firefox.exe"
Dim DEFAULTSAVELOCATION : DEFAULTSAVELOCATION = wshshell.SpecialFolders("Desktop")
Const AUTOCLOSEAPPS = "notepad.exe"

Const WshFinished = 1
Const WshFailed = 2
strCommand = "returnapplist.bat "
Set WshShellExec = WshShell.Exec(strCommand & WScript.Arguments(0))

WScript.sleep 2000

Select Case WshShellExec.Status
    Case WshFinished
    strOutput = LoadStringFromFile("result.txt")
    Case WshFailed
    strOutput = LoadStringFromFile("result.txt")
End Select


'SmartSendKeys(application_name_array, bypassclause, additionalcommands)
'========================
If InStr(SINGLECLOSEAPPS, WScript.arguments(0)) Then
    SmartSendKeys strOutput,"bypass","%{F4}"
ElseIf InStr(AUTOCLOSEAPPS, WScript.arguments(0)) Then
    SmartSendKeys strOutput,"","%{F4}|%s|{autoname}.txt|%s"
Else
    SmartSendKeys strOutput,"bypass","%{F4}"
End If




'SmartSendKeys(application_name_array, bypassclause, additionalcommands)
'========================
Function SmartSendkeys(fArr, LoopCount, RollCommands) 
    Dim x 
    Dim splt : splt = Split(farr, vbCrLf)
    If loopcount = "bypass" Then 
        x = 0
    Else
        x = UBound(splt)
    End If
    a = 0
    For s=0 To x
        If Len(splt(s)) > 1 Then
            Set objShell = WScript.CreateObject("WScript.Shell")
            c = 1 : tabs = ""
            Success = False
            Do Until Success = True
                Success = objShell.AppActivate(Trim(splt(s)))
                If success <> True Then
                    If c = 1 Then 
                        tabs = "{TAB}"
                    Else
                        tabs = "{TAB " & c & "}"
                    End If
                    'wscript.echo "Activating: " & "%" & tabs
                    WshShell.SendKeys "%" & tabs
                    WScript.Sleep 5000
                    c = c + 1
                    If c = 100 Then 
                        WScript.echo "App not found"
                        Exit Function
                    End If
                End If
            Loop
            Dim cmds : cmds = Split(rollcommands, "|")

            For Each cm In cmds
                If InStr(cm, "{autoname}") Then
                    Dim file_ext : file_ext = Split(cm, ".") 
                    cm = DEFAULTSAVELOCATION & "autosave" & a & "." & file_ext(1)
                    a = a + 1
                End If
                WshShell.SendKeys cm
                WScript.sleep 500

            Next
        End If
    Next
End Function

Function LoadStringFromFile(filename)
    Const fsoForReading = 1
    Const fsoForWriting = 2
    Dim fso, f
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(filename, fsoForReading)
    Dim fulltext : fulltext = f.ReadAll
    LoadStringFromFile = fulltext
    f.Close
    fso.DeleteFile(filename)
End Function

This was alot of fun to write and I’m more happy about finishing it than actually showing the answer. Have a great week!

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Если вы тот, кто работает над определенным набором приложений каждый раз, когда вы сидите перед своим компьютер, вы можете открыть их вместе одним щелчком мыши при входе в систему на своем компьютере. ежедневно. У нас уже есть статья, в которой подробно рассказывается, как можно сэкономить время, открывая все приложения вместе с помощью простого пакетного сценария..

Точно так же, как вы можете пакетно открывать приложения, вы также можете пакетно закрывать приложения. Для этого нам нужно написать простой пакетный скрипт, который не требует знаний программирования. Читайте дальше, чтобы узнать, как легко закрыть несколько программ за один раз.

Читайте также: Как мгновенно закрыть все окна и вкладки Google Chrome за один раз

Раздел 1: Как создать и выполнить пакетный скрипт для одновременного закрытия нескольких программ

Шаг 1: Перейти к Рабочий стол мгновенно, нажав кнопку ВЫИГРЫШ + Д ключи вместе.

Оказавшись на рабочем столе, щелкните правой кнопкой мыши на пустое место, нажмите на Новый а затем нажмите на Текстовый документ.

Шаг 2: Теперь Двойной клик на только что созданном текстовом документе, чтобы открыть его.

Шаг 3: Как и далее, в текстовом документе скопировать и вставить следующую команду.

тасккилл /F /IM  /T > ноль

Обратите внимание, что вы должны заменить с Имя изображения приложения, которое вы хотите закрыть. Вы можете обратиться к Раздел 3: Как найти имя образа процесса/приложения, которое нужно закрыть, если вы не знаете Имя изображения процесса, который вы хотите убить.

Параметры команды поясняются ниже:

РЕКЛАМА

тасккилл – Убить процесс или приложение.

/Ф – Для принудительного завершения запущенного процесса.

/IM — Обозначает имя изображения. /IM следует за процессом Имя изображения. Если вы не знаете Имя изображения процесса, который вы хотите убить, см. Раздел 3: Как найти имя образа процесса/приложения, которое нужно закрыть.

/Т – Завершить все дочерние процессы.

ноль – Чтобы подавить ошибки и сообщения.

Вы можете добавить столько строк, сколько хотите. Каждая строка будет соответствовать одному приложению или программе.

Наконец, в конце напишите @Пауза. Это для вас, чтобы увидеть результаты выполнения вашей команды. Например, если программу не удалось закрыть, вы сможете увидеть причину, по которой ее не удалось закрыть, на экране CMD. В противном случае экран CMD мгновенно закроется.

Ниже показан пример сценария, в котором мы закрываем программы Блокнот, Калькулятор и WPS-офис с помощью нашего пакетного сценария.

taskkill /F /IM Notepad.exe /T > ноль. taskkill /F /IM CalculatorApp.exe /T > ноль. taskkill /F /IM wps.exe /T > nul @pause

Когда все будет готово, не забудьте одновременно нажать клавиши CTRL + S, чтобы сохранить файл.

Шаг 4: Теперь вернитесь на рабочий стол, нажмите на файл и нажмите F2 ключ к переименовать файл.

Шаг 5: Вы можете дать любое имя к вашему файлу, мы назвали его как Закрыть несколько программ. Какое бы имя вы ни дали, убедитесь, что вы дали расширение файла как летучая мышь после . (точка). Это самая важная часть.

Шаг 6: после того, как вы ввели имя, щелкните где-нибудь еще на экране. Теперь вы получите следующее Переименовать окно подтверждения. нажмите Да кнопку для подтверждения.

Шаг 7: Вот и все. Теперь ваш пакетный файл сценария готов. Двойной клик на нем, чтобы выполнить его.

Шаг 8: теперь ваш пакетный скрипт закрыть все программы указано в нем.

Кроме того, вы сможете увидеть, какие программы были закрыты на Командная строка экран. Это потому что ты поставил @Пауза в конце вашего скрипта. Это приостанавливает экран и ждет нажатия клавиши, прежде чем закрыть экран командной строки.

Раздел 2: Как добавить дополнительные программы в существующий пакетный сценарий

Если вы хотите добавить больше программ в список программ, которые вы хотите закрыть в пакетном файле, вы вполне можете это сделать.

Шаг 1: Щелкните правой кнопкой мыши на командный файл вы создали и нажмите на Показать больше вариантов.

Шаг 2: В раскрывающемся меню щелкните значок Редактировать вариант.

Шаг 3: теперь пакетный скрипт будет открываться в Блокнот, где вы можете вносить изменения, как обычно.

В приведенном ниже примере мы добавили еще одну строку в наш скрипт. На этот раз мы стремимся убить MS Paint также.

Раздел 3: Как найти имя образа процесса/приложения, которое нужно закрыть

Этот раздел больше похож на приложение, которое поможет вам найти Имя изображения приложения или процесса.

Чтобы убить приложение, вам нужно либо его Имя изображения или его идентификатор процесса. Для некоторых приложений Имя изображения может быть простым, но для некоторых других приложений об этом нельзя сразу догадаться. В таких случаях вы можете выполнить следующие шаги, чтобы легко узнать Имя изображения процесса, который вы хотите убить.

Шаг 1: На панели задач, расположенной в нижней строке экрана Windows, щелкните значок объектив икона.

Шаг 2: на панели поиска поиск командной строки и нажмите на Запустить от имени администратора возможность открыть командную строку в повышенном режиме.

Шаг 3: Когда открывается командная строка, скопировать и вставить или тип в следующей команде, чтобы вывести список всех запущенных процессов на вашем компьютере.

список заданий

Когда у вас есть список, под столбцом Имя изображения, вы можете прокрутить и узнать имя процесса/приложения, которое вы хотите убить. И вы можете использовать это Имя изображения в тасккилл команда.

Вот и все. Надеюсь, теперь вы сэкономите много времени, используя этот крутой трюк.

Пожалуйста, сообщите нам в разделе комментариев, нашли ли вы статью полезной. Кроме того, если вы застряли на каком-либо из шагов, сообщите нам, мы будем рады помочь.

Перейти к содержанию

taskkill /im процесс.exe

taskkill /im Skype.exe