【vbs好玩的代码】在编程的世界里，VBScript（简称VBS）虽然不是最主流的语言，但它却有着独特的魅力。很多人对它并不陌生，尤其是在Windows系统中，它常被用来编写简单的脚本程序。今天，我们就来聊聊一些“好玩”的VBS代码，看看它们是如何在日常生活中带来乐趣的。
1. 弹窗小恶作剧
VBS最经典的功能之一就是弹出消息框。你可以用它来制造一些小惊喜或者小恶作剧。比如：
```vbs
MsgBox "你被我盯上了！", vbInformation, "警告"
```
运行这段代码后，屏幕上会弹出一个信息框，显示“你被我盯上了！”，并带有提示音。虽然简单，但确实能让人眼前一亮。
2. 自动发送邮件（简易版）
虽然VBS不能直接发送邮件，但可以通过调用系统内置功能实现。例如使用`CDO.Message`对象：
```vbs
Set objEmail = CreateObject("CDO.Message")
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.example.com"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.To = "recipient@example.com"
objEmail.From = "sender@example.com"
objEmail.Subject = "测试邮件"
objEmail.TextBody = "这是一封由VBS发送的测试邮件。"
objEmail.Send
Set objEmail = Nothing
```
注意：此代码需要配置正确的SMTP服务器信息，并且可能因安全设置无法运行。
3. 简单的计时器
VBS可以用来创建一个简单的倒计时程序：
```vbs
Dim timeLeft
timeLeft = InputBox("请输入倒计时时间（秒）：", "倒计时")
If IsNumeric(timeLeft) Then
For i = timeLeft To 0 Step -1
MsgBox i & " 秒后结束"
WScript.Sleep 1000
Next
MsgBox "时间到！"
Else
MsgBox "请输入有效的数字！"
End If
```
这个脚本可以让用户输入一个时间，然后每秒钟弹出一次提醒，直到归零。
4. 文件操作小工具
VBS也可以用来处理文件，比如批量重命名文件：
```vbs
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\test")
For Each file In folder.Files
newName = "new_" & file.Name
fso.MoveFile file.Path, fso.GetParentFolderName(file.Path) & "\" & newName
Next
```
运行后，`C:\test`目录下的所有文件都会被重命名为`new_XXX`的形式。
5. 隐藏窗口的趣味脚本
有时候我们可以用VBS隐藏自己的窗口，让别人找不到你：
```vbs
Set oShell = CreateObject("WScript.Shell")
oShell.Run "notepad.exe", 0
```
运行后，记事本窗口将不会出现在任务栏上，看起来像是“消失”了一样。
虽然VBS的功能不如现代语言强大，但在某些特定场景下，它依然有它的独特价值。通过这些“好玩”的代码，我们不仅能体会到编程的乐趣，还能感受到脚本语言的灵活性和趣味性。如果你也喜欢尝试新鲜事物，不妨多动手写写VBS代码，说不定会有意想不到的收获哦！
