hpoint
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо CrazyDeath, завтра (уже сегодня) посмотрю.
надеюсь, что поможет.
Добавлено:
Не смог заснуть не попробовав.
Сделал вот такой скрипт
Цитата: Function OnFirstParentExit
ProcessKiller("My Thinstalled Application.exe")
End Function
Function ProcessKiller(ProcessName)
If ProcessExists(ProcessName) Then ProcessClose(ProcessName)
End Function
Function ProcessExists(ProcessName)
msgbox "1"
Set Processes = GetObject("winmgmts://localhost")
msgbox "2"
Set myProcEnum = Processes.ExecQuery("select * from Win32_Process")
For Each Proc In myProcEnum
If StrComp(Proc.Name, ProcessName, 1) = 0 Or StrComp(Proc.ProcessID, ProcessName, 1) = 0 Then
ProcessExists = True
Exit Function
End If
Next
ProcessExists = False
End Function
Function ProcessClose(ProcessName)
Set Processes = GetObject("winmgmts://localhost")
Set myProcEnum = Processes.ExecQuery("select * from Win32_Process")
For Each Proc In myProcEnum
If StrComp(Proc.Name, ProcessName, 1) = 0 Or StrComp(Proc.ProcessID, ProcessName, 1) = 0 Then
Proc.Terminate
End If
Next
End Function |
Вызов ProcessKiller как скрипта - работает, а вызов в составе функции OnFirstParentExit - нет.
Пробовал оттрассировать:
msgbox "1" - выводит,
msgbox "2" - уже нет.
При этом не выводит ошибок. Просто тишина.
Какой у тебя скрипт работает? Раскроешь "секрет"  ? Мне не хватает знаний и опыта разобраться.  |
Всего записей: 242 | Зарегистр. 18-07-2006 | Отправлено: 00:07 21-05-2008 | Исправлено: hpoint, 02:04 21-05-2008 |
|
