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

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

  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/

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

Оставить комментарий


Примечание - Вы можете использовать эти HTML tags and attributes:
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>