نحوه خاموش کردن مانیتور؟؟؟

[AlgorithmX]

سلام دوستان امیدوارم که تایپیک تکراری نباشه!!!!
آیا دستور یا تابعی هست که مانند Screen Saver مانیتور رو خاموش کنه؟؟؟

[butterfly8528]

سلام دوست عزیز .


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

Const WM_SYSCOMMAND = &H112&
Const SC_MONITORPOWER = &HF170&

Private Sub Command1_Click()
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 1& ' Monitor Off
'SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal -1& Monitor On
End Sub



موفق باشید .

[AlgorithmX]

دوست گلم برای من که کار نکرد!!!
نمیدونم چرا؟؟؟
به صورت ادمین هم اجراش کردم ولی....
لطفا دیگرون هم چک کنند و جوابشو بدن. ممنون میشم.

[Slytherin]

سلام دوستان امیدوارم که تایپیک تکراری نباشه!!!!
آیا دستور یا تابعی هست که مانند Screen Saver مانیتور رو خاموش کنه؟؟؟


Option Explicit

Private Declare Function SendMessage Lib _
"user32" Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Const SC_MONITORPOWER As Long = &HF170&

Const MONITOR_ON = -1&
Const MONITOR_OFF = 2&
Const WM_SYSCOMMAND = &H112

'SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_ON
'
'Turn Monitor off:
'SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF

Private Sub Command1_Click()

SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_ON

End Sub

Private Sub Command2_Click()

SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF

End Sub

[AlgorithmX]

این دومی کارکرد ممنونم از همه!!!:لبخند: