كود للإطفاء الشاشه

Private Const SC_MONITORPOWER As Long = &HF170&
Private Const WM_SYSCOMMAND As Long = &H112

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

Private Sub Form_Load()
Show
MsgBox "سيتم إطفاء الشاشة الآن، ثم تشغيلها بعد 5 ثوان"
Timer1.Interval = 5000
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 0
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1
End Sub
-
-
-
-
بس لا تبخلون علينه

[swf=http:// width=400 hight=350[/swf]مشكور على هل الكود الحلو

ميرسي على الكود