Set colMonitoredEvents = GetObject("winmgmts:")._
ExecNotificationQuery("Select * from Win32_PowerManagementEvent")
Do
Set strLatestEvent = colMonitoredEvents.NextEvent
Dim ObjProcess, oShell
Select Case strLatestEvent.EventType
Case 4
For Each objProcess in GetObject("winmgmts:").ExecQuery("select * from Win32_Process where name='miranda.exe'")
objProcess.Terminate(0)
Select Case strLatestEvent.EventType
Case 7
set oShell=createobject("WScript.Shell")
oShell.Run "C:\Programme\Miranda\Miranda32.exe"
End Select
Loop
irgendwo is noch ein fehler drin
|