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

Главная Форумы ОС, сети, софт, настройка, hack Семейство Windows Голосовое сопровождение запускаемых процессов в системе

  • Эта тема пуста.
Просмотр 1 сообщения - с 1 по 1 (всего 1)
  • Автор
    Сообщения
  • #1075
    Аноним
    Неактивированный

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

      Set colEvents = GetObject("winmgmts:\.RootCIMV2").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/

Просмотр 1 сообщения - с 1 по 1 (всего 1)
  • Для ответа в этой теме необходимо авторизоваться.