При создании нового процесса – компьютер озвучивает название процесса
Set colEvents = GetObject("winmgmts:\\.\Root\CIMV2").ExecNotificationQuery( _
"SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' " ) Do Set objEvent = colEvents.NextEvent
h0=ObjEvent.TargetInstance.Name
hh=instr(h0,".")
h1=Left(h0,hh-1)
Set sapi=CreateObject("sapi.spvoice") sapi.Speak
h1 &"Starting"
h0=""
Loop
За основу взят скрипт dab00 сайт http://www.vr-online.ru/
0 Комментарии。