dinis124
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Раз
Код:
Function OnFirstParentExit
ProcKill1 = ExecuteExternalProcess("cmd.exe /c taskkill /F /IM LVComSer.exe /IM LVPrcSrv.exe /IM CO~AI7E5.EXE /IM CO~S466W.EXE /T ")
WaitForProcess ProcKill1, 0
End Function
|
Два
Код:
Function OnFirstParentExit
RegFileName = ExpandPath("%Personal%\ProcKiller.bat")
Set fso = CreateObject("Scripting.FileSystemObject")
Set RegFile = fso.CreateTextFile(RegFileName, true)
RegFile.WriteLine("taskkill /F /IM LVComSer.exe /T")
RegFile.WriteLine("taskkill /F /IM LVPrcSrv.exe /T")
RegFile.WriteLine("taskkill /F /IM CO~AI7E5.EXE /T")
RegFile.WriteLine("taskkill /F /IM CO~S466W.EXE /T")
RegFile.Close
ProcKillid = ExecuteExternalProcess(ExpandPath("%Personal%\ProcKiller.bat"))
WaitForProcess ProcKillid, 0
fso.DeleteFile(RegFileName)
End Function
|
Три
Код:
Function OnFirstParentExit
KillProcess = "process_name.exe"
Set ProcessList = GetObject("winmgmts://.").InstancesOf("win32_process")
For Each Process In ProcessList
If Process.Name = KillProcess Then
Process.Terminate
End If
Next
End Function
|
Еще можно NirSoft и TAPK
Или скрипт vbs с нуля. Запуск исполняемого файла, и завершение по пид. |
Всего записей: 143 | Зарегистр. 12-09-2011 | Отправлено: 16:32 31-08-2014 | Исправлено: dinis124, 16:39 31-08-2014 |
|
