خاموش کردن مانیتور و اجرای اسکرین سیور

[omid-vbAuto]

با سلام خدمت اعضاء محترم سایت


دوستان اطلاعی در مورد کد خاموش کردن مانیتور دارند؟

و با چه کدی اسکرین سیور رو اجرا کنیم؟



با تشکر

[omid-vbAuto]

دوستان چرا جواب نمی دهید؟

آیا راهی نیست؟

[parselearn]

راه: جستجو



Monitor off
http://www.l33thackers.com/showthread.php?tid=256


Declare this under your Class:

Private Declare Auto Sub SendMessage Lib "user32.dll" (ByVal hWnd As Integer, ByVal msg As UInt32, ByVal wParam As UInt32, ByVal lparam As Integer)

Turn off monitor/screen:

SendMessage(-1, &H112, &HF170, 2)

Turn monitor/screen back to normal:

SendMessage(-1, &H112, &HF170, -1)


Start the Screen Saver:
http://www.freevbcode.com/ShowCode.Asp?ID=524
http://www.codeproject.com/KB/vb/screensavernow.aspx


Declare this under your Class:


Private Declare Function GetDesktopWindow Lib _
"user32" () As Long

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal _
wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) _
As Long

Private Const WM_SYSCOMMAND As Long = &H112&
Private Const SC_SCREENSAVE As Long = &HF140&




Public Function StartScreenSaver() As Boolean

'PURPOSE: Start the ScreenSaver immediately.
'RETURNS: True if successful, false otherwise

Dim lDesktopWindow As Long
Dim lRet As Long

On Error GoTo ErrorHandler
lDesktopWindow = GetDesktopWindow()
lRet = SendMessage(lDesktopWindow, WM_SYSCOMMAND, _
SC_SCREENSAVE, 0)

StartScreenSaver = (lRet = 0)

ErrorHandler:
End Function

[omid-vbAuto]

راه: جستجو



Monitor off
http://www.l33thackers.com/showthread.php?tid=256


Declare this under your Class:

Private Declare Auto Sub SendMessage Lib "user32.dll" (ByVal hWnd As Integer, ByVal msg As UInt32, ByVal wParam As UInt32, ByVal lparam As Integer)

Turn off monitor/screen:

SendMessage(-1, &H112, &HF170, 2)

Turn monitor/screen back to normal:

SendMessage(-1, &H112, &HF170, -1)


Start the Screen Saver:
http://www.freevbcode.com/ShowCode.Asp?ID=524
http://www.codeproject.com/KB/vb/screensavernow.aspx


Declare this under your Class:


Private Declare Function GetDesktopWindow Lib _
"user32" () As Long

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal _
wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) _
As Long

Private Const WM_SYSCOMMAND As Long = &H112&
Private Const SC_SCREENSAVE As Long = &HF140&




Public Function StartScreenSaver() As Boolean

'PURPOSE: Start the ScreenSaver immediately.
'RETURNS: True if successful, false otherwise

Dim lDesktopWindow As Long
Dim lRet As Long

On Error GoTo ErrorHandler
lDesktopWindow = GetDesktopWindow()
lRet = SendMessage(lDesktopWindow, WM_SYSCOMMAND, _
SC_SCREENSAVE, 0)

StartScreenSaver = (lRet = 0)

ErrorHandler:
End Function








ضمن تشکر از زحمت دوستون.

قسمت دوم پارگراف مربوط به اسکرین سیور رو به صورت زیر اصلاح می کنم:



Private Shared Sub StartScreenSaver()
Dim hWnd As Integer
hWnd = GetDesktopWindow()
SendMessage(hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0)
End Sub

Public Shared Sub Main()
Try
StartScreenSaver()
Catch ex As Exception
MsgBox("Error: " & ex.Message)
End Try
End Sub