[Petya V4sechkin]

Severny, вместо tskill taskkill, причем без опции /F

Код:

taskkill /IM notepad.exe

[Severny]

Petya V4sechkin,
Спасибо. Блокнот завершается отлично.
Мое приложение нет (
Подсказали скрипт, что-то мне не удается связать (

set WshShell = WScript.CreateObject("WScript.Shell") WshShell.AppActivate "ics.exe" WScript.Sleep 1000 WshShell.SendKeys "q" WScript.Sleep 1000 WshShell.SendKeys "~"

[Petya V4sechkin]

Severny, как-то так:

Код:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "Internet Casino Cash"
WshShell.SendKeys "%{F4}"

[Severny]

Petya V4sechkin,
Ну я же знал, что найду ответ на ЭТОМ форуме )

[Severny]

Один момент.
Если вдруг программа закрыта, то выскакивает окошко завершения работы (ну Alt+F4).
Нельзя ли какой-то параметр if, чтобы Alt-F4 не выполнялся, если не обнаруживается работающая программа.

[Petya V4sechkin]

Код:

Set WshShell = WScript.CreateObject("WScript.Shell")
If WshShell.AppActivate("Internet Casino Cash") Then
  WshShell.SendKeys "%{F4}"
End If

[Severny]

Дело мастера боится

[megaloman]

Вот скрипт, который убивает процесс. Он не связан с посылкой в буфер никаких имитаций нажатия клавиш. Если запущено несколько одинаковых процессов, убивает все. Для примера взял far.exe, который переспрашивает, надо ли завершать программу или нет. Скрипт убивает его без вопросов. Хоть десять штук за раз.

Код:

WhatKill = "Far.exe"    ' Что хотим убить. Если запущено несколько экземпляров, убьём всё

Set WMI = GetObject("winMgmts:")
iSQL = "Select * From Win32_Process Where Name=""" + WhatKill + """"
Set Proc = WMI.ExecQuery(iSQL)

For Each iProc In Proc
    iProc.Terminate
Next

[Severny]

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