抖音整人/撩小姐姐程式碼(vbs指令碼)
阿新 • • 發佈:2018-12-17
如果你是小白的話也不用急,我們一步一步來。
1.在桌面上右鍵單擊選擇新建文字
2.把程式碼複製貼上
3.儲存
4.選中文字,右鍵單擊選擇重新命名
eg: 新建文字檔案.txt ----->啦啦啦.vbs
程式碼請各位收下,雖然簡單但也還是好玩
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 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
以上中文處可隨意修改,大佬忽略此話
補充幾個整人程式碼:
電腦十秒後重啟
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -r -t 10"
部分電腦卡死(無限重新整理)
set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop
撩小姐姐的,自由發揮哦
msgbox("小姐姐") msgbox("小姐姐") msgbox("呼叫小姐姐") a=msgbox("小姐姐有時間嗎?",vbYesNo,"玩個遊戲哦") if (a=vbYes) then msgbox("嘿嘿嘿,那我們可以繼續玩下去了!!!") msgbox("那。。。。。。我就問你一個問題啊") msgbox("你覺得自己漂不漂亮?") msgbox("溫馨提示:") msgbox("要有自信哦") b=msgbox("漂不漂亮?",vbYesNo,"漂亮") if (b=vbYes ) then msgbox("我也這麼覺得") wscript.echo printer(" ","*","113111111112212111313111513",7) function printer(a1,a2,b,c) for i = 1 to len(b) b1 = Mid(b,i,1) for j = 1 to b1 s=s&a1 n=n+1 if n=c then s=s&chr(10) n=0 end if next a3=a1 a1=a2 a2=a3 next printer=s end function msgbox("嘿嘿嘿") msgbox("嗯,雖然我也贊同這一點") msgbox("但") msgbox("我還是想皮一下") do msgbox("哈哈哈") msgbox("哈哈哈") msgbox("玩不過我吧") msgbox("哈哈哈") msgbox("哈哈哈") msgbox("打不到我吧") msgbox("沒有辦法") msgbox("就是這麼強大") msgbox("啦啦啦啦") msgbox("啦啦啦啦") msgbox("啦啦啦啦") loop else msgbox("啥?") msgbox("我沒聽清") msgbox("這麼不自信?") msgbox("和我的觀點不一樣") msgbox("後果很嚴重") msgbox("所以,準備懲罰你一下") msgbox("帶你數綿羊吧") Set s = CreateObject("sapi.spvoice") i=0 Do while i<100 s.speak i i=i+1 if i=66 then exit do loop end if else msgbox("那。。。。。。我就在皮一下") msgbox("真的") msgbox("真的") msgbox("真的") msgbox("我就皮一下下") msgbox("皮這一下我很開心") msgbox("警告") msgbox("警告") msgbox("警告") msgbox("你的電腦將關機") msgbox("給你一次機會") msgbox("使用 Ctrl+Alt+delete 關閉此程序") set ws=createobject("wscript.shell") ws.run"cmd.exe /c shutdown -r -t 10" end if