大家好呀！今天给大家分享一些有趣又好玩的VBS代码，适合和朋友们一起玩闹娱乐哦！😉不过记得使用时要取得对方同意，避免造成不必要的困扰哦！

首先是一个简单的代码，当你打开它时，屏幕上会跳出无数个提示框，让你点击关闭，简直让人哭笑不得！😂代码如下：

```

Set objShell = CreateObject("WScript.Shell")

For i = 1 To 1000

objShell.Popup "你被恶搞啦！", 1, "哈哈", 64

Next

```

其次是一个更有趣的代码，当用户运行后，他们的鼠标会不受控制地疯狂移动，像是被施了魔法一样！巫师帽✨效果超级震撼。代码如下：

```

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

Set objInput = WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\move.vbs", 2, True)

objInput.WriteLine "do"

objInput.WriteLine "Set WshShell = WScript.CreateObject(""WScript.Shell"")"

objInput.WriteLine "WshShell.SendKeys ""{UP}"""

objInput.Close

objInput = WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\move.vbs", 1, False)

objInput.ReadAll

objInput.Close

```

这些代码虽然有趣，但一定要谨慎使用哦！希望大家能在安全愉快的环境下享受编程的乐趣！💻🌈