View Full Version : خاموش کردن مانیتور و اجرای اسکرین سیور
omid-vbAuto
چهارشنبه 11 اسفند 1389, 15:16 عصر
با سلام خدمت اعضاء محترم سایت
دوستان اطلاعی در مورد کد خاموش کردن مانیتور دارند؟
و با چه کدی اسکرین سیور رو اجرا کنیم؟
با تشکر
omid-vbAuto
پنج شنبه 12 اسفند 1389, 00:01 صبح
دوستان چرا جواب نمی دهید؟
آیا راهی نیست؟
parselearn
پنج شنبه 12 اسفند 1389, 07:26 صبح
راه: جستجو
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
پنج شنبه 12 اسفند 1389, 08:01 صبح
راه: جستجو
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.