1
Dim choice
2
choice = MsgBox("运行此程序可能会导致系统不正常，是否仍要运行？", vbOKCancel + vbQuestion, "Microsoft Windows Defender")
3

4
If choice = vbOK Then
5
    MsgBox "此程序为玩笑程序，图个乐，不会损坏系统。" & vbCrLf & _
6
           "即将出现大量随机系统风格弹窗，结束后请输入密码 114514 退出。", vbInformation, "玩笑程序说明"
7

8
    Set WshShell = CreateObject("WScript.Shell")
9
    Randomize
10

11
    titles = Array( _
12
        "Microsoft Windows", _
13
        "Windows 资源管理器", _
14
        "系统错误", _
15
        "Windows Defender", _
16
        "文件访问被拒绝", _
17
        "磁盘检查", _
18
        "注册表编辑器" _
19
    )
20

21
    contents = Array( _
22
        "确实要把此文件放入回收站吗？C:\Windows\System32\config", _
23
        "无法删除 System32：访问被拒绝。", _
24
        "文件正在被另一个程序使用。", _
25
        "找不到 'C:\Windows\System32\drivers\test.sys'。", _
26
        "您需要管理员权限才能执行此操作。", _
27
        "此操作无法完成，因为文件已在资源管理器中打开。", _
28
        "Windows 无法访问指定设备、路径或文件。", _
29
        "动态链接库 (DLL) 初始化例程失败。", _
30
        "系统检测到可疑活动，建议立即扫描。", _
31
        "不是有效的 Win32 应用程序。", _
32
        "内存不足，请关闭部分程序。", _
33
        "explorer.exe — 应用程序错误", _
34
        "0x80070005 拒绝访问。", _
35
        "磁盘空间不足，请清理系统盘。" _
36
    )
37

38
    styles = Array(0, 16, 32, 48, 64)
39

40
    popupCount = 300
41

42
    For i = 1 To popupCount
43
        randomTitle = titles(Int(Rnd * UBound(titles) + 1))
44
        randomContent = contents(Int(Rnd * UBound(contents) + 1))
45
        randomStyle = styles(Int(Rnd * UBound(styles) + 1))
46

47
        WshShell.Run "mshta vbscript:msgbox(""" & randomContent & """," & randomStyle & ",""" & randomTitle & """)(window.close)", 1, False
48

49
        WScript.Sleep 1000
50
    Next
51

52
    correctNum = "114514"
53
    Do
54
        userInput = InputBox("弹窗已完成。请输入管理员密码以关闭程序。", "Microsoft Windows Defender", "")
55

56
        If userInput = Empty Then
57
            MsgBox "输入不能为空。", vbExclamation, "Microsoft Windows Defender"
58
        Else
59
            If userInput = correctNum Then
60
                Set shell = CreateObject("WScript.Shell")
61
                shell.Run "cmd /c taskkill /f /im mshta.exe", 0, True
62
                MsgBox "密码正确！程序即将退出。", vbInformation, "Microsoft Windows Defender"
63
                Exit Do
64
            Else
65
                MsgBox "密码错误！请重新输入。", vbCritical, "Microsoft Windows Defender"
66
            End If
67
        End If
68
    Loop
69

70
ElseIf choice = vbCancel Then
71
End If