экранная заставка

[13GHOST]

как отследить момент включения экранной заставки??

[dr.MIG]

Предположу (не факт, что правильно), что так же как запуск любого другого процесса, например через WMI.

[Antonariy]

Отследить появление процесса с расширением scr?

[dr.MIG]

Смотри пример. Перевести из vbs-скрипта и модифицировать думаю не составить труда...
Пояснение: появляется MsgBox, когда запускается заставка sstext3d.scr.

[13GHOST]

как это сделать на примере включения любой заставки?

[13GHOST]

немного поясню, а то вдруг вы не так поняли , нужно отследаить когда виндоус сама включит экранную заставку, типа away режим, который настраивается в свойсвах экрана (вкладка "заставка")

[dr.MIG]

Ну ведь синтаксис SQL... Думал сам догадаешься для любой заставки: замени WHERE ProcessName="xxx.src" на WHERE ProcessName LIKE '%.scr' Попробуй теперь запустить этот файл и в момент, когда включится заставка вылезет сообщение.

[13GHOST]

а как это реализовать посредством обычного ВБ6??

[GSerg]

Тебе дали код.

[13GHOST]

дак он на vbскипте! как это будет выгядеть на вб6?

[GSerg]

Точно так же?

[dr.MIG]

Точно так же?

Ну если просто его скопировать, то ничего не выйдет, чуть-чуть модифицировать надо...

[13GHOST]

дак вот я и хотел узнать - как??

[Konst_One]

в работу тогда пиши, а не в этот форум

[dr.MIG]

Исключительно потому что у меня очень хорошее настроение в силу сразу нескольких обстоятельств...

Подключи Project->Preferences->Microsoft WMI Scripting V1.2 Library

Код: Выделить всё


Private WithEvents objSink As SWbemSink

Private Sub Form_Load()
    strComputer = "."
    Set objWMIService = GetObject( _
    "winmgmts:{impersonationLevel = Impersonate}!\\" _
    & strComputer & "\ROOT\CIMV2")
    Set objSink = New SWbemSink
    objWMIService.ExecNotificationQueryAsync objSink, _
    "SELECT * FROM Win32_ProcessStartTrace WHERE ProcessName LIKE '%.scr'"
End Sub

Private Sub objSink_OnObjectReady(ByVal objWbemObject As WbemScripting.ISWbemObject, ByVal objWbemAsyncContext As WbemScripting.ISWbemNamedValueSet)
    MsgBox "Alarm, Alarm!"
End Sub

[13GHOST]

большое спаибо! А нельзя ли это реализовать без подключения доплнительных библиотек? А выход из режима экранной застаки тоже также можно сделать?
Microsoft WMI Scripting V1.2 Library - где ее взять в стандартных она у меня не числится

[dr.MIG]

Какая операционная система?

[13GHOST]

winXP SP2

[dr.MIG]

Не верю что нет. Project->Preferences, там должна быть...
А вообще советую ознакомиться с WMI в MSDN и в других местах, что бы понять что это за "сторонняя библиотека" и с чем её едят.

[13GHOST]

аа... все разобрался...
только вот проблема: "alarm,alarm!" выскакивает даже тогда когда пользователь заходит в настройки экрана и выбирает вкладку "заставка"

[dr.MIG]

Первое, что приходит в голову - в процедуре objSink_OnObjectReady искать окно с заголовком "Свойства: Экран" (ф-я FindWindow) и если оно есть ничего не делать, если нет - выполнять определённые действия.

[GSerg]

http://support.microsoft.com/default.as ... -us;315725
http://support.microsoft.com/default.as ... -us;238882
http://support.microsoft.com/default.as ... -us;150785

[dr.MIG]

Забыл, однако, про функцию SystemParametersInfo...