恶搞别人电脑,使他电脑自动关机....

来源：百度知道 编辑：UC知道 时间：2024/05/25 11:08:41
呵呵,没什么,就是跟便宜开个玩笑,啥得,

朋友门告诉我个,唬他得,而且还让他关机得,

别有什么意外让他电脑坏什么得,纯属娱乐用,谢谢..

是XP的系统吗?告诉他最近发现一个好玩的东东 把鼠标移到开始按钮上 单击后快速按两下字母U就可以了
o(∩_∩)o...哈哈 这个东西很老了

要不然你可以给他发一个文件 是个vbe文件

代码如下 你先将这些代码复制在记事本里 然后将记事本保存后 把扩展名改成vbe即可 中间的XXX可以自己改成朋友的名字 自己弄好了以后最好还是别打开了哈 记得所有的XXX都得改成朋友名字哦 可别漏了 最重要的是do while后面那句切记要改啊
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说XXX是猪，不说XXX是猪就一分针关你机，不信，你可以告一下···"" ",0 ,true
dim a
do while(a <> "XXX是猪")
a = inputbox ("说XXX是猪,就不关机，快撒，说 ""XXX是猪"" ","说不说","你才是猪哩",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) +