给我一套vbe代码，整人的，能让他重启电脑的那一种

给我一套vbe代码，整人的，能让他重启电脑的那一种

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 5 -c ""不说你会后悔！"" ",0 ,true
dim a
do while(a <> "大哥")
a = inputbox ("喊大哥,不喊就关你的机,快说！！ ","牛不牛","牛",10000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早点说就OK了！"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，呵呵呵呵..真过瘾..."

1.调用命令行 Shell "cmd /c shutdown -r -t 00" stop:0x00000050(0x82800000 2.用API函数 Private Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Private Const EWX_REBOOT = 2 Private Sub Command_Click() Call ExitWindowsEx(EWX_REBOOT,0) End Sub

建议你不要 干坏事

不好吧 那事害人地