用VISUAL BASIC 6.0寫的程式,當在COM PORT上收到一個特定的訊號,就將顯示器關閉,進入待機狀態。當訊號消失後,就回到執行該程式。請問你在程式上應該怎樣去寫及編排?
-------------------------------------
兄弟姐妹们有什么想法嘛?可否将其思想以及代码给出,不吝赐教!

解决方案 »

  1.   

    Private Declare Function SendScreenMessage Lib "user32" _
      Alias "SendMessageA" _
    (ByVal hwnd As Long, _
      ByVal wMsg As Long, _
      ByVal wParam As Long, _
      lParam As Any) As LongPrivate 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
    楼主试试,记得给分哦!
      

  2.   

    添加MSComm控件,详细的
    COM口的通信资料可以看MSDN.