لإطفاء الشاشة وتشغيلها

 

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&




http://www.arabteam2000-forum.com/

Share |

معلومات إضافية