在编程的世界里，VBS（Visual Basic Script）是一种简单易学的脚本语言，它能够帮助我们快速实现一些有趣的功能。无论是用来恶作剧，还是单纯为了娱乐，VBS都能带来不少乐趣。今天，我们就来分享几个好玩的VBS代码，让大家体验一下编程的乐趣。
首先，我们来尝试一个经典的“弹窗问候”程序。这个程序会在你的电脑屏幕上弹出一个对话框，向你问好。打开记事本，输入以下代码：
```vbscript
MsgBox "你好！欢迎来到VBS的世界！", vbOKOnly, "问候"
```
保存文件时，请确保将文件扩展名设置为“.vbs”。运行这个脚本后，你会看到一个简单的弹窗，上面写着你的问候语。你可以修改“你好！”为你想要显示的任何文字。
接下来，我们来试试一个稍微复杂一点的小游戏——“数字猜谜”。这个游戏会随机生成一个数字，然后提示玩家猜测这个数字是多少。输入以下代码：
```vbscript
Randomize
targetNumber = Int((100 Rnd) + 1)
Do
guess = InputBox("我有一个1到100之间的数字，你能猜出来吗？", "数字猜谜")
If guess < targetNumber Then
MsgBox "太小了！再试一次吧。"
ElseIf guess > targetNumber Then
MsgBox "太大了！再试一次吧。"
Else
MsgBox "恭喜你，猜对了！"
End If
Loop While guess <> targetNumber
```
这段代码会生成一个1到100之间的随机数，并通过提示让用户不断猜测，直到猜中为止。这是一个很好的练习机会，可以让你更好地理解循环和条件判断的使用。
最后，我们来做一个有趣的“鼠标跟随”效果。这个程序会让鼠标指针随着用户的移动而移动，制造一种“鼠标失控”的效果。请小心使用，以免造成不便！
```vbscript
Set WshShell = CreateObject("WScript.Shell")
Do
WshShell.SendKeys "{RIGHT}"
WshShell.SendKeys "{DOWN}"
Loop
```
保存并运行这个脚本后，你会发现鼠标的光标开始自动向右下角移动。如果你想停止这个效果，可以通过任务管理器结束脚本进程。
以上就是三个简单又有趣的小VBS程序。它们不仅可以帮助你学习VBS的基本语法，还能让你感受到编程带来的乐趣。希望这些代码能激发你对编程的兴趣，探索更多可能性。记得在实际操作中注意安全，避免不必要的麻烦哦！
