第一个：

弹窗病毒，文本文档写，后缀vbs

shutdown -s -t 0

第二个：

关机代码，文本文档写，后缀bat

set WshShell=WScript.CreateObject("Wscript.Shell")

WshShell.AppActivate"Clow"

for i=1 to 100

WScript.sleep 100

Wshshell.Sendkeys"^v"

Wshshell.Sendkeys i

Wshshell.Sendkeys"%s"

Next

第三个：

蓝屏代码，文本文档写，后缀bat。建议别轻易触碰！有点费电脑

rundll32.exe

user32.dll,LockWorkStation:p

第四个：

锁定，文本文档写，后缀bat。

shutdown.exe -r -c"立即重启"-t 0

第五个：

轰炸，文本文档写，后缀vbs.可以发在微信上，剪切要发内容后双击

text()

function text

dim a

a=InputBox("叫爸爸!")

if a="爸爸"then

Msgbox"儿子真乖!",0,"恭喜"

else

MsgBox"调皮，不叫爸爸还想跑？",0,"再来一次! "

text()

end if

end function