17-10-12, 12:50 AM
كاتب الموضوع : AhmedEssawy
وكما هي عادتنا في الكثير من دوال API نلتقي بالمكتبة user32 من خلال الدالةSendMessage والتي نستخدمها كثيراً من أجل ارسائل رسائل خاصة إلى النظام .وطريقة الرسائل عادة ما تكون غير مقروءة مثل &H112 ، ولذا نقوم بتعريفها في ثوابت قابلة للقراءة ..
والآن إلى الكود :
كود :
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
كود :
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2&
كود :
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1&