' Запуск scrensaver'аDeclare Function SendMessage Lib "user32" Alias "SendMessageA" _(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ByVal IParam As Long) As Long
Const WM_SYSCOMMAND = &H112&Const SC_SCREENSAVE = &HF140&