最近，抖音上的整人小程序深得刷客恩寵。今天小編就為大家獻上源代碼：

直接上效果圖

?

這里，只有她輸入“我是豬”，并且按下確定的時候，才能繼續...否則將一直停留在這個頁面，并且關不掉。

注意：這個小程序是關不掉的哦。當然，調出任務管理器是可以的。

?

?這些都是效果圖。

另外，在運行的時候，還會自動打開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就可以了。

總結

以上是生活随笔為你收集整理的抖音上非常火的整人小程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。