2024年4月3日发(作者：)
好玩的VBScript代码
VBScript（Visual Basic Scripting Edition）是一种基于VB语言的脚本语言，
它可以用来创建简单的Windows应用程序、网页脚本和系统管理脚本等。VBScript
是一种通用的脚本语言，可以用来实现各种有趣的功能。在本文中，我们将介绍一
些好玩的VBScript代码，展示其强大的功能和娱乐价值。
1. 电脑妖怪
第一个VBScript代码是创建一个电脑妖怪。该代码将在电脑屏幕上创建一个随机
移动的图形，并发出奇怪的声音。
Set wshShell = CreateObject("")
Set objShell = CreateObject("ation")
Set objWMI = GetObject("winmgmts:.rootcimv2")
Do
"mshta vbscript:CreateObject(""e"").Speak(""Boo!"")
(Close)"
zeAll
nimizeAll
For Each objDesktop in cesOf("Win32_Desktop")
lpaper "C:"
Next
100
Loop
通过运行该代码，将在桌面上创建一个随机移动的图形，并且屏幕上会突然发出吓
人的声音。这个代码可以用作恶作剧或者给你的朋友带来一些惊喜。
2. 无限弹窗
第二个VBScript代码是创建一个无限弹窗的例子。该代码会连续弹出无数个消息
框，直到你关闭代码运行的命令行窗口。
Set wshShell = CreateObject("")
Do
"这是一个无限弹窗！", 0, "弹窗消息", 4096
Loop
当你运行这个代码时，你会看到一个消息框弹出，并显示一条消息。当你关闭该消
息框后，另一个消息框会立即弹出，消息内容相同。可以说，这是一个恶作剧的经
典代码，可以用来愚弄你的朋友或同事。
3. 扫雷小游戏
第三个VBScript代码是一个简单的扫雷小游戏。该代码会在命令行窗口中展示一
个扫雷的棋盘，你需要根据提示输入坐标来选择方块，直到你遇到地雷。
Const ROWS = 5
Const COLS = 5
Dim grid(ROWS, COLS)
Dim gameOver, clickCount
gameOver = False
clickCount = 0
Sub GenerateGrid()
Dim row, col
Randomize
For row = 1 To ROWS
For col = 1 To COLS
If Int(Rnd * 4) = 1 Then
grid(row, col) = "*"
Else
grid(row, col) = ""
End If
Next
Next
End Sub
Sub DrawGrid()
Dim row, col
For row = 1 To ROWS
For col = 1 To COLS
If grid(row, col) <> "*" Then
grid(row, col) = CountMines(row, col)
End If
grid(row, col) & " "
Next
ine
Next
End Sub
Function CountMines(row, col)
Dim count, i, j
count = 0
For i = row - 1 To row + 1
For j = col - 1 To col + 1
If i > 0 And i <= ROWS And j > 0 And j <= COLS Then
If grid(i, j) = "*" Then
count = count + 1
End If
End If
Next
Next
CountMines = count
End Function
GenerateGrid
Do Until gameOver
If clickCount = 0 Then
ine "欢迎来到扫雷小游戏！"
ine "请输入坐标（1-" & ROWS & ", 1-" & COLS & "）：
"
Else
ine "请输入坐标（1-" & ROWS & ", 1-" & COLS & "）
或退出游戏（q）："
End If
Dim input
input = Trim(ne)
If input = "q" Then
gameOver = True
Else
Dim position
position = Split(input, ",")
row = CInt(Trim(position(0)))
col = CInt(Trim(position(1)))
If row > 0 And row <= ROWS And col > 0 And col <= COLS Then
If grid(row, col) = "*" Then
ine "你踩到地雷了！游戏结束！"
gameOver = True
Else
ine "你打开了一个方块，附近有 " & CountMi
nes(row, col) & " 个地雷。"
clickCount = clickCount + 1
End If
Else
ine "无效的坐标，请重新输入。"
End If
End If
Loop
当你运行这个代码时，你会看到一个命令行窗口中展示了一个扫雷的棋盘。你需要
根据提示输入坐标来选择方块，当你遇到地雷时，游戏结束。这个小游戏可以帮助
你放松心情，挑战你的智力和运气。
4. 自动打字
第四个VBScript代码是一个自动打字的例子。该代码会自动模拟按键，向文本框
输入指定的文字。
Set wshShell = CreateObject("")
Sub AutoType(text, interval)
Dim i
For i = 1 To Len(text)
interval
ys Mid(text, i, 1)
Next
End Sub
3000
AutoType "Hello, World!", 100
当你运行这个代码时，你会看到一个文本框自动输入了 “Hello, World!” 的文
字。你可以修改代码中的文本和时间间隔，以实现自己想要的输入效果。这个代码
可以用来逗乐你的朋友或者在演示时自动输入。
5. 随机数生成器
第五个VBScript代码是一个随机数生成器。该代码会生成一个指定范围的随机数，
并将其输出到命令行窗口。
Dim min, max, randomNumber
min = 1
max = 100
Randomize
randomNumber = Int((max - min + 1) * Rnd) + min
ine "随机数：" & randomNumber
当你运行这个代码时，你会看到一个随机数被生成并输出到命令行窗口。你可以根
据自己的需要修改代码中的最小值和最大值，以生成不同范围的随机数。这个代码
可以用来进行抽奖、生成随机密码等等。
总结
以上是一些好玩的VBScript代码的示例。这些代码展示了VBScript作为一种脚本
语言的强大功能和娱乐价值。你可以尝试运行这些代码，体验它们带来的乐趣，并
在这个基础上进一步探索和创造更多有趣的功能。无论是用作恶作剧、娱乐还是有
实际用途，VBScript都可以为你提供丰富的编程体验。希望这些代码能给你带来
启发和快乐！
发布评论