+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : كيفية اطفاء الشاشة وتشغيلها (/showthread.php?tid=5872)
كيفية اطفاء الشاشة وتشغيلها - RaggiTech - 17-10-12
كاتب الموضوع : 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&