Этот скрипт срабатывает только один раз, когда его запускаешь. Если в следучий раз findcaptcha.exe грузит комп, то ничего не происходит. Может есть другое решение?
Цитата:
Цитата:
VB cкрипт для убиения всех процессов (findcaptcha.exe), которые сожрали более, чем nOverloadLimit секунд процессорного времени. WMI служба должна быть включена.
Как пользоваться - этот скрипт сохранить в файл, например fc.vbs
Отредактировать nOverloadLimit по вкусу
Запускать из cmd или bat файла (например счетчика или в планировщик винды запихнуть) с помощью csсript, вот так:
cscript c:\USDownloader\fc.vbs
Цитата:
strComputer = "."
strProcName = "findcaptcha.exe"
'strProcName = "iexplore.exe"
nOverloadLimit = 10 'секунды
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Process where name = '"& strProcName &"'")
If IsObject(colProcesses) Then
For Each objProcess In colProcesses
nCpuTime = GetProcessTime(objProcess)
If nCpuTime >= nOverloadLimit Then
objProcess.Terminate()
End if
Next
End if
Function GetProcessTime(objProcess)
GetProcessTime = ( CSng(objProcess.KernelModeTime) + CSng(objProcess.UserModeTime)) / 10000000
End Function
.
PJAT