Question

求关机和重启的vb代码

求vb代码！要求
单机按钮触发事件！ 然后显示一个文本框，键入密码可以关机，
具体如下 输入：我是猪。关机 我是猪他爸。重启
采纳后另有奖励

Answer 1

调用WINDOWS自动的SHUTDOWN命令，但是仅限于2000及2000以上的系统。2000以下的系统没有这个命令，可以把XP系统目录中的
shutdown.exe
复制到98的系统目录下，再执行下面的命令。
private
sub
command2_click()
'关闭
shell("shutdown
-f
-s
-t
0")
end
sub
private
sub
command3_click()
'重启
shell("shutdown
-f
-r
-t
0")
end
sub

Answer 2

Private Sub Command1_Click()
Dim strA As String
strA = inpubox("输入密码：")
If strA = "我是猪" Then Shell "cmd.exe /c shutdown -s -t 60" '60秒关机
If strA = "我是猪他爸" Then Shell "cmd.exe /c shutdown -r -t 60"
End Sub

Answer 3

Private Sub Command1_Click()
Dim a As String
a = InputBox("请输入密码", "谢谢")
If a = "我是猪" Then Shell "shutdown -S -t 0" '关机
If a = "我是猪他爸" Then Shell "shutdown -R -t 0" '重启``
End Sub

Answer 4

Shell "cmd.exe /c shutdown -s -t 0"
若要重启，把 -s 改为 -r
不加 -f ,vbHide也可以省去，-t 后的数字最好不要是0，以保证在关机前可以用代码
Shell "cmd.exe /c shutdown -a"
取消关机
(我只是引用别人的，不算是我的)

Answer 5

我来回答，消息收到了？
看没看？并不难是吧

http://zhidao.baidu.com/question/42782956.html 1941希望对你有帮助！