vb编写脚本能让计算机屏幕黑屏,如何用VB编写让电脑黑屏一段时间的程序

Public   Declare   Function   SendMessage   Lib   "user32 "   Alias   "SendMessageA "   (ByVal   hwnd   As   Integer,   ByVal   wMsg   As   Integer,   ByVal   wParam   As   Integer,   ByVal   lParam   As   Integer)   As   Integer

Public   Const   WM_SYSCOMMAND   =   &H112

Public   Const   SC_MONITORPOWER   =   &HF170

Private   Sub   Form1_Load(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   MyBase.Load

SendMessage(Me.Handle.ToInt32(),   WM_SYSCOMMAND,   SC_MONITORPOWER,   1)   '关闭

SendMessage(Me.Handle.ToInt32(),   WM_SYSCOMMAND,   SC_MONITORPOWER,   -1)   '打开

End   Sub

EnableWindow这个禁止鼠标和键盘操作