Хранитель экрана....

[Создатель]

Люди!!!!Помогите кто может плиз...
Я проситал в одном самоучителе, что на VB можно написать хранитель экрана....только как его написать,там не написано!!!
Хотя бы просто саму систему....

[Max!]

Подробнее можно что за хронитель

[Создатель]

Max!

Зайди в св-ва экрана и посмотри "заставка"
вот они то и являются хранителями экрана.....

А я вот хочу написать свой....для начала просто чтобы какое-нить сообщение мигало или т.п.

[Fedesius]

Ну описывать весь процес это довольно долго так что посмотри статейку по этойтеме. Вот ссылка http://vbstreets.ru/VB/Articles/65544.aspx

[EvilCoder]

<DELETE>

[Juriev]

'Форма - BorderStyle=0
'Таймер - Interval=500

Option Explicit
Dim a As Single, b As Single
Dim c As Boolean, flagTimer As Boolean

Private Sub Form_Load()
Form1.WindowState = vbMaximized
Form1.FontSize = 72
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If c = False Then
a = X: b = Y
c = True
End If
If Abs(X - a) > 100 Or Abs(Y - b) > 100 Then Unload Me
End Sub

Private Sub Timer1_Timer()
Cls
If flagTimer = False Then
CurrentX = 1000: CurrentY = 1000
Form1.Print "Привет"
Else
CurrentX = 5000: CurrentY = 5000
Form1.Print "Всем!!!"
End If
flagTimer = Not flagTimer
End Sub
'Сделать EXE-файл. Переименовать его в любое_имя.scr и переместить в каталог \windows\system32 (для win XP, для других Виндов- не знаю куда).
'Далее как обычно в настройках Виндов выбрать эту заставку.
Все

[Juriev]

Да! Не забыть поставить Timer1.Enabled=True при создании или в форм_лойд.

[Создатель]

Кстати, ты про прерывания от клавы забыл.......но это можно самому доделать.....
Всем огромное спасибо.......
Думаю, эту тему можно закрывать.....

[master35]

'Сделать EXE-файл. Переименовать его в любое_имя.scr
-----
все вроде бы правильно сделал, но экзэшник не становиться хранителем, а так и остается приложением только с именем Screen.scr (в моем случае). т.е не могу поменять расширение, в чем проблема ?

[alibek]

Этого недостаточно.

[master35]

Этого недостаточно.

так что нужно сделать то? как правильно? Если можно пошагово...(ОС ХР)

[tyomitch]

Этого недостаточно.

Этого достаточно.

Возможно, у master35 стоит опция "скрывать расширения зарегистрированных типов файлов". Тогда её надо снять (Сервис -> Свойства папки -> Вид).

[alibek]

Правильный скринсейвер обязан давать пользователю возможность менять настройки, делать preview и пр. А совсем правильный, кроме того, будет уведомлять систему о том, что он, скринсейвер, запустился.

[tyomitch]

alibek, согласен, что "правильный скринсейвер" - не то же самое, что "скринсейвер вообще"?
Тут человек не знает как расширение у файла поменять, а ты о настройках и превью...

[master35]

Возможно, у master35 стоит опция "скрывать расширения зарегистрированных типов файлов". Тогда её надо снять (Сервис -> Свойства папки -> Вид).[/quote]


Все было именно так:)) Снял и поменял, все работает!
Спасибо большое..

[Ruslan Demidow]

alibek, согласен, что "правильный скринсейвер" - не то же самое, что "скринсейвер вообще"?
Тут человек не знает как расширение у файла поменять, а ты о настройках и превью...

Кстати о настройках и превью:
Это легко организовать: винда запускает программу в режиме скринсейвера с ключом /s. В режиме настройки - с ключом /c. В режиме превью - с ключом /p.

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

Sub SheckCommandLine()
    Dim sCmdLine As String
    sCmdLine = Trim$(UCase$(Command$))
   
    'Запускаем заставку в обычном режиме
    If sCmdLine = "/s" Or Len(cmdline) = 0 Then
        Exit Sub
    End If
   
    'Запускаем заставку в режиме конфигурации
    If sCmdLine = "/c" Then
        MsgBox "Конфигурация не требуется"
        End
    End If
   
    'Запускаем заставку в режиме просмотра
    If Left$(sCmdLine, 2) = "/p" Then
        'параметр можно получить с помощью оператора Val(Mid$(sCmdLine,3))
        End
    End If
   
End Sub


P.S. И ещё по поводу отслеживания "мышиных" движений: при запуске заставки Windows сразу отправляет ей пару событий MouseMove. Поэтому стоит предусмотреть счётчик при обработке событий от мыши.

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

Dim nMouseCount As Integer

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    nMouseCount = nMouseCount + 1
    If nMouseCount > 5 Then Unload Me
End Sub