amzoom
|
 Posted: Mon Oct 12, 2009 03:59 Post subject: |
 |
|
| amzoom wrote: | а кстати, вот у меня такой вопрос: а можно ли как-то в скрипте указать, что он должен закрываться, если не обнаружен процесс тоталкоммандера (т.е. он не запущен)?
а то в принципе то я могу написать батник который бы запускал этот скрипт и тотал коммандер, и использовать этот батник просто как ярлык для тотала, но ведь при выгрузке тотала процесс скрипта будет всё ещё висеть в памяти... |
ответ на этот вопрос получил на другом форуме:
primer.vbs
| Code: | Option Explicit
Dim lngProcessID1, lngProcessID2
With GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
With .Get("Win32_Process")
.Create "totalcommander.exe", "c:\\path", Nothing, lngProcessID1
.Create "script_scrolla.exe", "D:\\path", Nothing, lngProcessID2
End With
.ExecNotificationQuery( _
"SELECT * FROM __InstanceDeletionEvent WITHIN 1 " & _
"WHERE TargetInstance ISA 'Win32_Process' AND " & _
"TargetInstance.ProcessID = '" & CStr(lngProcessID1) & "'").NextEvent
On Error Resume Next
.Get("Win32_Process.Handle='" & CStr(lngProcessID2) & "'").Terminate
On Error Goto 0
End With
WScript.Quit 0
|
p.s.: mf-zl, от вас жду по возможности фикса трёх вышеописанных багов. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
