Голосовое сопровождение запускаемых процессов в системе

Опубликовал(а): Bumos в: 2 марта 2012 Оставить комментарий (0) Перейти к комментариям

При создании нового процесса – компьютер озвучивает название процесса

  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/

Обсудить на форуме…