一起写程序！VBS菜鸟程序

现在开始，我们就要开发“菜鸟程序”了！大家做好准备哦。菜鸟程序就是在用户打开它的时候，它会强迫用户关机。目前，菜鸟程序只有这个功能。

自动关机

Dim close
set close=createobject("wscript.shell")
close.run"cmd.exe /c shutdown -s -t 1"

这个方法先创建一个close，设置为Shell窗口，接着打开，然后运行cmd.exe，并且输入自动关机的cmd代码：shutdown -s -t 1

InputBox提示

在输入框中给予一个提示，以便用户可以更改，但如果也要输入这个内容，就可以使用它。试了才知道，我们看一看吧。

InputBox("快，说 ""关机"" ", "快去读书，玩什么电脑？", "关机", 8000, 7000)

后两个引号分别表示：标题为第二个引号，InputBox提示为第三个引号

代码

示例代码：

Dim close
Dim ok=InputBox("快，说 ""关机"" ", "快去读书，玩什么电脑？", "关机", 8000, 7000)
If ok="关机"
MsgBox "是你自己要关机的",16,"快去读书，玩什么电脑？"
set close=createobject("wscript.shell")
close.run"cmd.exe /c shutdown -s -t 10"
Else
MsgBox "叫你不好好说，关机了也活该",16,"快去读书，玩什么电脑？"
set close=createobject("wscript.shell")
close.run"cmd.exe /c shutdown -s -t 10"