天涯部落

小圈子,大声音!呼朋引伴网聚部落!

创建新部落?

最强的整人的一个小把戏

楼主:xushin 时间:2009-03-28 20:45:00 点击:1429 回复:3
脱水模式给他打赏只看楼主 阅读设置
on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("wscript.shell") 
WSHshellA.run "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.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) + "山里有个庙"
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) + "嘿嘿~~别哭别哭,哥哥等有机会给你买糖嘛!"
把上面的代码加入复制到记事本中,改变后缀名txt为vbe
然后发给别人只要他点肯定被愚~~
嘿嘿~~
对啦这个不是病毒木马,就是用vbscript写的小东西,点击后这个文件后就得键入自己是愚人节里的笨蛋不然就得关机喽~~嘿嘿~~
挺好玩~
作者 :来吧路人甲 时间:2009-03-31 11:56:00
刚复制完,改名结束时,被avast确认为特洛伊木马- -
楼主xushin 时间:2009-03-31 17:35:00
不会吧!!就是调用了一下任务计划,555555555没有木马呀!!!!要不把后面的对话去掉吧~
on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("wscript.shell") 
WSHshellA.run "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.run "cmd.exe /c shutdown -a",0 ,true 
msgbox chr(13) + chr(13) + chr(13) + "嘿嘿,好玩吧" 
直接这样行不行
我的诺顿都没问题呀
作者 :未顽石 时间:2010-04-10 22:45:00
呵呵 看到都晚了

相关推荐

    发表回复

    请遵守天涯社区公约言论规则,不得违反国家法律法规