Private Const WM_SYSCOMMAND = &H112&
Private Const SC_MONITORPOWER = &HF170&
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

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If CloseDisplay = False Then MsgBox "关闭显示器失败。"
If OpenDisplay = False Then MsgBox "打开显示器失败。"
End Sub
     
     
Private Function CloseDisplay() As Boolean
CloseDisplay = IIf(SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 1&) = 0, True, False)
End Function
     
     
Private Function OpenDisplay() As Boolean
OpenDisplay = IIf(SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1&) = 0, True, False)
End Function


[ 本帖最后由 lisida888 于 2009-10-11 15:29 编辑 ]

只有一个入口点，就是刷新率，不过实际上也不可能，也不会爆炸。

死循环快速关闭和打开显示器。相信重复执行几亿次应该可以搞定一个显示器吧

呵呵,没执行到一亿次,CPU先掉渣了.
他的意思是在屏幕上显示"爆炸动画"

我的意思是让显示器冒烟

呵呵,看来是我的大脑坏掉了!~

这样的话,显示器制造商那又要遇到难题了!

晕...有这样的软件啊？

Private Const WM_SYSCOMMAND = &H112&
Private Const SC_MONITORPOWER = &HF170&
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
 
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
 
Private Sub Timer1_Timer()
If CloseDisplay = False Then MsgBox "关闭显示器失败。"
If OpenDisplay = False Then MsgBox "打开显示器失败。"
End Sub
     
     
Private Function CloseDisplay() As Boolean
CloseDisplay = IIf(SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 1&) = 0, True, False)
End Function
     
     
Private Function OpenDisplay() As Boolean
OpenDisplay = IIf(SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1&) = 0, True, False)
End Function
 
 
这段代码把用户的眼睛给闪话应该没问题，

这段代码在我电脑上执行的结果:






















电脑黑屏,用 ALT+F4 退出的程序,立即亮了.