VB怎么样才能关显示器?

Question

我是菜鸟,我只会写关主机的代码,请教请教!

Answer 1

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_SYSCOMMAND = &H112&
Const SC_MONITORPOWER = &HF170&
     
Private Sub Form_Load()
    SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2& '根据MSDN，这个参数如果是1，则 表示显示器处于低能耗状态。
End Sub

Answer 2

打开显示器：
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1&

Answer 3

高人啊！真是牛人！但是rainstormmaster(暴风雨 v2.0)大侠啊，我在win2000 ad server＋vb6 sp5下试过，发现显示器只是变黑一下就有正常显示啊！并没有象人工关掉显示器一样关掉他啊

Answer 4

//但是rainstormmaster(暴风雨 v2.0)大侠啊，我在win2000 ad server＋vb6 sp5下试过，发现显示器只是变黑一下就有正常显示啊！并没有象人工关掉显示器一样关掉他啊检查你的电源选项的设置

Answer 5

Sendmessage 显示器.hwnd,点击,0,Byval 开关

Answer 6

谢谢楼上几位大侠的答复！请教：jjkk168(老加班的人) 大侠：您的“Sendmessage 显示器.hwnd,点击,0,Byval 开关”好像要怎么完善一下才行吧？？
那个“显示器.hwnd”具体到我的代码应该怎么写？“Byval 开关”呢？
继续请教！

Answer 7

学习。
记得几年前，有个叫bluefire的木马是有这样的功能的。