如何用API函数关闭监视器

为节约起见，想设定PC超过5分钟无操作时关闭监视器  
  请问各位高手，如何调用API函数可以关闭监视器 问题点数：20、回复次数：4Top

1 楼Modest（塞北雪貂)·(偶最欣赏楼主的分）回复于 2006-03-08 15:28:57 得分 20

Option   Explicit  
   
  Private   Declare   Function   SendScreenMessage   Lib   "user32"   _  
        Alias   "SendMessageA"   _  
      (ByVal   hwnd   As   Long,   _  
        ByVal   wMsg   As   Long,   _  
        ByVal   wParam   As   Long,   _  
        lParam   As   Any)   As   Long  
   
  Private   Const   MONITOR_ON   =   -1&  
  Private   Const   MONITOR_LOWPOWER   =   1&  
  Private   Const   MONITOR_OFF   =   2&  
  Private   Const   SC_MONITORPOWER   =   &HF170&  
  Private   Const   WM_SYSCOMMAND   =   &H112  
   
  '关闭   显示器  
  Public   Function   MonitorOff(Form   As   Form)  
           
          Call   SendScreenMessage(Form.hwnd,   WM_SYSCOMMAND,   SC_MONITORPOWER,   ByVal   MONITOR_OFF)  
   
  End   Function  
   
  '开启显示器  
  Public   Function   MonitorOn(Form   As   Form)  
           
          Call   SendScreenMessage(Form.hwnd,   WM_SYSCOMMAND,   SC_MONITORPOWER,   ByVal   MONITOR_ON)  
   
  End   Function  
   
  '关闭显示器电源   :)---深度睡眠  
  Public   Function   MonitorPowerDown(Form   As   Form)  
           
          Call   SendScreenMessage(Form.hwnd,   WM_SYSCOMMAND,   SC_MONITORPOWER,   ByVal   MONITOR_LOWPOWER)  
           
  End   Function  
  Top

2 楼J_Zanetti（国际米兰的阿飞）回复于 2006-03-08 18:04:22 得分 0

哎呀，，高手啊，，，  
  谢谢，，太谢谢了，，，，，Top

3 楼J_Zanetti（国际米兰的阿飞）回复于 2006-03-08 18:12:34 得分 0

？？？？？？  
   
  请问别人为我回答问题后，我怎么给人家分呢？？？？Top

4 楼sstlwg（CS、FIFA、极品飞车高手,不服不行地）回复于 2006-03-08 18:47:36 得分 0

啊哈哈Top

相关问题

• 显示器
• sendscreenmessage
• 监视器
• monitorpower
• 关闭
• syscommand
• monitor
• byval
• sc
• hwnd

• 帖主：J_Zanetti
• Modest

• Visual Basic类图书
• Visual Basic类源码下载