Архивы по Категориям: VB-Script

Хайвей для людей

haiveiВсем привет, сегодня появилось множество предложений от сотовых операторов по мобильному интернету, не так давно у Билайна проходила акция – сдаешь свой старый 3G модем любого оператора сотовой связи и взамен получаешь новый 3G модем от Билайна плюс 2 месяца по 30Gb с включенной опцией Хайвей (можно качать без учета трафика с 1 ч. ночи до 8 утра по Москве). Все прекрасно – заинтересовала меня эта акция и я поменял свой старый модем на новенький не 4G но все же с поддержкой до 21Мбит скорости 3G. Читать далее »

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

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

  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/

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