如何恶搞朋友的电脑？超简单的vbs代码

想恶搞朋友的电脑？想整蛊舍友的爱机？只要简单的几行代码，让恶搞发生。本文章将带你从vbs小白进阶到大神级别。

废话就不说了，直接上教程

1：新手教学（大神请跳到第五步）

编写vbs有多简单？新建“文本文档”，输入msgbox "一大波病毒正在靠近..." ，点击文件->另存为->重命名为“代码.vbs”。文件名不重要，重要的是后缀要是“.vbs”。

图片发自App

2：双击保存的文件：代码.vbs，即弹出一个对话框。记下这段小小的代码，去同学家里恶搞吧。当然你还可以输入其他有趣的文字。

图片发自App

3：当然，如此恶搞还是不够的。那就来一个无限循环吧，输入图中代码另存为vbs格式。双击打开。此时，会弹出提示对话框，点击确定和关闭按钮之后，再一次弹出窗口，如此循环，无法正常关闭。

图片发自App

4

那么到底要如何才能关闭呢？打开任务管理器结束进程“wscript.exe”即可

图片发自App

5

到此新手教学完毕，下面进入大神课堂教学。

无限弹出光驱：

---

---

---

---

---

---

---

---

set wmp=createobject("wmplayer.ocx")

set cd=wmp.cdromcollection.item(0)

do

cd.eject

loop

6

无尽语音报数：

无限语音从1数到无限大。

Set s = CreateObject("sapi.spvoice")

i=0

do

s.speak i

i=i+1

loop

7

无尽刷新：

慎用，如此刷新打开任务管理器都难，只能拔掉电源。

set ws=createobject("wscript.shell")

do

ws.sendkeys "{f5}"

loop

8

不断按下alt+f4 ：

打开任何程序都关掉

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

do

wscript.sleep 2500

WSHshell.SendKeys "%{F4}"

loop

好了，今天的分享就到这里。开玩笑也得有个度，凡事都不要太过。上面的代码的尺度还不算很大，大家可以玩玩。