Windows小病毒：吓人但无危害

一、VBS版本
本系列小病毒可用记事本编辑，编辑好后命名为“惊喜.vbs”，双击即可运行。
（1）小白级

msgbox("Error")'引号内文本可自行修改

运行以上脚本会出现一个可以关闭的弹窗：

点确定即可关闭。
（2）大佬级

do
msgbox("Error!")'引号内内容可自行修改
loop

运行它会出现一个关不掉的窗口：

解决办法很简单，关机就行了。
（3）大神级

Dim Style,  Title, Help, Ctxt,MyString
Dim Msg1,Msg2,Msg3
Dim Response
Dim Msg
redim Msg(4)
Msg(0)="你是猪吗？"
Msg(1)="你到底是猪吗？"
Msg(2)="你是不是猪？"
Msg(3)="你究竟是不是猪?"
Style=vbYesNo+vbInformation
Title="大奖"
for i=0 to 3
    Response=MsgBox(Msg(i),Style,Title)
    If Response=vbYes Then
        MyString="Yes"
        Response=MsgBox("你终于承认了！")
        exit for
    Else
        MyString="No"
        If i =3 Then
            i=-1
            End If
        End IF
Next

运行它会弹出一个窗口：

不停按“否”：



只要你按“否”，弹窗就不会关闭。当按了“是”：

这时，按“确定”即可退出。
二、批处理文件（bat）版
本系列用记事本编辑后命名为“名字.bat”，双击运行即可。
（1）小白级：关机

shutdown/s 

运行即可关机。
（2）大佬级：打开窗口

start cmd 

运行会弹出命令行窗口：

（3）大神级：死循环

start boo

注意：该文件只能命名为boo.bat，不然会报错。运行有风险，尝试需谨慎。
运行后会不停弹出窗口：

连截屏都截不了，只能拍照了。小心运行，因为你的电脑可能会这样：

免责声明：运行本文中的项目导致与朋友闹翻、被对象甩、电脑冒烟，本人概不负责😂